Se añade campo tipo_factura para las facturas, asi se podra sacar informe de facturas por tipo (Obra, banos....)

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

Database/scripts/factuges.sql

@@ -916,7 +916,8 @@ CREATE TABLE FACTURAS_CLIENTE (
     FECHA_VENCIMIENTO      DATE,
     ID_DIRECCION           TIPO_ID,    
     ID_CONTRATO            TIPO_ID,
-    SIN_COMISION           SMALLINT    
+    SIN_COMISION           SMALLINT,
+    TIPO_FACTURA           VARCHAR(255) COLLATE ES_ES        
 );    
 
 CREATE TABLE FACTURAS_CLIENTE_DETALLES (
@@ -2677,7 +2678,8 @@ CREATE VIEW V_FACTURAS_CLIENTE(
     ASIENTO_PUNTEADO,
     ID_CONTRATO,
     REF_CONTRATO,
-    SIN_COMISION)
+    SIN_COMISION,
+    TIPO_FACTURA)
 AS
 SELECT FACTURAS_CLIENTE.ID,
   FACTURAS_CLIENTE.ID_EMPRESA,
@@ -2726,7 +2728,8 @@ SELECT FACTURAS_CLIENTE.ID,
   V_CONT_FAC_CLI_VENTAS.ASIENTO_PUNTEADO,
   FACTURAS_CLIENTE.ID_CONTRATO,
   CONTRATOS_CLIENTE.REFERENCIA,
-  FACTURAS_CLIENTE.SIN_COMISION
+  FACTURAS_CLIENTE.SIN_COMISION,
+  FACTURAS_CLIENTE.TIPO_FACTURA
 
   FROM V_FAC_CLI_SITUACION
   LEFT JOIN FACTURAS_CLIENTE

Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm

@@ -308,6 +308,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
       item
         Name = 'SIN_COMISION'
         DataType = datSmallInt
+      end
+      item
+        Name = 'TIPO_FACTURA'
+        DataType = datString
+        Size = 255
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_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_ListaAnosFacturas = '{0B7FFA50-F8E0-48C1-A562-D787DFD31113}';
+  RID_ListaAnosFacturas = '{C6E2E8B4-2CB3-4679-BA75-D15FE79F93EE}';
-  RID_FacturasCliente = '{17EE5BA0-9C09-4BC1-B224-ECBE27955EB5}';
+  RID_FacturasCliente = '{FFE70CEB-56D8-4951-BA12-13F7C72BFE18}';
-  RID_FacturasCliente_Detalles = '{23406660-F90F-495F-8EDC-DE160A640BE3}';
+  RID_FacturasCliente_Detalles = '{B28CF6EF-D5C9-47F9-8D64-A80E8AF20724}';
 
   { Data table names }
   nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -73,6 +73,7 @@ const
   fld_FacturasClienteID_CONTRATO = 'ID_CONTRATO';
   fld_FacturasClienteREF_CONTRATO = 'REF_CONTRATO';
   fld_FacturasClienteSIN_COMISION = 'SIN_COMISION';
+  fld_FacturasClienteTIPO_FACTURA = 'TIPO_FACTURA';
 
   { FacturasCliente field indexes }
   idx_FacturasClienteID = 0;
@@ -123,6 +124,7 @@ const
   idx_FacturasClienteID_CONTRATO = 45;
   idx_FacturasClienteREF_CONTRATO = 46;
   idx_FacturasClienteSIN_COMISION = 47;
+  idx_FacturasClienteTIPO_FACTURA = 48;
 
   { FacturasCliente_Detalles fields }
   fld_FacturasCliente_DetallesID = 'ID';
@@ -159,7 +161,7 @@ const
 type
   { IListaAnosFacturas }
   IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
-  ['{F7A21916-AD6A-4354-AC97-24ACEB11D229}']
+  ['{3A65D9C0-CBC7-49BD-890B-CB27E537E661}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -194,7 +196,7 @@ type
 
   { IFacturasCliente }
   IFacturasCliente = interface(IDAStronglyTypedDataTable)
-  ['{2FE56E65-87BC-45FE-A4D5-CA3DF8D941B5}']
+  ['{0DB0095F-A024-45A3-9A3A-59E7029B3648}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -387,6 +389,10 @@ type
     procedure SetSIN_COMISIONValue(const aValue: SmallInt);
     function GetSIN_COMISIONIsNull: Boolean;
     procedure SetSIN_COMISIONIsNull(const aValue: Boolean);
+    function GetTIPO_FACTURAValue: String;
+    procedure SetTIPO_FACTURAValue(const aValue: String);
+    function GetTIPO_FACTURAIsNull: Boolean;
+    procedure SetTIPO_FACTURAIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -486,6 +492,8 @@ type
     property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
     property SIN_COMISION: SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue;
     property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
+    property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue;
+    property TIPO_FACTURAIsNull: Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull;
   end;
 
   { TFacturasClienteDataTableRules }
@@ -686,6 +694,10 @@ type
     procedure SetSIN_COMISIONValue(const aValue: SmallInt); virtual;
     function GetSIN_COMISIONIsNull: Boolean; virtual;
     procedure SetSIN_COMISIONIsNull(const aValue: Boolean); virtual;
+    function GetTIPO_FACTURAValue: String; virtual;
+    procedure SetTIPO_FACTURAValue(const aValue: String); virtual;
+    function GetTIPO_FACTURAIsNull: Boolean; virtual;
+    procedure SetTIPO_FACTURAIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -784,6 +796,8 @@ type
     property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
     property SIN_COMISION: SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue;
     property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
+    property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue;
+    property TIPO_FACTURAIsNull: Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -793,7 +807,7 @@ type
 
   { IFacturasCliente_Detalles }
   IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{054390A6-7A81-4F0A-886E-29CE32371B63}']
+  ['{C8FB6F13-CC9F-4716-925A-56A598401F23}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2045,6 +2059,27 @@ begin
     DataTable.Fields[idx_FacturasClienteSIN_COMISION].AsVariant := Null;
 end;
 
+function TFacturasClienteDataTableRules.GetTIPO_FACTURAValue: String;
+begin
+  result := DataTable.Fields[idx_FacturasClienteTIPO_FACTURA].AsString;
+end;
+
+procedure TFacturasClienteDataTableRules.SetTIPO_FACTURAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_FacturasClienteTIPO_FACTURA].AsString := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetTIPO_FACTURAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasClienteTIPO_FACTURA].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetTIPO_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasClienteTIPO_FACTURA].AsVariant := Null;
+end;
+
 
 { TFacturasCliente_DetallesDataTableRules }
 constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_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_ListaAnosFacturasDelta = '{D5A9BC5A-02B1-4447-9B85-091759C3F578}';
+  RID_ListaAnosFacturasDelta = '{3340EDE9-C8BC-4A98-B867-A746A393909C}';
-  RID_FacturasClienteDelta = '{82202330-E0FD-415C-BCDF-BFC47BCB4B92}';
+  RID_FacturasClienteDelta = '{D0017EBE-F53A-4E75-8BDB-A2AA4B6734B5}';
-  RID_FacturasCliente_DetallesDelta = '{CC9347DB-60EC-498B-A524-61302BD37A6A}';
+  RID_FacturasCliente_DetallesDelta = '{C71C0559-5EAC-4B7A-96BA-BCAF08A89042}';
 
 type
   { IListaAnosFacturasDelta }
   IListaAnosFacturasDelta = interface(IListaAnosFacturas)
-  ['{D5A9BC5A-02B1-4447-9B85-091759C3F578}']
+  ['{3340EDE9-C8BC-4A98-B867-A746A393909C}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -50,7 +50,7 @@ type
 
   { IFacturasClienteDelta }
   IFacturasClienteDelta = interface(IFacturasCliente)
-  ['{82202330-E0FD-415C-BCDF-BFC47BCB4B92}']
+  ['{D0017EBE-F53A-4E75-8BDB-A2AA4B6734B5}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -100,6 +100,7 @@ type
     function GetOldID_CONTRATOValue : Integer;
     function GetOldREF_CONTRATOValue : String;
     function GetOldSIN_COMISIONValue : SmallInt;
+    function GetOldTIPO_FACTURAValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -150,6 +151,7 @@ type
     property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
     property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
     property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue;
+    property OldTIPO_FACTURA : String read GetOldTIPO_FACTURAValue;
   end;
 
   { TFacturasClienteBusinessProcessorRules }
@@ -446,6 +448,12 @@ type
     function GetOldSIN_COMISIONIsNull: Boolean; virtual;
     procedure SetSIN_COMISIONValue(const aValue: SmallInt); virtual;
     procedure SetSIN_COMISIONIsNull(const aValue: Boolean); virtual;
+    function GetTIPO_FACTURAValue: String; virtual;
+    function GetTIPO_FACTURAIsNull: Boolean; virtual;
+    function GetOldTIPO_FACTURAValue: String; virtual;
+    function GetOldTIPO_FACTURAIsNull: Boolean; virtual;
+    procedure SetTIPO_FACTURAValue(const aValue: String); virtual;
+    procedure SetTIPO_FACTURAIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -640,6 +648,10 @@ type
     property SIN_COMISIONIsNull : Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
     property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue;
     property OldSIN_COMISIONIsNull : Boolean read GetOldSIN_COMISIONIsNull;
+    property TIPO_FACTURA : String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue;
+    property TIPO_FACTURAIsNull : Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull;
+    property OldTIPO_FACTURA : String read GetOldTIPO_FACTURAValue;
+    property OldTIPO_FACTURAIsNull : Boolean read GetOldTIPO_FACTURAIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -649,7 +661,7 @@ type
 
   { IFacturasCliente_DetallesDelta }
   IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
-  ['{CC9347DB-60EC-498B-A524-61302BD37A6A}']
+  ['{C71C0559-5EAC-4B7A-96BA-BCAF08A89042}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -2392,6 +2404,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSIN_COMISION] := Null;
 end;
 
+function TFacturasClienteBusinessProcessorRules.GetTIPO_FACTURAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO_FACTURA];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetTIPO_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO_FACTURA]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldTIPO_FACTURAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteTIPO_FACTURA];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldTIPO_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteTIPO_FACTURA]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetTIPO_FACTURAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO_FACTURA] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetTIPO_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO_FACTURA] := Null;
+end;
+
 
 { TFacturasCliente_DetallesBusinessProcessorRules }
 constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm

@@ -239,6 +239,10 @@ object srvFacturasCliente: TsrvFacturasCliente
               item
                 DatasetField = 'SIN_COMISION'
                 TableField = 'SIN_COMISION'
+              end
+              item
+                DatasetField = 'TIPO_FACTURA'
+                TableField = 'TIPO_FACTURA'
               end>
           end>
         Name = 'FacturasCliente'
@@ -492,6 +496,11 @@ object srvFacturasCliente: TsrvFacturasCliente
           item
             Name = 'SIN_COMISION'
             DataType = datSmallInt
+          end
+          item
+            Name = 'TIPO_FACTURA'
+            DataType = datString
+            Size = 255
           end>
       end
       item
@@ -1075,6 +1084,12 @@ object srvFacturasCliente: TsrvFacturasCliente
             Name = 'SIN_COMISION'
             DataType = datSmallInt
             Value = ''
+          end
+          item
+            Name = 'TIPO_FACTURA'
+            DataType = datString
+            Size = 255
+            Value = ''
           end>
         Statements = <
           item
@@ -1091,16 +1106,17 @@ object srvFacturasCliente: TsrvFacturasCliente
               'A_MODIFICACION,'#10'    USUARIO,'#10'    ID_FORMA_PAGO,'#10'    RECARGO_EQUI' +
               'VALENCIA,'#10'    ID_TIPO_IVA,'#10'    IMPORTE_NETO,'#10'    IMPORTE_PORTE,'#10 +
               '    IGNORAR_CONTABILIDAD,'#10'    ID_TIENDA,'#10'    ID_CONTRATO,'#10'    SI' +
-              'N_COMISION)'#10'  VALUES ('#10'    :ID,'#10'    :ID_EMPRESA,'#10'    :REFERENCIA' +
+              'N_COMISION,'#10'    TIPO_FACTURA)'#10'  VALUES ('#10'    :ID,'#10'    :ID_EMPRES' +
-              ','#10'    :FECHA_FACTURA,'#10'    :FECHA_VENCIMIENTO,'#10'    :BASE_IMPONIBL' +
+              'A,'#10'    :REFERENCIA,'#10'    :FECHA_FACTURA,'#10'    :FECHA_VENCIMIENTO,'#10 +
-              'E,'#10'    :DESCUENTO,'#10'    :IMPORTE_DESCUENTO,'#10'    :IVA,'#10'    :IMPORT' +
+              '    :BASE_IMPONIBLE,'#10'    :DESCUENTO,'#10'    :IMPORTE_DESCUENTO,'#10'   ' +
-              'E_IVA,'#10'    :RE,'#10'    :IMPORTE_RE,'#10'    :IMPORTE_TOTAL,'#10'    :OBSERV' +
+              ' :IVA,'#10'    :IMPORTE_IVA,'#10'    :RE,'#10'    :IMPORTE_RE,'#10'    :IMPORTE_' +
-              'ACIONES,'#10'    :ID_CLIENTE,'#10'    :NIF_CIF,'#10'    :NOMBRE,'#10'    :CALLE,' +
+              'TOTAL,'#10'    :OBSERVACIONES,'#10'    :ID_CLIENTE,'#10'    :NIF_CIF,'#10'    :N' +
-              #10'    :POBLACION,'#10'    :PROVINCIA,'#10'    :CODIGO_POSTAL,'#10'    :FECHA_' +
+              'OMBRE,'#10'    :CALLE,'#10'    :POBLACION,'#10'    :PROVINCIA,'#10'    :CODIGO_P' +
-              'ALTA,'#10'    :FECHA_MODIFICACION,'#10'    :USUARIO,'#10'    :ID_FORMA_PAGO,' +
+              'OSTAL,'#10'    :FECHA_ALTA,'#10'    :FECHA_MODIFICACION,'#10'    :USUARIO,'#10' ' +
-              #10'    :RECARGO_EQUIVALENCIA,'#10'    :ID_TIPO_IVA,'#10'    :IMPORTE_NETO,' +
+              '   :ID_FORMA_PAGO,'#10'    :RECARGO_EQUIVALENCIA,'#10'    :ID_TIPO_IVA,'#10 +
-              #10'    :IMPORTE_PORTE,'#10'    :IGNORAR_CONTABILIDAD,'#10'    :ID_TIENDA,'#10 +
+              '    :IMPORTE_NETO,'#10'    :IMPORTE_PORTE,'#10'    :IGNORAR_CONTABILIDAD' +
-              '    :ID_CONTRATO,'#10'    :SIN_COMISION);'#10
+              ','#10'    :ID_TIENDA,'#10'    :ID_CONTRATO,'#10'    :SIN_COMISION,'#10'    :TIPO' +
+              '_FACTURA);'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1276,6 +1292,12 @@ object srvFacturasCliente: TsrvFacturasCliente
             DataType = datSmallInt
             Value = ''
           end
+          item
+            Name = 'TIPO_FACTURA'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
           item
             Name = 'OLD_ID'
             Value = ''
@@ -1301,8 +1323,8 @@ object srvFacturasCliente: TsrvFacturasCliente
               'A = :ID_TIPO_IVA,'#10'    IMPORTE_NETO = :IMPORTE_NETO,'#10'    IMPORTE_' +
               'PORTE = :IMPORTE_PORTE,'#10'    IGNORAR_CONTABILIDAD = :IGNORAR_CONT' +
               'ABILIDAD,'#10'    ID_TIENDA = :ID_TIENDA,'#10'    ID_CONTRATO = :ID_CONT' +
-              'RATO,'#10'    SIN_COMISION = :SIN_COMISION'#10'  WHERE'#10'  (ID = :OLD_ID);' +
+              'RATO,'#10'    SIN_COMISION = :SIN_COMISION,'#10'    TIPO_FACTURA = :TIPO' +
-              #10
+              '_FACTURA'#10'  WHERE'#10'  (ID = :OLD_ID);'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>

Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm

@@ -1,6 +1,6 @@
 inherited frViewFacturaCliente: TfrViewFacturaCliente
-  Width = 937
+  Width = 451
-  Height = 382
+  Height = 304
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,19 +9,17 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 937
+    Width = 451
-    Height = 382
+    Height = 304
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
-    ExplicitWidth = 451
-    ExplicitHeight = 304
     DesignSize = (
-      937
+      451
-      382)
+      304)
     object eReferencia: TcxDBTextEdit
       Left = 135
       Top = 30
@@ -94,16 +92,16 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 2
+      TabOrder = 3
       Width = 78
     end
     object bFormasPago: TButton
-      Left = 336
+      Left = 311
       Top = 108
       Width = 132
       Height = 23
       Caption = 'Ver las formas de pago...'
-      TabOrder = 3
+      TabOrder = 4
       OnClick = bFormasPagoClick
     end
     inline frViewTienda1: TfrViewTienda
@@ -117,7 +115,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 5
+      TabOrder = 6
       ReadOnly = False
       ExplicitLeft = 22
       ExplicitTop = 188
@@ -135,7 +133,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       end
     end
     inline frViewClienteFactura1: TfrViewClienteFactura
-      Left = 496
+      Left = 471
       Top = 30
       Width = 398
       Height = 265
@@ -145,9 +143,9 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 7
+      TabOrder = 8
       ReadOnly = False
-      ExplicitLeft = 496
+      ExplicitLeft = 471
       ExplicitTop = 30
       ExplicitWidth = 398
       ExplicitHeight = 265
@@ -177,12 +175,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
           Width = 276
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 327
+          Left = 192
-          ExplicitLeft = 327
+          ExplicitLeft = 192
         end
         inherited Button3: TBitBtn
-          Left = 217
+          Left = 82
-          ExplicitLeft = 217
+          ExplicitLeft = 82
         end
         inherited cxDBTextEdit1: TcxDBTextEdit
           ExplicitWidth = 283
@@ -209,7 +207,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleDisabled.LookAndFeel.NativeStyle = True
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 4
+      TabOrder = 5
       Width = 310
     end
     inline frViewObservaciones1: TfrViewObservaciones
@@ -223,7 +221,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 8
+      TabOrder = 9
       ReadOnly = False
       ExplicitLeft = 22
       ExplicitTop = 325
@@ -262,9 +260,35 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 6
+      TabOrder = 7
       Width = 158
     end
+    object cbTipoFactura: TcxDBComboBox
+      Left = 367
+      Top = 57
+      DataBinding.DataField = 'TIPO_FACTURA'
+      DataBinding.DataSource = DADataSource
+      Properties.ImmediatePost = True
+      Properties.Items.Strings = (
+        'Cocina'
+        'Ba'#241'o'
+        'Armarios'
+        'Electrodom'#233'sticos'
+        'Varios'
+        'Obra')
+      Properties.PostPopupValueOnTab = True
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.NativeStyle = True
+      Style.ButtonStyle = bts3D
+      Style.PopupBorderStyle = epbsFrame3D
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 2
+      Width = 76
+    end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -289,11 +313,22 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
               Control = eReferencia
               ControlOptions.ShowBorder = False
             end
+            object dxLayoutControl1Group10: TdxLayoutGroup
+              ShowCaption = False
+              Hidden = True
+              LayoutDirection = ldHorizontal
+              ShowBorder = False
               object dxLayoutControl1Item2: TdxLayoutItem
                 Caption = 'Fecha de la factura:'
                 Control = edtFecha
                 ControlOptions.ShowBorder = False
               end
+              object dxLayoutControl1Item8: TdxLayoutItem
+                Caption = 'Tipo factura:'
+                Control = cbTipoFactura
+                ControlOptions.ShowBorder = False
+              end
+            end
           end
           object dxLayoutControl1Group8: TdxLayoutGroup
             Caption = 'Forma de pago'

Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas

@@ -58,6 +58,9 @@ type
     dxLayoutControl1Item7: TdxLayoutItem;
     cbRecargoEquivalencia: TcxDBCheckBox;
     dxLayoutControl1Group9: TdxLayoutGroup;
+    dxLayoutControl1Item8: TdxLayoutItem;
+    cbTipoFactura: TcxDBComboBox;
+    dxLayoutControl1Group10: TdxLayoutGroup;
     procedure bFormasPagoClick(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure CustomViewCreate(Sender: TObject);

Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm

@@ -8,7 +8,7 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
     Height = 269
     RootLevelOptions.DetailTabsPosition = dtpTop
     OnActiveTabChanged = cxGridActiveTabChanged
-    ExplicitWidth = 531
+    ExplicitWidth = 802
     ExplicitHeight = 269
     inherited cxGridView: TcxGridDBTableView
       DataController.KeyFieldNames = 'ID'
@@ -43,6 +43,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
         PropertiesClassName = 'TcxTextEditProperties'
         Width = 69
       end
+      object cxGridViewTIPO_FACTURA: TcxGridDBColumn
+        Caption = 'Tipo factura'
+        DataBinding.FieldName = 'TIPO_FACTURA'
+      end
       object cxGridViewSITUACION: TcxGridDBColumn
         DataBinding.FieldName = 'SITUACION'
         Width = 32
@@ -170,12 +174,12 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
   end
   inherited frViewFiltroBase1: TfrViewFiltroBase
     Width = 802
-    ExplicitWidth = 531
+    ExplicitWidth = 802
     inherited TBXDockablePanel1: TTBXDockablePanel
-      ExplicitWidth = 531
+      ExplicitWidth = 802
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 802
-        ExplicitWidth = 531
+        ExplicitWidth = 802
         inherited txtFiltroTodo: TcxTextEdit
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
@@ -205,10 +209,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
         Width = 802
-        ExplicitWidth = 531
+        ExplicitWidth = 802
         inherited tbxBotones: TTBXToolbar
           Width = 792
-          ExplicitWidth = 521
+          ExplicitWidth = 792
         end
       end
     end
@@ -217,13 +221,13 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
     Top = 371
     Visible = True
     ExplicitTop = 371
-    ExplicitWidth = 531
+    ExplicitWidth = 802
     inherited TBXAlignmentPanel1: TTBXAlignmentPanel
       Width = 802
-      ExplicitWidth = 531
+      ExplicitWidth = 802
       inherited TBXToolbar1: TTBXToolbar
         Width = 792
-        ExplicitWidth = 521
+        ExplicitWidth = 792
         object TBXSeparatorItem2: TTBXSeparatorItem
         end
         object TBXItem3: TTBXItem

Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas

@@ -62,6 +62,7 @@ type
     cxGridViewIMPORTE_RE: TcxGridDBColumn;
     cxGridViewRE: TcxGridDBColumn;
     cxGridViewREF_CONTRATO: TcxGridDBColumn;
+    cxGridViewTIPO_FACTURA: TcxGridDBColumn;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);

Source/Modulos/Unidades de medida/Plugin/uPluginUnidadesMedida.dfm

@@ -42,7 +42,9 @@ object PluginUnidadesMedida: TPluginUnidadesMedida
     object actUnidadesMedida: TAction
       Category = 'Datos'
       Caption = 'Unidades de medida'
+      Enabled = False
       ImageIndex = 0
+      Visible = False
       OnExecute = actUnidadesMedidaExecute
     end
   end

Source/Servidor/FactuGES_Server.dpr

@@ -119,8 +119,6 @@ uses
   schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
   schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
   schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
-  schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
-  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
   schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
   schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
   schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
@@ -136,7 +134,9 @@ uses
   schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
   schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
   schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
-  schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
+  schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
+  schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
+  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
 	<PropertyGroup>
 		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@@ -29,7 +29,6 @@
 		<Borland.ProjectType/>
 		<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">5</VersionInfo><VersionInfo Name="Release">1</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.5.1.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.5.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 05 de septiembre de 2012 20:56</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
 						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
 	</ProjectExtensions>

Source/Servidor/FactuGES_Server.rc

@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.5.1.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
               VALUE "ProductVersion", "2.5.1.0\0"
-              VALUE "CompileDate", "martes, 29 de enero de 2013 12:21\0"
+              VALUE "CompileDate", "martes, 29 de enero de 2013 19:17\0"
          END
     END
     BLOCK "VarFileInfo"