Ticket #79 -> (repaso) Imprimir en el albarán el nº de teléfono del cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@478 f4e31baf-9722-1c47-927c-6f952f962d4b

Database/scripts/factuges.sql

@@ -437,19 +437,20 @@ CREATE TABLE ALBARANES_CLIENTE (
     ID                    TIPO_ID NOT NULL,
     ID_EMPRESA            TIPO_ID,
     ID_CLIENTE            TIPO_ID,
-    ID_DIRECCION					TIPO_ID,
     FECHA_ALBARAN         DATE,
     ID_ALMACEN            TIPO_ID,
     ID_PEDIDO             TIPO_ID,
     ID_FACTURA            TIPO_ID,
     TIPO                  VARCHAR(1),
     REFERENCIA            VARCHAR(255),
+    ID_DIRECCION	      TIPO_ID,
     CALLE                 VARCHAR(255),
     CODIGO_POSTAL         VARCHAR(10),
     POBLACION             VARCHAR(255),
     PROVINCIA             VARCHAR(255),
     PERSONA_CONTACTO      VARCHAR(255),
     TELEFONO              VARCHAR(25),
+    MOVIL                 VARCHAR(25),	
     IMPORTE_NETO          TIPO_IMPORTE,
     IMPORTE_PORTE         TIPO_IMPORTE,
     DESCUENTO             TIPO_PORCENTAJE,
@@ -1244,8 +1245,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
     RECARGO_EQUIVALENCIA  TIPO_BOOLEANO,
     RE                    TIPO_PORCENTAJE,
     IMPORTE_RE            TIPO_IMPORTE,
-    ID_CONTRATO           TIPO_ID    ,
+    ID_CONTRATO           TIPO_ID    
-    NO_VALORADO           TIPO_BOOLEANO
 );
 
 CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
@@ -1629,6 +1629,7 @@ CREATE VIEW V_ALBARANES_CLIENTE(
     PROVINCIA,
     PERSONA_CONTACTO,
     TELEFONO,
+	MOVIL,
     IMPORTE_NETO,
     IMPORTE_PORTE,
     DESCUENTO,
@@ -1674,6 +1675,7 @@ SELECT
   ALBARANES_CLIENTE.PROVINCIA,
   ALBARANES_CLIENTE.PERSONA_CONTACTO,
   ALBARANES_CLIENTE.TELEFONO,
+  ALBARANES_CLIENTE.MOVIL,
   ALBARANES_CLIENTE.IMPORTE_NETO,
   ALBARANES_CLIENTE.IMPORTE_PORTE,
   ALBARANES_CLIENTE.DESCUENTO,
@@ -3637,8 +3639,7 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
     ID_VENDEDOR,
     VENDEDOR,
     ID_CONTRATO,
-    REF_CONTRATO,
+    REF_CONTRATO)
-    NO_VALORADO)
 AS
 SELECT
   PRESUPUESTOS_CLIENTE.ID,
@@ -3680,8 +3681,7 @@ SELECT
   PRESUPUESTOS_CLIENTE.ID_VENDEDOR,
   CONTACTOS2.NOMBRE AS VENDEDOR,
   PRESUPUESTOS_CLIENTE.ID_CONTRATO,
-  CONTRATOS_CLIENTE.REFERENCIA,
+  CONTRATOS_CLIENTE.REFERENCIA
-  PRESUPUESTOS_CLIENTE.NO_VALORADO
 
 FROM
   PRESUPUESTOS_CLIENTE

Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas

@@ -53,7 +53,7 @@ begin
     try
       AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
       ActualizarDetalles(ADetalles, AArticulos);
-      ShowInfoMessage('Se han actualizado los descuentos para el cliente seleccionado');
+      //ShowInfoMessage('Se han actualizado los descuentos para el cliente seleccionado'); <- No sacarlo en Acana
     finally
       AArticulos := Nil;
     end;

Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm

@@ -178,6 +178,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
         ServerAutoRefresh = True
         DictionaryEntry = 'AlbaranesCliente_TELEFONO'
       end
+      item
+        Name = 'MOVIL'
+        DataType = datString
+        Size = 25
+      end
       item
         Name = 'IMPORTE_NETO'
         DataType = datCurrency

Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas

@@ -9,9 +9,9 @@ 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_ListaAnosAlbaranes = '{FBACF002-BE59-43F3-8DC7-83B20BA59AE5}';
+  RID_ListaAnosAlbaranes = '{044E6A10-20B4-4D17-A1E1-02F2B0EE6BC2}';
-  RID_AlbaranesCliente = '{95819234-E133-4ACC-AFDC-E1CF177752DB}';
+  RID_AlbaranesCliente = '{EC8EEA50-0133-413D-8D31-F53D6C4D0221}';
-  RID_AlbaranesCliente_Detalles = '{4BF60CD0-658B-4D08-A94D-E1B925D0B17B}';
+  RID_AlbaranesCliente_Detalles = '{120E6BFE-ADED-4194-B4FC-E56B648E47DB}';
 
   { Data table names }
   nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@@ -47,6 +47,7 @@ const
   fld_AlbaranesClientePROVINCIA = 'PROVINCIA';
   fld_AlbaranesClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
   fld_AlbaranesClienteTELEFONO = 'TELEFONO';
+  fld_AlbaranesClienteMOVIL = 'MOVIL';
   fld_AlbaranesClienteIMPORTE_NETO = 'IMPORTE_NETO';
   fld_AlbaranesClienteIMPORTE_PORTE = 'IMPORTE_PORTE';
   fld_AlbaranesClienteDESCUENTO = 'DESCUENTO';
@@ -92,27 +93,28 @@ const
   idx_AlbaranesClientePROVINCIA = 19;
   idx_AlbaranesClientePERSONA_CONTACTO = 20;
   idx_AlbaranesClienteTELEFONO = 21;
-  idx_AlbaranesClienteIMPORTE_NETO = 22;
+  idx_AlbaranesClienteMOVIL = 22;
-  idx_AlbaranesClienteIMPORTE_PORTE = 23;
+  idx_AlbaranesClienteIMPORTE_NETO = 23;
-  idx_AlbaranesClienteDESCUENTO = 24;
+  idx_AlbaranesClienteIMPORTE_PORTE = 24;
-  idx_AlbaranesClienteIMPORTE_DESCUENTO = 25;
+  idx_AlbaranesClienteDESCUENTO = 25;
-  idx_AlbaranesClienteBASE_IMPONIBLE = 26;
+  idx_AlbaranesClienteIMPORTE_DESCUENTO = 26;
-  idx_AlbaranesClienteID_TIPO_IVA = 27;
+  idx_AlbaranesClienteBASE_IMPONIBLE = 27;
-  idx_AlbaranesClienteIVA = 28;
+  idx_AlbaranesClienteID_TIPO_IVA = 28;
-  idx_AlbaranesClienteIMPORTE_IVA = 29;
+  idx_AlbaranesClienteIVA = 29;
-  idx_AlbaranesClienteIMPORTE_TOTAL = 30;
+  idx_AlbaranesClienteIMPORTE_IVA = 30;
-  idx_AlbaranesClienteOBSERVACIONES = 31;
+  idx_AlbaranesClienteIMPORTE_TOTAL = 31;
-  idx_AlbaranesClienteINCIDENCIAS = 32;
+  idx_AlbaranesClienteOBSERVACIONES = 32;
-  idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 33;
+  idx_AlbaranesClienteINCIDENCIAS = 33;
-  idx_AlbaranesClienteFECHA_ALTA = 34;
+  idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 34;
-  idx_AlbaranesClienteFECHA_MODIFICACION = 35;
+  idx_AlbaranesClienteFECHA_ALTA = 35;
-  idx_AlbaranesClienteUSUARIO = 36;
+  idx_AlbaranesClienteFECHA_MODIFICACION = 36;
-  idx_AlbaranesClienteID_FORMA_PAGO = 37;
+  idx_AlbaranesClienteUSUARIO = 37;
-  idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 38;
+  idx_AlbaranesClienteID_FORMA_PAGO = 38;
-  idx_AlbaranesClienteFECHA_ENVIO = 39;
+  idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 39;
-  idx_AlbaranesClienteFECHA_RECEPCION = 40;
+  idx_AlbaranesClienteFECHA_ENVIO = 40;
-  idx_AlbaranesClienteID_TIENDA = 41;
+  idx_AlbaranesClienteFECHA_RECEPCION = 41;
-  idx_AlbaranesClienteTIENDA = 42;
+  idx_AlbaranesClienteID_TIENDA = 42;
+  idx_AlbaranesClienteTIENDA = 43;
 
   { AlbaranesCliente_Detalles fields }
   fld_AlbaranesCliente_DetallesID = 'ID';
@@ -149,7 +151,7 @@ const
 type
   { IListaAnosAlbaranes }
   IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
-  ['{52486665-7EE5-43C3-9331-B2B8B9887AA7}']
+  ['{5576961E-EB12-4940-ACEB-B1E3B948677A}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -184,7 +186,7 @@ type
 
   { IAlbaranesCliente }
   IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
-  ['{27BCD1FA-4808-4856-896B-98038826A03D}']
+  ['{FD1EA076-A49C-4F7E-96BE-E2B555D55575}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -274,6 +276,10 @@ type
     procedure SetTELEFONOValue(const aValue: String);
     function GetTELEFONOIsNull: Boolean;
     procedure SetTELEFONOIsNull(const aValue: Boolean);
+    function GetMOVILValue: String;
+    procedure SetMOVILValue(const aValue: String);
+    function GetMOVILIsNull: Boolean;
+    procedure SetMOVILIsNull(const aValue: Boolean);
     function GetIMPORTE_NETOValue: Currency;
     procedure SetIMPORTE_NETOValue(const aValue: Currency);
     function GetIMPORTE_NETOIsNull: Boolean;
@@ -403,6 +409,8 @@ type
     property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
     property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
     property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
+    property MOVIL: String read GetMOVILValue write SetMOVILValue;
+    property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
     property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
     property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
     property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
@@ -544,6 +552,10 @@ type
     procedure SetTELEFONOValue(const aValue: String); virtual;
     function GetTELEFONOIsNull: Boolean; virtual;
     procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
+    function GetMOVILValue: String; virtual;
+    procedure SetMOVILValue(const aValue: String); virtual;
+    function GetMOVILIsNull: Boolean; virtual;
+    procedure SetMOVILIsNull(const aValue: Boolean); virtual;
     function GetIMPORTE_NETOValue: Currency; virtual;
     procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
     function GetIMPORTE_NETOIsNull: Boolean; virtual;
@@ -672,6 +684,8 @@ type
     property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
     property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
     property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
+    property MOVIL: String read GetMOVILValue write SetMOVILValue;
+    property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
     property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
     property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
     property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
@@ -723,7 +737,7 @@ type
 
   { IAlbaranesCliente_Detalles }
   IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{373285B0-AE90-4D61-A806-C5D1BC0A22D1}']
+  ['{0AE85DFD-D8E8-49EF-909C-D17307156A43}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1442,6 +1456,27 @@ begin
     DataTable.Fields[idx_AlbaranesClienteTELEFONO].AsVariant := Null;
 end;
 
+function TAlbaranesClienteDataTableRules.GetMOVILValue: String;
+begin
+  result := DataTable.Fields[idx_AlbaranesClienteMOVIL].AsString;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetMOVILValue(const aValue: String);
+begin
+  DataTable.Fields[idx_AlbaranesClienteMOVIL].AsString := aValue;
+end;
+
+function TAlbaranesClienteDataTableRules.GetMOVILIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_AlbaranesClienteMOVIL].IsNull;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetMOVILIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_AlbaranesClienteMOVIL].AsVariant := Null;
+end;
+
 function TAlbaranesClienteDataTableRules.GetIMPORTE_NETOValue: Currency;
 begin
   result := DataTable.Fields[idx_AlbaranesClienteIMPORTE_NETO].AsCurrency;

Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas

@@ -9,14 +9,14 @@ 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_ListaAnosAlbaranesDelta = '{553286C5-F68E-452F-BDC7-F913EF4EBA35}';
+  RID_ListaAnosAlbaranesDelta = '{C01E5E50-A195-4FF2-B07F-334991224E65}';
-  RID_AlbaranesClienteDelta = '{E469B866-0CF0-4BA1-AB7E-08A4849D4441}';
+  RID_AlbaranesClienteDelta = '{D4863959-1602-45A1-8240-BC85DBF9E3B6}';
-  RID_AlbaranesCliente_DetallesDelta = '{81D7FBA7-E7B3-45C0-94DC-5D22E2EB2E8C}';
+  RID_AlbaranesCliente_DetallesDelta = '{651FD911-3E25-4911-AC35-58F2B7AEF391}';
 
 type
   { IListaAnosAlbaranesDelta }
   IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
-  ['{553286C5-F68E-452F-BDC7-F913EF4EBA35}']
+  ['{C01E5E50-A195-4FF2-B07F-334991224E65}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -50,7 +50,7 @@ type
 
   { IAlbaranesClienteDelta }
   IAlbaranesClienteDelta = interface(IAlbaranesCliente)
-  ['{E469B866-0CF0-4BA1-AB7E-08A4849D4441}']
+  ['{D4863959-1602-45A1-8240-BC85DBF9E3B6}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -74,6 +74,7 @@ type
     function GetOldPROVINCIAValue : String;
     function GetOldPERSONA_CONTACTOValue : String;
     function GetOldTELEFONOValue : String;
+    function GetOldMOVILValue : String;
     function GetOldIMPORTE_NETOValue : Currency;
     function GetOldIMPORTE_PORTEValue : Currency;
     function GetOldDESCUENTOValue : Float;
@@ -119,6 +120,7 @@ type
     property OldPROVINCIA : String read GetOldPROVINCIAValue;
     property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
     property OldTELEFONO : String read GetOldTELEFONOValue;
+    property OldMOVIL : String read GetOldMOVILValue;
     property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
     property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
     property OldDESCUENTO : Float read GetOldDESCUENTOValue;
@@ -283,6 +285,12 @@ type
     function GetOldTELEFONOIsNull: Boolean; virtual;
     procedure SetTELEFONOValue(const aValue: String); virtual;
     procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
+    function GetMOVILValue: String; virtual;
+    function GetMOVILIsNull: Boolean; virtual;
+    function GetOldMOVILValue: String; virtual;
+    function GetOldMOVILIsNull: Boolean; virtual;
+    procedure SetMOVILValue(const aValue: String); virtual;
+    procedure SetMOVILIsNull(const aValue: Boolean); virtual;
     function GetIMPORTE_NETOValue: Currency; virtual;
     function GetIMPORTE_NETOIsNull: Boolean; virtual;
     function GetOldIMPORTE_NETOValue: Currency; virtual;
@@ -497,6 +505,10 @@ type
     property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
     property OldTELEFONO : String read GetOldTELEFONOValue;
     property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
+    property MOVIL : String read GetMOVILValue write SetMOVILValue;
+    property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull;
+    property OldMOVIL : String read GetOldMOVILValue;
+    property OldMOVILIsNull : Boolean read GetOldMOVILIsNull;
     property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
     property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
     property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
@@ -590,7 +602,7 @@ type
 
   { IAlbaranesCliente_DetallesDelta }
   IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
-  ['{81D7FBA7-E7B3-45C0-94DC-5D22E2EB2E8C}']
+  ['{651FD911-3E25-4911-AC35-58F2B7AEF391}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_ALBARANValue : Integer;
@@ -1539,6 +1551,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTELEFONO] := Null;
 end;
 
+function TAlbaranesClienteBusinessProcessorRules.GetMOVILValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteMOVIL];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetMOVILIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteMOVIL]);
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldMOVILValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteMOVIL];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteMOVIL]);
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetMOVILValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteMOVIL] := aValue;
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteMOVIL] := Null;
+end;
+
 function TAlbaranesClienteBusinessProcessorRules.GetIMPORTE_NETOValue: Currency;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_NETO];

Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm

@@ -83,6 +83,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
         DataType = datString
         Size = 25
       end
+      item
+        Name = 'MOVIL'
+        DataType = datString
+        Size = 25
+      end
       item
         Name = 'PERSONA_CONTACTO'
         DataType = datString
@@ -303,22 +308,23 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
               'IRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10'  COALE' +
               'SCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL' +
               ') AS CODIGO_POSTAL,'#10'  COALESCE(CONTACTOS_DIRECCIONES.TELEFONO, C' +
-              'ONTACTOS.TELEFONO_1) AS TELEFONO,'#10'  ALBARANES_CLIENTE.PERSONA_CO' +
+              'ONTACTOS.TELEFONO_1) AS TELEFONO,'#10'  COALESCE(CONTACTOS_DIRECCION' +
-              'NTACTO,'#10'  ALBARANES_CLIENTE.OBSERVACIONES,'#10'  ALBARANES_CLIENTE.I' +
+              'ES.MOVIL, CONTACTOS.MOVIL_1) AS MOVIL,'#10'  ALBARANES_CLIENTE.PERSO' +
-              'MPORTE_TOTAL,'#10'  ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10'  EMPRES' +
+              'NA_CONTACTO,'#10'  ALBARANES_CLIENTE.OBSERVACIONES,'#10'  ALBARANES_CLIE' +
-              'AS.NIF_CIF AS NIF_CIF_EMPRESA,'#10'  EMPRESAS.NOMBRE AS NOMBRE_EMPRE' +
+              'NTE.IMPORTE_TOTAL,'#10'  ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10'  E' +
-              'SA,'#10'  EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10'  EMPRESAS.' +
+              'MPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10'  EMPRESAS.NOMBRE AS NOMBRE_' +
-              'CALLE AS CALLE_EMPRESA,'#10'  EMPRESAS.CODIGO_POSTAL AS CODIGO_POSTA' +
+              'EMPRESA,'#10'  EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10'  EMPR' +
-              'L_EMPRESA,'#10'  EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10'  EMPRESAS' +
+              'ESAS.CALLE AS CALLE_EMPRESA,'#10'  EMPRESAS.CODIGO_POSTAL AS CODIGO_' +
-              '.PROVINCIA AS PROVINCIA_EMPRESA,'#10'  EMPRESAS.TELEFONO_1 AS TELEFO' +
+              'POSTAL_EMPRESA,'#10'  EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10'  EMP' +
-              'NO_1_EMPRESA,'#10'  EMPRESAS.FAX AS FAX_EMPRESA,'#10'  EMPRESAS.MOVIL_1 ' +
+              'RESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10'  EMPRESAS.TELEFONO_1 AS T' +
-              'AS MOVIL_1_EMPRESA,'#10'  EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10'  EMP' +
+              'ELEFONO_1_EMPRESA,'#10'  EMPRESAS.FAX AS FAX_EMPRESA,'#10'  EMPRESAS.MOV' +
-              'RESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10'  ALBARANES_CLIENTE'#10 +
+              'IL_1 AS MOVIL_1_EMPRESA,'#10'  EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10 +
-              '  INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.ID_EMP' +
+              '  EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10'  ALBARANES_CLI' +
-              'RESA)'#10'  INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_CLIENT' +
+              'ENTE'#10'  INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.I' +
-              'E.ID_CLIENTE)'#10'  LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTAC' +
+              'D_EMPRESA)'#10'  INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_C' +
-              'TOS_DIRECCIONES.ID = ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE ALBAR' +
+              'LIENTE.ID_CLIENTE)'#10'  LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (C' +
-              'ANES_CLIENTE.ID = :ID'#10
+              'ONTACTOS_DIRECCIONES.ID = ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE ' +
+              'ALBARANES_CLIENTE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -441,6 +447,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
               item
                 DatasetField = 'ID_TIENDA'
                 TableField = 'ID_TIENDA'
+              end
+              item
+                DatasetField = 'MOVIL'
+                TableField = '<unknown>'
+                SQLOrigin = 'MOVIL'
               end>
           end>
         Name = 'Informe_Cabecera'
@@ -510,6 +521,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
             DataType = datString
             Size = 25
           end
+          item
+            Name = 'MOVIL'
+            DataType = datString
+            Size = 25
+          end
           item
             Name = 'PERSONA_CONTACTO'
             DataType = datString
@@ -1054,7 +1070,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
     PrintOptions.Printer = 'Default'
     PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 37871.995398692100000000
-    ReportOptions.LastChange = 40107.819356273150000000
+    ReportOptions.LastChange = 40142.519712557870000000
     ReportOptions.VersionBuild = '1'
     ReportOptions.VersionMajor = '12'
     ReportOptions.VersionMinor = '13'

Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas

@@ -105,8 +105,12 @@ var
 begin
   FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
   try
+    tbl_Cabecera.Active := False;
+    tbl_Detalles.Active := False;
+
     tbl_Cabecera.ParamByName('ID').AsInteger := ID;
     tbl_Detalles.ParamByName('ID_ALBARAN').AsInteger := ID;
+
     tbl_Cabecera.Active := True;
     tbl_Detalles.Active := True;
 
@@ -115,6 +119,7 @@ begin
        raise Exception.Create (('Error Servidor: _GenerarAlbaran, no encuentra informe' + rptInfAlbaran));
 
     frxReport.LoadFromFile(AInforme, True);
+    frxReport.ReportOptions.Name := 'Albarán de cliente ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;    
     frxReport.PrepareReport(False);
   finally
     FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"

Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm

@@ -219,6 +219,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
               item
                 DatasetField = 'ID_TIPO_IVA'
                 TableField = 'ID_TIPO_IVA'
+              end
+              item
+                DatasetField = 'MOVIL'
+                TableField = 'MOVIL'
               end>
           end>
         Name = 'AlbaranesCliente'
@@ -358,6 +362,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             ServerAutoRefresh = True
             DictionaryEntry = 'AlbaranesCliente_TELEFONO'
           end
+          item
+            Name = 'MOVIL'
+            DataType = datString
+            Size = 25
+          end
           item
             Name = 'IMPORTE_NETO'
             DataType = datCurrency
@@ -630,148 +639,193 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
         Params = <
           item
             Name = 'ID'
-            DataType = datAutoInc
+            DataType = datInteger
-            GeneratorName = 'GEN_ALBARANES_CLI_ID'
             Value = ''
           end
           item
             Name = 'ID_EMPRESA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'ID_CLIENTE'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'FECHA_ALBARAN'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'TIPO'
+            DataType = datString
+            Size = 1
             Value = ''
           end
           item
             Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'REFERENCIA_CLIENTE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'ID_ALMACEN'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'ID_PEDIDO'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'ID_FACTURA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'ID_DIRECCION'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'CALLE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'CODIGO_POSTAL'
+            DataType = datString
+            Size = 10
             Value = ''
           end
           item
             Name = 'POBLACION'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'PROVINCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'PERSONA_CONTACTO'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'TELEFONO'
+            DataType = datString
+            Size = 25
+            Value = ''
+          end
+          item
+            Name = 'MOVIL'
+            DataType = datString
+            Size = 25
             Value = ''
           end
           item
             Name = 'IMPORTE_NETO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_PORTE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'DESCUENTO'
+            DataType = datFloat
             Value = ''
           end
           item
             Name = 'IMPORTE_DESCUENTO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'BASE_IMPONIBLE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IVA'
+            DataType = datFloat
             Value = ''
           end
           item
             Name = 'IMPORTE_IVA'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_TOTAL'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'OBSERVACIONES'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'INCIDENCIAS'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'INCIDENCIAS_ACTIVAS'
-            Value = ''
+            DataType = datSmallInt
-          end
-          item
-            Name = 'FECHA_ALTA'
             Value = ''
           end
           item
             Name = 'FECHA_MODIFICACION'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'USUARIO'
+            DataType = datString
+            Size = 30
             Value = ''
           end
           item
             Name = 'ID_FORMA_PAGO'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'FECHA_PREVISTA_ENVIO'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_ENVIO'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_RECEPCION'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'ID_TIENDA'
+            DataType = datInteger
             Value = ''
           end>
         Statements = <
@@ -783,21 +837,21 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
               'INSERT'#10'  INTO ALBARANES_CLIENTE'#10'    (ID, ID_EMPRESA, ID_CLIENTE,' +
               ' FECHA_ALBARAN, TIPO, REFERENCIA,'#10'     REFERENCIA_CLIENTE, ID_AL' +
               'MACEN, ID_PEDIDO, ID_FACTURA, ID_DIRECCION,'#10'     CALLE, CODIGO_P' +
-              'OSTAL, POBLACION, PROVINCIA, PERSONA_CONTACTO,'#10'     TELEFONO, IM' +
+              'OSTAL, POBLACION, PROVINCIA, PERSONA_CONTACTO,'#10'     TELEFONO, MO' +
-              'PORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10'     B' +
+              'VIL, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO,'#10 +
-              'ASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10 +
+              '     BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIO' +
-              '     INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFIC' +
+              'NES, '#10'     INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_M' +
-              'ACION, '#10'     USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' +
+              'ODIFICACION, '#10'     USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO,' +
-              '_ENVIO, '#10'     FECHA_RECEPCION, ID_TIENDA)'#10'  VALUES'#10'    (:ID, :ID' +
+              ' FECHA_ENVIO, '#10'     FECHA_RECEPCION, ID_TIENDA)'#10'  VALUES'#10'    (:I' +
-              '_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10'     ' +
+              'D, :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,' +
-              ':REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA, :ID_D' +
+              #10'     :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA,' +
-              'IRECCION,'#10'     :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :' +
+              ' :ID_DIRECCION,'#10'     :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVIN' +
-              'PERSONA_CONTACTO,'#10'     :TELEFONO, :IMPORTE_NETO, :IMPORTE_PORTE,' +
+              'CIA, :PERSONA_CONTACTO,'#10'     :TELEFONO, :MOVIL, :IMPORTE_NETO, :' +
-              ' :DESCUENTO, :IMPORTE_DESCUENTO,'#10'     :BASE_IMPONIBLE, :IVA, :IM' +
+              'IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10'     :BASE_IMPONI' +
-              'PORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10'     :INCIDENCIAS, :I' +
+              'BLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10'     :I' +
-              'NCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION,'#10'     :USUA' +
+              'NCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :FECHA_MODI' +
-              'RIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVIO, :FECHA' +
+              'FICACION,'#10'     :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, ' +
-              '_RECEPCION,'#10'     :ID_TIENDA)'#10'     '#10'     '#10#10
+              ':FECHA_ENVIO, :FECHA_RECEPCION,'#10'     :ID_TIENDA)'#10'     '#10'     '#10#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -824,142 +878,183 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
         Params = <
           item
             Name = 'ID_EMPRESA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'ID_CLIENTE'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'FECHA_ALBARAN'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'TIPO'
+            DataType = datString
+            Size = 1
             Value = ''
           end
           item
             Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'REFERENCIA_CLIENTE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'ID_ALMACEN'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'ID_PEDIDO'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'ID_FACTURA'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'ID_DIRECCION'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'CALLE'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'CODIGO_POSTAL'
+            DataType = datString
+            Size = 10
             Value = ''
           end
           item
             Name = 'POBLACION'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'PROVINCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'PERSONA_CONTACTO'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
             Name = 'TELEFONO'
+            DataType = datString
+            Size = 25
+            Value = ''
+          end
+          item
+            Name = 'MOVIL'
+            DataType = datString
+            Size = 25
             Value = ''
           end
           item
             Name = 'IMPORTE_NETO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_PORTE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'DESCUENTO'
+            DataType = datFloat
             Value = ''
           end
           item
             Name = 'IMPORTE_DESCUENTO'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'BASE_IMPONIBLE'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IVA'
+            DataType = datFloat
             Value = ''
           end
           item
             Name = 'IMPORTE_IVA'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'IMPORTE_TOTAL'
+            DataType = datCurrency
             Value = ''
           end
           item
             Name = 'OBSERVACIONES'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'INCIDENCIAS'
+            DataType = datMemo
             Value = ''
           end
           item
             Name = 'INCIDENCIAS_ACTIVAS'
-            Value = ''
+            DataType = datSmallInt
-          end
-          item
-            Name = 'FECHA_ALTA'
-            Value = ''
-          end
-          item
-            Name = 'FECHA_MODIFICACION'
             Value = ''
           end
           item
             Name = 'USUARIO'
+            DataType = datString
+            Size = 30
             Value = ''
           end
           item
             Name = 'ID_FORMA_PAGO'
+            DataType = datInteger
             Value = ''
           end
           item
             Name = 'FECHA_PREVISTA_ENVIO'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_ENVIO'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'FECHA_RECEPCION'
+            DataType = datDateTime
             Value = ''
           end
           item
             Name = 'ID_TIENDA'
+            DataType = datInteger
             Value = ''
           end
           item
@@ -980,18 +1075,18 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
               'DIRECCION = :ID_DIRECCION,'#10'    CALLE = :CALLE,'#10'    CODIGO_POSTAL' +
               ' = :CODIGO_POSTAL, '#10'    POBLACION = :POBLACION, '#10'    PROVINCIA =' +
               ' :PROVINCIA, '#10'    PERSONA_CONTACTO = :PERSONA_CONTACTO, '#10'    TEL' +
-              'EFONO = :TELEFONO, '#10'    IMPORTE_NETO = :IMPORTE_NETO, '#10'    IMPOR' +
+              'EFONO = :TELEFONO, '#10'    MOVIL = :MOVIL,'#10'    IMPORTE_NETO = :IMPO' +
-              'TE_PORTE = :IMPORTE_PORTE, '#10'    DESCUENTO = :DESCUENTO, '#10'    IMP' +
+              'RTE_NETO, '#10'    IMPORTE_PORTE = :IMPORTE_PORTE, '#10'    DESCUENTO = ' +
-              'ORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10'    BASE_IMPONIBLE = :BASE' +
+              ':DESCUENTO, '#10'    IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10'    BA' +
-              '_IMPONIBLE, '#10'    IVA = :IVA, '#10'    IMPORTE_IVA = :IMPORTE_IVA, '#10' ' +
+              'SE_IMPONIBLE = :BASE_IMPONIBLE, '#10'    IVA = :IVA, '#10'    IMPORTE_IV' +
-              '   IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10'    OBSERVACIONES = :OBSERVA' +
+              'A = :IMPORTE_IVA, '#10'    IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10'    OBSE' +
-              'CIONES, '#10'    INCIDENCIAS = :INCIDENCIAS, '#10'    INCIDENCIAS_ACTIVA' +
+              'RVACIONES = :OBSERVACIONES, '#10'    INCIDENCIAS = :INCIDENCIAS, '#10'  ' +
-              'S = :INCIDENCIAS_ACTIVAS, '#10'    FECHA_ALTA = :FECHA_ALTA, '#10'    FE' +
+              '  INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10'    FECHA_MODIFIC' +
-              'CHA_MODIFICACION = :FECHA_MODIFICACION, '#10'    USUARIO = :USUARIO,' +
+              'ACION = CURRENT_TIMESTAMP,'#10'    USUARIO = :USUARIO, '#10'    ID_FORMA' +
-              ' '#10'    ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10'    FECHA_PREVISTA_ENVIO ' +
+              '_PAGO = :ID_FORMA_PAGO, '#10'    FECHA_PREVISTA_ENVIO = :FECHA_PREVI' +
-              '= :FECHA_PREVISTA_ENVIO, '#10'    FECHA_ENVIO = :FECHA_ENVIO, '#10'    F' +
+              'STA_ENVIO, '#10'    FECHA_ENVIO = :FECHA_ENVIO, '#10'    FECHA_RECEPCION' +
-              'ECHA_RECEPCION = :FECHA_RECEPCION,'#10'    ID_TIENDA = :ID_TIENDA'#10'  ' +
+              ' = :FECHA_RECEPCION,'#10'    ID_TIENDA = :ID_TIENDA'#10'  WHERE'#10'    (ID ' +
-              'WHERE'#10'    (ID = :OLD_ID)'#10
+              '= :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm

@@ -159,7 +159,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
     Height = 376
     TabOrder = 1
     OnChanging = pgPaginasChanging
-    ExplicitTop = 109
     ExplicitWidth = 759
     ExplicitHeight = 376
     inherited pagGeneral: TTabSheet
@@ -291,11 +290,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
       inherited ImporteDto: TcxDBCurrencyEdit
         Left = 164
         Top = 38
-        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 164
         ExplicitTop = 38
         ExplicitWidth = 188
@@ -305,11 +300,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         Left = 555
         Top = 88
         DataBinding.DataField = ''
-        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 555
         ExplicitTop = 88
         ExplicitWidth = 182
@@ -318,11 +309,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
       inherited ImporteTotal: TcxDBCurrencyEdit
         Left = 485
         Top = 142
-        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 485
         ExplicitTop = 142
         ExplicitWidth = 252
@@ -331,11 +318,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
       inherited edtDescuento: TcxDBSpinEdit
         Left = 93
         Top = 38
-        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 93
         ExplicitTop = 38
       end
@@ -343,22 +326,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         Left = 484
         Top = 88
         DataBinding.DataField = ''
-        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 484
         ExplicitTop = 88
       end
       inherited ImporteBase: TcxDBCurrencyEdit
         Left = 484
         Top = 11
-        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 484
         ExplicitTop = 11
         ExplicitWidth = 253
@@ -368,11 +343,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         Left = 484
         Top = 115
         DataBinding.DataField = ''
-        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 484
         ExplicitTop = 115
       end
@@ -380,11 +351,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         Left = 555
         Top = 115
         DataBinding.DataField = ''
-        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 555
         ExplicitTop = 115
         ExplicitWidth = 182
@@ -393,11 +360,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
       inherited eImporteNeto: TcxDBCurrencyEdit
         Left = 93
         Top = 11
-        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 93
         ExplicitTop = 11
         ExplicitWidth = 259
@@ -407,11 +370,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         Left = 93
         Top = 65
         Properties.OnValidate = frViewTotales1ePortePropertiesValidate
-        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 93
         ExplicitTop = 65
         ExplicitWidth = 259
@@ -421,10 +380,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         Left = 93
         Top = 92
         DataBinding.DataField = ''
-        Style.LookAndFeel.SkinName = ''
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 93
         ExplicitTop = 92
         ExplicitWidth = 121
@@ -441,10 +396,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
         Top = 119
         DataBinding.DataField = ''
         DataBinding.DataSource = nil
-        Style.LookAndFeel.SkinName = ''
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 93
         ExplicitTop = 119
         ExplicitWidth = 259

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm

@@ -1,15 +1,15 @@
 inherited frViewAlbaranCliente: TfrViewAlbaranCliente
   Width = 825
-  Height = 650
+  Height = 512
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
   ExplicitWidth = 825
-  ExplicitHeight = 650
+  ExplicitHeight = 512
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
     Width = 825
-    Height = 650
+    Height = 512
     Align = alClient
     ParentBackground = True
     TabOrder = 0
@@ -17,10 +17,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
     AutoContentSizes = [acsWidth, acsHeight]
     DesignSize = (
       825
-      650)
+      512)
     object Label1: TLabel
-      Left = 351
+      Left = 344
-      Top = 597
+      Top = 622
       Width = 299
       Height = 26
       Caption = 
@@ -81,10 +81,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 284
     end
     inline frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
-      Left = 351
+      Left = 344
       Top = 28
-      Width = 771
+      Width = 442
-      Height = 196
+      Height = 221
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
       Font.Height = -11
@@ -93,53 +93,44 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       ParentFont = False
       TabOrder = 10
       ReadOnly = False
-      ExplicitLeft = 351
+      ExplicitLeft = 344
       ExplicitTop = 28
-      ExplicitWidth = 771
+      ExplicitWidth = 442
+      ExplicitHeight = 221
       inherited dxLayoutControl1: TdxLayoutControl
-        Width = 771
+        Width = 442
-        ExplicitWidth = 771
+        Height = 221
+        ExplicitWidth = 452
+        ExplicitHeight = 226
         inherited edtlNombre: TcxDBTextEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 224
           Width = 224
         end
         inherited edtNIFCIF: TcxDBTextEdit
-          Left = 339
+          ExplicitWidth = 103
-          Style.LookAndFeel.SkinName = ''
+          Width = 103
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 339
         end
-        inherited Button3: TBitBtn
+        inherited bVerFichaCliente: TBitBtn
-          Left = 250
+          Left = 240
-          ExplicitLeft = 250
+          ExplicitLeft = 240
-        end
-        inherited edtPersonaContacto: TcxDBTextEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
-          ExplicitWidth = 283
-          Width = 283
         end
         inherited edtDireccion: TcxMemo
-          Style.LookAndFeel.SkinName = ''
+          ExplicitWidth = 437
-          StyleDisabled.LookAndFeel.SkinName = ''
+          Width = 437
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
         end
-        inherited Button4: TButton
+        inherited bElegirDireccion: TButton
-          Left = 419
+          Left = 409
-          ExplicitLeft = 419
+          ExplicitLeft = 409
         end
-        inherited Button5: TButton
+        inherited edtTelefonos: TcxTextEdit
-          Left = 419
+          ExplicitWidth = 193
-          ExplicitLeft = 419
+          Width = 193
+        end
+        inherited edtReferencia: TcxDBTextEdit
+          Left = 282
+          ExplicitLeft = 282
+          ExplicitWidth = 103
+          Width = 103
         end
       end
       inherited ActionList1: TActionList
@@ -150,8 +141,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       end
     end
     object eCalle: TcxDBTextEdit
-      Left = 445
+      Left = 438
-      Top = 371
+      Top = 396
       DataBinding.DataField = 'CALLE'
       DataBinding.DataSource = DADataSource
       Style.BorderColor = clWindowFrame
@@ -169,8 +160,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 284
     end
     object ePoblacion: TcxDBTextEdit
-      Left = 445
+      Left = 438
-      Top = 398
+      Top = 423
       DataBinding.DataField = 'POBLACION'
       DataBinding.DataSource = DADataSource
       Style.BorderColor = clWindowFrame
@@ -188,8 +179,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 61
     end
     object eCodigoPostal: TcxDBTextEdit
-      Left = 738
+      Left = 721
-      Top = 398
+      Top = 423
       DataBinding.DataField = 'CODIGO_POSTAL'
       DataBinding.DataSource = DADataSource
       Style.BorderColor = clWindowFrame
@@ -207,8 +198,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 65
     end
     object eProvincia: TcxDBTextEdit
-      Left = 445
+      Left = 438
-      Top = 425
+      Top = 450
       DataBinding.DataField = 'PROVINCIA'
       DataBinding.DataSource = DADataSource
       Style.BorderColor = clWindowFrame
@@ -226,8 +217,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 406
     end
     object ePersonaContacto: TcxDBTextEdit
-      Left = 445
+      Left = 438
-      Top = 452
+      Top = 477
       DataBinding.DataField = 'PERSONA_CONTACTO'
       DataBinding.DataSource = DADataSource
       Style.BorderColor = clWindowFrame
@@ -246,8 +237,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 284
     end
     object eTlfTrabajo: TcxDBTextEdit
-      Left = 445
+      Left = 438
-      Top = 479
+      Top = 504
       DataBinding.DataField = 'TELEFONO'
       DataBinding.DataSource = DADataSource
       Style.BorderColor = clWindowFrame
@@ -265,8 +256,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 284
     end
     object bElegirDireccion: TBitBtn
-      Left = 631
+      Left = 614
-      Top = 506
+      Top = 531
       Width = 172
       Height = 23
       Action = actElegirDireccion
@@ -274,7 +265,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       TabOrder = 20
     end
     object Button1: TButton
-      Left = 189
+      Left = 182
       Top = 138
       Width = 132
       Height = 23
@@ -336,7 +327,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 146
     end
     object bFormasPago: TButton
-      Left = 189
+      Left = 182
       Top = 109
       Width = 132
       Height = 23
@@ -345,8 +336,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       OnClick = bFormasPagoClick
     end
     object eFechaRecepcion: TcxDBDateEdit
-      Left = 485
+      Left = 478
-      Top = 314
+      Top = 339
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_RECEPCION'
       DataBinding.DataSource = DADataSource
@@ -370,8 +361,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 239
     end
     object cbConAlmacen: TCheckBox
-      Left = 361
+      Left = 354
-      Top = 565
+      Top = 590
       Width = 179
       Height = 21
       Caption = 'Asociar este albar'#225'n al almac'#233'n:'
@@ -379,8 +370,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       OnClick = cbConAlmacenClick
     end
     object cbAlmacen: TcxDBLookupComboBox
-      Left = 546
+      Left = 539
-      Top = 565
+      Top = 590
       DataBinding.DataField = 'ID_ALMACEN'
       DataBinding.DataSource = DADataSource
       Properties.KeyFieldNames = 'ID'
@@ -435,8 +426,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 284
     end
     object eFechaPrevista: TcxDBDateEdit
-      Left = 485
+      Left = 478
-      Top = 260
+      Top = 285
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
       DataBinding.DataSource = DADataSource
@@ -459,7 +450,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 11
-      Width = 239
+      Width = 202
     end
     object eRefCliente: TcxDBTextEdit
       Left = 116
@@ -487,8 +478,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 284
     end
     object eFechaEnvio: TcxDBDateEdit
-      Left = 485
+      Left = 478
-      Top = 287
+      Top = 312
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_ENVIO'
       DataBinding.DataSource = DADataSource

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas

@@ -286,12 +286,12 @@ end;
 
 procedure TfrViewAlbaranCliente.frViewClienteAlbaranButton1Click(Sender: TObject);
 begin
-  if Assigned(Albaran) and Assigned(Albaran.Cliente) and
+  {if Assigned(Albaran) and Assigned(Albaran.Cliente) and
     Assigned (Albaran.Detalles) and (Albaran.Detalles.RecordCount > 0) then
   begin
     if (Application.MessageBox('Los descuentos de los artículos del albarán serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
       Exit;
-  end;
+  end;}
   frViewClienteAlbaran.actElegirContacto.Execute;
 end;
 

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas

@@ -13,7 +13,7 @@ uses
   cxGrid,
   uBizAlbaranesCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ComCtrls, Tabs,
   cxPC, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg,
-  uDAInterfaces;
+  uDAInterfaces, uCustomView, uViewBase;
 
 type
   IViewAlbaranesCliente = interface(IViewGrid)
@@ -84,9 +84,8 @@ type
     FAlbaranes: IBizAlbaranCliente;
     function GetAlbaranes: IBizAlbaranCliente;
     procedure SetAlbaranes(const Value: IBizAlbaranCliente);
-    procedure AnadirOtrosFiltros; override;
-
   public
+    procedure AnadirOtrosFiltros; override;
     property Albaranes: IBizAlbaranCliente read GetAlbaranes write SetAlbaranes;
   end;
 

Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.dfm

@@ -1,13 +1,13 @@
 inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
-  Width = 505
+  Width = 579
-  Height = 196
+  Height = 220
-  ExplicitWidth = 505
+  ExplicitWidth = 579
-  ExplicitHeight = 196
+  ExplicitHeight = 220
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 505
+    Width = 579
-    Height = 196
+    Height = 220
     Margins.Left = 0
     Margins.Top = 0
     Margins.Right = 0
@@ -17,17 +17,18 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
+    ExplicitWidth = 447
+    ExplicitHeight = 224
     DesignSize = (
-      505
+      579
-      196)
+      220)
     object edtlNombre: TcxDBTextEdit
-      Left = 63
+      Left = 66
       Top = 41
       Anchors = [akLeft, akTop, akRight]
       AutoSize = False
       DataBinding.DataField = 'NOMBRE'
       DataBinding.DataSource = dsCliente
-      Enabled = False
       ParentFont = False
       Properties.ReadOnly = True
       Properties.UseLeftAlignmentOnEditing = False
@@ -35,26 +36,21 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
       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
+      Left = 66
-      Top = 41
+      Top = 68
       Anchors = [akLeft, akTop, akRight]
       AutoSize = False
       DataBinding.DataField = 'NIF_CIF'
       DataBinding.DataSource = dsCliente
-      Enabled = False
       ParentFont = False
       Properties.ReadOnly = True
       Properties.UseLeftAlignmentOnEditing = False
@@ -62,19 +58,15 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
       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 Button1: TBitBtn
+    object bElegirCliente: TBitBtn
       Left = 10
       Top = 10
       Width = 115
@@ -118,7 +110,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
         FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
         E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
     end
-    object Button2: TBitBtn
+    object bNuevoCliente: TBitBtn
       Left = 131
       Top = 10
       Width = 143
@@ -162,9 +154,9 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
         FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
         FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
     end
-    object Button3: TBitBtn
+    object bVerFichaCliente: TBitBtn
-      Left = 303
+      Left = 377
-      Top = 158
+      Top = 181
       Width = 192
       Height = 25
       Action = actVerContacto
@@ -206,68 +198,72 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
         FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
         FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
     end
-    object edtPersonaContacto: TcxDBTextEdit
-      Left = 63
-      Top = 129
-      Anchors = [akLeft, akTop, akRight]
-      AutoSize = False
-      DataBinding.DataField = 'PERSONA_CONTACTO'
-      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: TcxMemo
-      Left = 63
+      Left = 66
-      Top = 68
+      Top = 95
       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 = 5
-      TabOrder = 4
       Height = 53
-      Width = 403
+      Width = 437
     end
-    object Button4: TButton
+    object bElegirDireccion: TButton
-      Left = 472
+      Left = 546
-      Top = 68
+      Top = 95
       Width = 23
       Height = 25
       Action = actElegirDireccion
-      TabOrder = 5
+      TabOrder = 6
     end
-    object Button5: TButton
+    object edtTelefonos: TcxTextEdit
-      Left = 472
+      Left = 66
-      Top = 127
+      Top = 154
-      Width = 23
+      Style.BorderColor = clWindowFrame
-      Height = 25
+      Style.BorderStyle = ebs3D
-      Action = actElegirPersonaContacto
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 7
+      Width = 302
+    end
+    object edtReferencia: TcxDBTextEdit
+      Left = 349
+      Top = 68
+      Anchors = [akLeft, akTop, akRight]
+      AutoSize = False
+      DataBinding.DataField = 'REFERENCIA'
+      DataBinding.DataSource = dsCliente
+      ParentFont = False
+      Properties.ReadOnly = True
+      Properties.UseLeftAlignmentOnEditing = False
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 4
+      Height = 21
+      Width = 103
     end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
@@ -276,46 +272,53 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
       object dxLayoutControl1Group1: TdxLayoutGroup
         ShowCaption = False
         Hidden = True
-        LayoutDirection = ldHorizontal
         ShowBorder = False
-        object dxLayoutControl1Item7: TdxLayoutItem
+        object dxLayoutControl1Group6: TdxLayoutGroup
-          Caption = 'Button1'
-          ShowCaption = False
-          Control = Button1
-          ControlOptions.ShowBorder = False
-        end
-        object dxLayoutControl1Item8: TdxLayoutItem
-          Caption = 'Button2'
-          ShowCaption = False
-          Control = Button2
-          ControlOptions.ShowBorder = False
-        end
-      end
-      object dxLayoutControl1Group2: TdxLayoutGroup
-        ShowCaption = False
-        Hidden = True
-        ShowBorder = False
-        object dxLayoutControl1Group4: TdxLayoutGroup
           ShowCaption = False
           Hidden = True
           LayoutDirection = ldHorizontal
           ShowBorder = False
-          object dxLayoutControl1Item1: TdxLayoutItem
+          object dxLayoutControl1Item7: TdxLayoutItem
-            AutoAligns = [aaVertical]
+            Caption = 'Button1'
-            AlignHorz = ahClient
+            ShowCaption = False
-            Caption = 'Nombre:'
+            Control = bElegirCliente
-            Control = edtlNombre
             ControlOptions.ShowBorder = False
           end
+          object dxLayoutControl1Item8: TdxLayoutItem
+            Caption = 'Button2'
+            ShowCaption = False
+            Control = bNuevoCliente
+            ControlOptions.ShowBorder = False
+          end
+        end
+        object dxLayoutControl1Item1: TdxLayoutItem
+          AutoAligns = [aaVertical]
+          AlignHorz = ahClient
+          Caption = 'Nombre:'
+          Control = edtlNombre
+          ControlOptions.ShowBorder = False
+        end
+        object dxLayoutControl1Group3: TdxLayoutGroup
+          ShowCaption = False
+          Hidden = True
+          LayoutDirection = ldHorizontal
+          ShowBorder = False
           object dxLayoutControl1Item2: TdxLayoutItem
             AutoAligns = [aaVertical]
-            AlignHorz = ahRight
+            AlignHorz = ahClient
             Caption = 'NIF/CIF:'
             Control = edtNIFCIF
             ControlOptions.ShowBorder = False
           end
+          object dxLayoutControl1Item11: TdxLayoutItem
+            AutoAligns = [aaVertical]
+            AlignHorz = ahClient
+            Caption = 'Referencia:'
+            Control = edtReferencia
+            ControlOptions.ShowBorder = False
+          end
         end
-        object dxLayoutControl1Group3: TdxLayoutGroup
+        object dxLayoutControl1Group2: TdxLayoutGroup
           ShowCaption = False
           Hidden = True
           LayoutDirection = ldHorizontal
@@ -324,8 +327,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
             AutoAligns = []
             AlignHorz = ahClient
             AlignVert = avCenter
-            Caption = 'Direcci'#243'n'
+            Caption = 'Direcci'#243'n:'
-            CaptionOptions.AlignVert = tavTop
             Control = edtDireccion
             ControlOptions.ShowBorder = False
           end
@@ -334,30 +336,16 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
             AlignHorz = ahRight
             Caption = 'Button4'
             ShowCaption = False
-            Control = Button4
+            Control = bElegirDireccion
             ControlOptions.ShowBorder = False
           end
         end
-        object dxLayoutControl1Group5: TdxLayoutGroup
+        object dxLayoutControl1Item10: TdxLayoutItem
-          ShowCaption = False
+          AutoAligns = [aaVertical]
-          Hidden = True
+          AlignHorz = ahClient
-          LayoutDirection = ldHorizontal
+          Caption = 'Tel'#233'fonos:'
-          ShowBorder = False
+          Control = edtTelefonos
-          object dxLayoutControl1Item3: TdxLayoutItem
+          ControlOptions.ShowBorder = False
-            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
       end
       object dxLayoutControl1Item9: TdxLayoutItem
@@ -365,7 +353,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
         AlignHorz = ahRight
         Caption = 'Button3'
         ShowCaption = False
-        Control = Button3
+        Control = bVerFichaCliente
         ControlOptions.ShowBorder = False
       end
     end
@@ -399,11 +387,6 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
       OnExecute = actElegirDireccionExecute
       OnUpdate = actElegirDireccionUpdate
     end
-    object actElegirPersonaContacto: TAction
-      Caption = '...'
-      OnExecute = actElegirPersonaContactoExecute
-      OnUpdate = actElegirPersonaContactoUpdate
-    end
   end
   object PngImageList: TPngImageList
     PngImages = <

Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas

@@ -15,7 +15,7 @@ uses
 
 type
   IViewDatosYSeleccionClienteAlbaran = interface(IViewBase)
-    ['{02F0A00C-FAE7-43A4-B959-D2B929FF287A}']
+  ['{7C180225-6C92-4F43-948A-4F67CD9A168D}']
     function GetAlbaran: IBizAlbaranCliente;
     procedure SetAlbaran(const Value: IBizAlbaranCliente);
     property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
@@ -33,12 +33,11 @@ type
     property OnClienteChanged : TNotifyEvent read GetOnClienteChanged
       write SetOnClienteChanged;
 
-    procedure ElegirPersonaContacto;
+    procedure ElegirDireccionParaAlbaran;
-    procedure ElegirDireccionCliente;
     procedure ElegirCliente;
     procedure VerFichaCliente;
     procedure AnadirNuevoCliente;
-    procedure RefrescarDireccion;
+    procedure RefrescarDireccion;   
   end;
 
   TfrViewDatosYSeleccionClienteAlbaran = class(TfrViewBase, IViewDatosYSeleccionClienteAlbaran)
@@ -54,50 +53,44 @@ type
     edtlNombre: TcxDBTextEdit;
     dxLayoutControl1Item2: TdxLayoutItem;
     edtNIFCIF: TcxDBTextEdit;
-    Button1: TBitBtn;
+    bElegirCliente: TBitBtn;
     dxLayoutControl1Item7: TdxLayoutItem;
-    Button2: TBitBtn;
+    bNuevoCliente: TBitBtn;
     dxLayoutControl1Item8: TdxLayoutItem;
-    Button3: TBitBtn;
+    bVerFichaCliente: TBitBtn;
     dxLayoutControl1Item9: TdxLayoutItem;
     dxLayoutControl1Group1: TdxLayoutGroup;
     dxLayoutControl1Group2: TdxLayoutGroup;
     dsAlbaran: TDADataSource;
     actElegirDireccion: TAction;
-    actElegirPersonaContacto: TAction;
-    dxLayoutControl1Item3: TdxLayoutItem;
-    edtPersonaContacto: TcxDBTextEdit;
-    dxLayoutControl1Group4: TdxLayoutGroup;
     dxLayoutControl1Item4: TdxLayoutItem;
     edtDireccion: TcxMemo;
-    Button4: TButton;
+    bElegirDireccion: TButton;
     dxLayoutControl1Item5: TdxLayoutItem;
+    dxLayoutControl1Item10: TdxLayoutItem;
+    edtTelefonos: TcxTextEdit;
+    dxLayoutControl1Item11: TdxLayoutItem;
+    edtReferencia: TcxDBTextEdit;
+    dxLayoutControl1Group6: TdxLayoutGroup;
     dxLayoutControl1Group3: TdxLayoutGroup;
-    dxLayoutControl1Item6: TdxLayoutItem;
-    Button5: TButton;
-    dxLayoutControl1Group5: TdxLayoutGroup;
     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
     FOnClienteChanged : TNotifyEvent;
     FMsgElegirCliente: String;
+    procedure EscribirTextoTelefonos;
   protected
     FClientesController : IClientesController;
     FDireccionesController : IDireccionesContactoController;
     FAlbaran : IBizAlbaranCliente;
     FCliente : IBizCliente;
-    FDireccion : IBizDireccionesContacto;
+
     function GetCliente: IBizCliente; virtual;
     procedure SetCliente(Value: IBizCliente); virtual;
     function GetOnClienteChanged : TNotifyEvent;
@@ -111,12 +104,11 @@ type
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
-    procedure ElegirPersonaContacto;
+    procedure ElegirDireccionParaAlbaran;
-    procedure ElegirDireccionCliente;
     procedure ElegirCliente;
     procedure VerFichaCliente;
     procedure AnadirNuevoCliente;
-    procedure RefrescarDireccion;
+    procedure RefrescarDireccion;   
     property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
     property Cliente: IBizCliente read GetCliente write SetCliente;
     property OnClienteChanged : TNotifyEvent read GetOnClienteChanged write SetOnClienteChanged;
@@ -128,7 +120,7 @@ implementation
 {$R *.dfm}
 
 uses
-  uDataModuleClientes, Math, uCustomView, uBizContactosPersonal, uDialogUtils;
+  uDataModuleClientes, Math, uCustomView, uDialogUtils;
 
 
 procedure TfrViewDatosYSeleccionClienteAlbaran.actElegirContactoExecute(Sender: TObject);
@@ -140,30 +132,17 @@ procedure TfrViewDatosYSeleccionClienteAlbaran.actElegirDireccionExecute(
   Sender: TObject);
 begin
   inherited;
-  ElegirDireccionCliente;
+  ElegirDireccionParaAlbaran;
+  RefrescarDireccion;
 end;
 
 procedure TfrViewDatosYSeleccionClienteAlbaran.actElegirDireccionUpdate(
   Sender: TObject);
 begin
   inherited;
-  (Sender as TAction).Enabled := Assigned(FCliente.Direcciones) and
+  (Sender as TAction).Enabled := Assigned(FCliente) and
-      (FCliente.Direcciones.Active) and (FCliente.Direcciones.RecordCount > 0);
+      Assigned(FCliente.Direcciones) and (FCliente.Direcciones.Active)
-end;
+      and (FCliente.Direcciones.RecordCount > 0);
-
-procedure TfrViewDatosYSeleccionClienteAlbaran.actElegirPersonaContactoExecute(
-  Sender: TObject);
-begin
-  inherited;
-  ElegirPersonaContacto;
-end;
-
-procedure TfrViewDatosYSeleccionClienteAlbaran.actElegirPersonaContactoUpdate(
-  Sender: TObject);
-begin
-  inherited;
-  (Sender as TAction).Enabled := Assigned(FCliente.Personal) and
-      (FCliente.Personal.Active) and (FCliente.Personal.RecordCount > 0);
 end;
 
 procedure TfrViewDatosYSeleccionClienteAlbaran.actAnadirContactoExecute(
@@ -198,14 +177,15 @@ end;
 constructor TfrViewDatosYSeleccionClienteAlbaran.Create(AOwner: TComponent);
 begin
   inherited;
-  FMsgElegirCliente := 'Elija el cliente al que se le realizará el presupuesto.';
+  FMsgElegirCliente := 'Elija el cliente al que se le realizará el albarán.';
   FClientesController := TClientesController.Create;
   FDireccionesController := TDireccionesContactoController.Create;
 
   edtlNombre.Enabled := False;
   edtNIFCIF.Enabled := False;
   edtDireccion.Enabled := False;
-  edtPersonaContacto.Enabled := False;
+  edtReferencia.Enabled := False;
+  edtTelefonos.Enabled := False;
 end;
 
 destructor TfrViewDatosYSeleccionClienteAlbaran.Destroy;
@@ -219,14 +199,7 @@ procedure TfrViewDatosYSeleccionClienteAlbaran.edtDireccionPropertiesButtonClick
   Sender: TObject; AButtonIndex: Integer);
 begin
   inherited;
-  ElegirDireccionCliente;
+  ElegirDireccionParaAlbaran;
-end;
-
-procedure TfrViewDatosYSeleccionClienteAlbaran.edtPersonaContactoPropertiesButtonClick(
-  Sender: TObject; AButtonIndex: Integer);
-begin
-  inherited;
-  ElegirPersonaContacto;
 end;
 
 procedure TfrViewDatosYSeleccionClienteAlbaran.ElegirCliente;
@@ -242,45 +215,47 @@ begin
   ACliente := Nil;
 end;
 
-procedure TfrViewDatosYSeleccionClienteAlbaran.ElegirDireccionCliente;
+procedure TfrViewDatosYSeleccionClienteAlbaran.ElegirDireccionParaAlbaran;
 var
   ADireccion : IBizDireccionesContacto;
 begin
-  inherited;
+  if FCliente.Direcciones.RecordCount > 0 then
-  ADireccion := FClientesController.ElegirDireccion(FCliente, ' ');
+    ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, 'El cliente dispone de varias direcciones. Seleccione la que quiere utilizar.')
+  else begin
+    ADireccion := FDireccionesController.Nuevo;
+    FDireccionesController.CopiarDireccionFiscal(FCliente, ADireccion);
+  end;
 
   if Assigned(ADireccion) then
   begin
-    FDireccion := ADireccion;
     FAlbaran.Edit;
+    try
+      if ADireccion.IDIsNull then   // Se ha elegido la dirección de razón social
+      begin
+        FAlbaran.ClearField('ID_DIRECCION');
+        FAlbaran.ClearField('IMPORTE_PORTE');
+      end
+      else begin
+        FAlbaran.ID_DIRECCION := ADireccion.ID;
+        FAlbaran.IMPORTE_PORTE := ADireccion.PORTE;
+      end;
 
-    if FDireccion.IDIsNull then // Es la dirección de la razón social
+      with FAlbaran do
-    begin
+      begin
-      FAlbaran.ClearField('ID_DIRECCION');
+        CALLE := ADireccion.CALLE;
-      FAlbaran.ClearField('IMPORTE_PORTE');
+        POBLACION := ADireccion.POBLACION;
-    end
+        CODIGO_POSTAL := ADireccion.CODIGO_POSTAL;
-    else begin
+        PROVINCIA := ADireccion.PROVINCIA;
-      FAlbaran.ID_DIRECCION := FDireccion.ID;
+        PERSONA_CONTACTO := ADireccion.PERSONA_CONTACTO;
-      FAlbaran.IMPORTE_PORTE := FDireccion.PORTE;
+        TELEFONO := ADireccion.TELEFONO;
+        MOVIL := ADireccion.MOVIL;
+      end;
+    finally
+      FAlbaran.Post;
     end;
-    //Siempre asignaremos la persona de contacto ya sea de las direcciones del contacto o la ID_Direccion=0 que es la principal de la ficha
-    FAlbaran.PERSONA_CONTACTO := FDireccion.PERSONA_CONTACTO;
-    EscribirTextoDireccion;
   end;
 end;
 
-procedure TfrViewDatosYSeleccionClienteAlbaran.ElegirPersonaContacto;
-var
-  APersona : IBizContactoPersonal;
-begin
-  inherited;
-  APersona := FClientesController.ElegirPersonaContacto(FCliente.Personal, 'El cliente 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 := APersona.NOMBRE;
-  end;
-end;
 
 procedure TfrViewDatosYSeleccionClienteAlbaran.EscribirTextoDireccion;
 var
@@ -288,10 +263,10 @@ var
 begin
   ACadena := '';
 
-  if Assigned(FDireccion) then
+  if Assigned(FAlbaran) then
     ACadena := Format('%s %s %s %s',
-      [FDireccion.CALLE, FDireccion.POBLACION,
+      [FAlbaran.CALLE, FAlbaran.POBLACION,
-      FDireccion.CODIGO_POSTAL, FDireccion.PROVINCIA]);
+      FAlbaran.CODIGO_POSTAL, FAlbaran.PROVINCIA]);
 
   edtDireccion.Text := ACadena;
 end;
@@ -309,8 +284,12 @@ begin
 end;
 
 procedure TfrViewDatosYSeleccionClienteAlbaran.SetCliente(Value: IBizCliente);
+var
+  ADireccion : IBizDireccionesContacto;
 begin
+  ADireccion := NIL;
   FCliente := Value;
+
   if Assigned(FCliente) then
   begin
     dsCliente.DataTable := FCliente.DataTable;
@@ -318,23 +297,13 @@ begin
     if not FCliente.DataTable.Active then
       FCliente.DataTable.Active := True;
 
-    //Solo podremos establecer persona de contacto si se ha asignado un cliente
+    ElegirDireccionParaAlbaran;
-    if FCliente.ID > 0 then
+    EscribirTextoDireccion;
-       edtPersonaContacto.Enabled := True;
+    EscribirTextoTelefonos;
-
-    if FCliente.Direcciones.RecordCount > 0 then
-      ElegirDireccionCliente
-    else begin
-      FAlbaran.Edit;
-      FAlbaran.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
-      RefrescarDireccion;
-    end;
   end
   else begin
     dsCliente.DataTable := NIL;
     FCliente := NIL;
-    FDireccion := NIL;
-    edtPersonaContacto.Enabled := False;
   end;
 
   if Assigned(FOnClienteChanged) then
@@ -351,24 +320,37 @@ begin
   Result := FOnClienteChanged;
 end;
 
+procedure TfrViewDatosYSeleccionClienteAlbaran.RefrescarDireccion;
+begin
+  EscribirTextoDireccion;
+  EscribirTextoTelefonos;
+end;
+
 function TfrViewDatosYSeleccionClienteAlbaran.GetAlbaran: IBizAlbaranCliente;
 begin
   Result := FAlbaran;
 end;
 
-procedure TfrViewDatosYSeleccionClienteAlbaran.RefrescarDireccion;
+procedure TfrViewDatosYSeleccionClienteAlbaran.EscribirTextoTelefonos;
+var
+  ACadena : String;
 begin
-  FDireccion := FDireccionesController.Nuevo;
+  ACadena := '';
 
-  if (not FAlbaran.ID_DIRECCIONIsNull) and
+  if not FAlbaran.TELEFONOIsNull then
-    (FDireccionesController.Localizar(FCliente.Direcciones, FAlbaran.ID_DIRECCION)) then
+    ACadena := FAlbaran.TELEFONO;
-      FDireccionesController.CopiarDireccion(FCliente.Direcciones, FDireccion)
-  else
-    FDireccionesController.CopiarDireccionFiscal(FCliente, FDireccion);
 
-  EscribirTextoDireccion;
+  if not FAlbaran.MOVILIsNull then
+  begin
+    if ACadena <> '' then
+      ACadena := ACadena + ' / ';
+    ACadena := ACadena + FAlbaran.MOVIL;
+  end;
+
+  edtTelefonos.Text := ACadena;
 end;
 
+
 procedure TfrViewDatosYSeleccionClienteAlbaran.SetOnClienteChanged(
   const Value: TNotifyEvent);
 begin
@@ -389,16 +371,17 @@ begin
     if not FCliente.DataTable.Active then
       FCliente.DataTable.Active := True;
 
-    //Solo podremos establecer persona de contacto si se ha asignado un cliente  
+    // ¿Hay cliente en el albaran?
     if FCliente.ID > 0 then
-       edtPersonaContacto.Enabled := True;
+      RefrescarDireccion
-
+    else begin
-    RefrescarDireccion;
+      edtDireccion.Lines.Clear;
+      edtTelefonos.Text := '';
+    end;
   end
   else begin
     dsAlbaran.DataTable := NIL;
     FCliente := NIL;
-    FDireccion := NIL;
   end;
 end;
 
@@ -416,7 +399,7 @@ end;
 procedure TfrViewDatosYSeleccionClienteAlbaran.VerFichaCliente;
 begin
   if not Assigned(Cliente) then
-    ShowErrorMessage('No se ha indicado un cliente', 'El presupuesto no tiene ningún cliente asociado a mostrar.')
+    ShowErrorMessage('No se ha indicado un cliente', 'El albarán no tiene ningún cliente asociado a mostrar.')
   else begin
     FClientesController.Ver(Cliente);
   end;

Source/Servidor/FactuGES_Server.dproj

@@ -1,296 +1,320 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-	<PropertyGroup>
+  <PropertyGroup>
-		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
+    <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
-		<MainSource>FactuGES_Server.dpr</MainSource>
+    <MainSource>FactuGES_Server.dpr</MainSource>
-		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-		<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
+    <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
-	</PropertyGroup>
+  </PropertyGroup>
-	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-		<Version>7.0</Version>
+    <Version>7.0</Version>
-		<DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
-		<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
-		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-		<DCC_MapFile>3</DCC_MapFile>
+    <DCC_MapFile>3</DCC_MapFile>
-		<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
+    <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
-		<DCC_Define>RELEASE</DCC_Define>
+    <DCC_Define>RELEASE</DCC_Define>
-	</PropertyGroup>
+  </PropertyGroup>
-	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-		<Version>7.0</Version>
+    <Version>7.0</Version>
-		<DCC_MapFile>3</DCC_MapFile>
+    <DCC_MapFile>3</DCC_MapFile>
-		<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
+    <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
-		<DCC_Define>DEBUG;</DCC_Define>
+    <DCC_Define>DEBUG;</DCC_Define>
-		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
-	</PropertyGroup>
+  </PropertyGroup>
-	<ProjectExtensions>
+  <ProjectExtensions>
-		<Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
-		<Borland.ProjectType/>
+    <Borland.ProjectType />
-		<BorlandProject>
+    <BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 19 de noviembre de 2009 20:26</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 19 de noviembre de 2009 20:26</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
+      
-						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
+      
-						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
+      
-					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+      
-	</ProjectExtensions>
+      
-	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
+      
-	<ItemGroup>
+      
-		<DelphiCompile Include="FactuGES_Server.dpr">
+      
-			<MainSource>MainSource</MainSource>
+      
-		</DelphiCompile>
+      
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
+      
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
+      
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
+      
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
+      
-			<Form>srvEjercicios</Form>
+      
-			<DesignClass>TDataAbstractService</DesignClass>
+      
-		</DCCReference>
+      
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
+      
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
+      
-		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+      
-			<Form>srvEmpresas</Form>
+      
-			<DesignClass>TDARemoteService</DesignClass>
+      
-		</DCCReference>
+      
-		<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
+      
-			<Form>srvProvinciasPoblaciones</Form>
+      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
-			<DesignClass>TRORemoteDataModule</DesignClass>
+      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
-		</DCCReference>
+      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
+    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
+  </ProjectExtensions>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
-		<DCCReference Include="..\Base\schBase_Intf.pas"/>
+  <ItemGroup>
-		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
+    <DelphiCompile Include="FactuGES_Server.dpr">
-		<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
+      <MainSource>MainSource</MainSource>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
+    </DelphiCompile>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
-			<Form>srvAlbaranesCliente</Form>
+      <Form>srvEjercicios</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+      <Form>srvEmpresas</Form>
-			<Form>srvAlbaranesProveedor</Form>
+      <DesignClass>TDARemoteService</DesignClass>
-			<DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
+      <Form>srvProvinciasPoblaciones</Form>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
+      <DesignClass>TRORemoteDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+    </DCCReference>
-			<Form>srvAlmacenes</Form>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
-			<DesignClass>TDARemoteService</DesignClass>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
+    <DCCReference Include="..\Base\schBase_Intf.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
+    <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
+    <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
-		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
-		<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
-			<Form>RptComisiones</Form>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>srvAlbaranesCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
+    </DCCReference>
-			<Form>srvComisiones</Form>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
-		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
+      <Form>srvAlbaranesProveedor</Form>
-		<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
+    </DCCReference>
-			<Form>srvContabilidad</Form>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
+      <Form>srvAlmacenes</Form>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
+    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
-			<Form>RptEtiquetasContacto</Form>
+    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
-			<DesignClass>TDataModule</DesignClass>
+    <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
-		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+      <Form>RptComisiones</Form>
-			<Form>srvContactos</Form>
+      <DesignClass>TDataModule</DesignClass>
-			<DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
-		<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
+      <Form>srvComisiones</Form>
-		<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
-			<Form>RptContratosCliente</Form>
+    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
-		<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
-			<Form>srvContratosCliente</Form>
+      <Form>srvContabilidad</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
-			<Form>RptFacturasCliente</Form>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
-			<DesignClass>TDataModule</DesignClass>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+      <Form>RptEtiquetasContacto</Form>
-			<Form>srvFacturasCliente</Form>
+      <DesignClass>TDataModule</DesignClass>
-			<DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
+      <Form>srvContactos</Form>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
+    <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
-			<Form>RptFacturasProveedor</Form>
+    <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
-			<DesignClass>TDataModule</DesignClass>
+    <DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+      <Form>RptContratosCliente</Form>
-			<Form>srvFacturasProveedor</Form>
+    </DCCReference>
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
-		</DCCReference>
+      <Form>srvContratosCliente</Form>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-		<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
+      <Form>RptFacturasCliente</Form>
-			<Form>srvGestorDocumentos</Form>
+      <DesignClass>TDataModule</DesignClass>
-			<DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-		<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
+      <Form>srvFacturasCliente</Form>
-			<Form>srvGestorInformes</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
-			<DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
-		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
-			<Form>srvHistoricoMovimientos</Form>
+      <Form>RptFacturasProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
+      <Form>srvFacturasProveedor</Form>
-		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+      <DesignClass>TDataAbstractService</DesignClass>
-			<Form>srvInventario</Form>
+    </DCCReference>
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
-			<Form>srvPedidosProveedor</Form>
+    <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvGestorDocumentos</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
+      <Form>srvGestorInformes</Form>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+      <DesignClass>TDataAbstractService</DesignClass>
-			<Form>RptPresupuestosCliente</Form>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
-			<Form>srvPresupuestosCliente</Form>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvHistoricoMovimientos</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
+      <Form>srvInventario</Form>
-			<Form>RptRecibosCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
-			<DesignClass>TDataModule</DesignClass>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
-			<Form>srvRecibosCliente</Form>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-		</DCCReference>
+      <Form>srvPedidosProveedor</Form>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
-			<Form>RptRecibosProveedor</Form>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>RptPresupuestosCliente</Form>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-			<Form>srvRecibosProveedor</Form>
+      <Form>srvPresupuestosCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
-			<Form>srvReferencias</Form>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-		</DCCReference>
+      <Form>RptRecibosCliente</Form>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+      <Form>srvRecibosCliente</Form>
-			<Form>srvRemesasCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
-			<DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
-			<Form>srvRemesasProveedor</Form>
+      <Form>RptRecibosProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
+      <Form>srvRecibosProveedor</Form>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
-			<Form>srvUnidadesMedida</Form>
+    <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvReferencias</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
-		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
-			<Form>srvConfiguracion</Form>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-		</DCCReference>
+      <Form>srvRemesasCliente</Form>
-		<DCCReference Include="Configuracion\uConexionBD.pas">
+      <DesignClass>TDataAbstractService</DesignClass>
-			<Form>frConexionBD</Form>
+    </DCCReference>
-			<DesignClass>TFrame</DesignClass>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
-		<DCCReference Include="Configuracion\uConfGeneral.pas">
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
-			<Form>frConfGeneral</Form>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-			<DesignClass>TFrame</DesignClass>
+      <Form>srvRemesasProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="Configuracion\uConfiguracion.pas">
+    </DCCReference>
-			<Form>fConfiguracion</Form>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
-			<DesignClass>TForm</DesignClass>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
-		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
-			<Form>FrameConfiguracion</Form>
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
-			<DesignClass>TFrame</DesignClass>
+    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-		</DCCReference>
+      <Form>srvUnidadesMedida</Form>
-		<DCCReference Include="srvLogin_Impl.pas">
+      <DesignClass>TDataAbstractService</DesignClass>
-			<Form>srvLogin</Form>
+    </DCCReference>
-			<DesignClass>TDARemoteService</DesignClass>
+    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
-		<DCCReference Include="uAcercaDe.pas">
+    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-			<Form>fAcercaDe</Form>
+      <Form>srvConfiguracion</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="uDataModuleServer.pas">
+    </DCCReference>
-			<Form>dmServer</Form>
+    <DCCReference Include="Configuracion\uConexionBD.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>frConexionBD</Form>
-		</DCCReference>
+      <DesignClass>TFrame</DesignClass>
-		<DCCReference Include="uServerMainForm.pas">
+    </DCCReference>
-			<Form>fServerForm</Form>
+    <DCCReference Include="Configuracion\uConfGeneral.pas">
-		</DCCReference>
+      <Form>frConfGeneral</Form>
-		<DCCReference Include="Utiles\RegExpr.pas"/>
+      <DesignClass>TFrame</DesignClass>
-		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
+    </DCCReference>
-		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
+    <DCCReference Include="Configuracion\uConfiguracion.pas">
-		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
+      <Form>fConfiguracion</Form>
-		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
+      <DesignClass>TForm</DesignClass>
-		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
+    </DCCReference>
-		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
+    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
+      <Form>FrameConfiguracion</Form>
-	</ItemGroup>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="srvLogin_Impl.pas">
+      <Form>srvLogin</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uAcercaDe.pas">
+      <Form>fAcercaDe</Form>
+    </DCCReference>
+    <DCCReference Include="uDataModuleServer.pas">
+      <Form>dmServer</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uServerMainForm.pas">
+      <Form>fServerForm</Form>
+    </DCCReference>
+    <DCCReference Include="Utiles\RegExpr.pas" />
+    <DCCReference Include="Utiles\uBusinessUtils.pas" />
+    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
+    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
+    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
+    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
+    <DCCReference Include="Utiles\uServerAppUtils.pas" />
+    <DCCReference Include="Utiles\uSesionesUtils.pas" />
+  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]

Source/Servidor/FactuGES_Server.rc

@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.3.9.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
               VALUE "ProductVersion", "2.3.9.0\0"
-              VALUE "CompileDate", "martes, 24 de noviembre de 2009 18:30\0"
+              VALUE "CompileDate", "miércoles, 25 de noviembre de 2009 10:09\0"
          END
     END
     BLOCK "VarFileInfo"