Cambios para Generacion automatica de subcuenta para el pago de recibos y remesas de cliente, facturas de cliente repasado.

Queda repaso general de las directivas de compilacion del modulo de contabilidad y hacer todo lo de la parte de cliente en la parte de proveedor


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

Database/scripts/factuges.sql

@@ -896,7 +896,8 @@ CREATE TABLE FACTURAS_CLIENTE (
     RECARGO_EQUIVALENCIA   TIPO_BOOLEANO,
     ID_COMISION_LIQUIDADA  TIPO_ID,
     IGNORAR_CONTABILIDAD   SMALLINT,
-    ID_TIENDA              TIPO_ID
+    ID_TIENDA              TIPO_ID,
+    ID_TIPOVENTA           TIPO_ID
 );
 
 
@@ -1296,6 +1297,7 @@ CREATE TABLE RECIBOS_PROVEEDOR (
 CREATE TABLE REFERENCIAS (
     ID           TIPO_ID NOT NULL,
     ID_EMPRESA   TIPO_ID,
+    ID_TIENDA    TIPO_ID,
     CODIGO       VARCHAR(50) NOT NULL,
     VALOR        VARCHAR(255) NOT NULL,
     DESCRIPCION  VARCHAR(255) COLLATE ES_ES
@@ -1900,7 +1902,6 @@ left join CONT_CUENTAS_ESPECIALES on (CONT_CUENTAS_ESPECIALES.ID = CONT_CUENTAS.
 ;
 
 
-
 /* View: V_CONT_DIARIO */
 CREATE VIEW V_CONT_DIARIO(
     ID_APUNTE,
@@ -1911,6 +1912,7 @@ CREATE VIEW V_CONT_DIARIO(
     FECHA_ASIENTO,
     ID_SUBCUENTA,
     REF_SUBCUENTA,
+    SUBCUENTA,
     ID_EJERCICIO,
     CONCEPTO,
     DOCUMENTO,
@@ -1926,7 +1928,8 @@ SELECT
     CONT_ASIENTOS.ORDEN,
     CONT_ASIENTOS.FECHA_ASIENTO,
     CONT_APUNTES.ID_SUBCUENTA,
-    CONT_SUBCUENTAS.REF_SUBCUENTA as SUBCUENTA,
+    CONT_SUBCUENTAS.REF_SUBCUENTA as REF_SUBCUENTA,
+    CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA,
     CONT_SUBCUENTAS.ID_EJERCICIO,
     CONT_APUNTES.CONCEPTO,
     CONT_APUNTES.DOCUMENTO,
@@ -2256,7 +2259,9 @@ CREATE VIEW V_FACTURAS_CLIENTE(
     REFERENCIA_COMISION,
     IGNORAR_CONTABILIDAD,
     ID_TIENDA,
-    TIENDA)
+    TIENDA,
+    ID_TIPOVENTA,
+    TIPOVENTA)
 AS
 SELECT FACTURAS_CLIENTE.ID,
   FACTURAS_CLIENTE.ID_EMPRESA,
@@ -2293,7 +2298,9 @@ SELECT FACTURAS_CLIENTE.ID,
   COMISIONES_LIQUIDADAS.REFERENCIA,
   FACTURAS_CLIENTE.IGNORAR_CONTABILIDAD,
   FACTURAS_CLIENTE.ID_TIENDA,
-  EMPRESAS_TIENDAS.NOMBRE AS TIENDA
+  EMPRESAS_TIENDAS.NOMBRE AS TIENDA,
+  FACTURAS_CLIENTE.ID_TIPOVENTA,
+  TIPOS_VENTA.DESCRIPCION
 
   FROM V_FAC_CLI_SITUACION
   LEFT JOIN FACTURAS_CLIENTE
@@ -2303,6 +2310,7 @@ SELECT FACTURAS_CLIENTE.ID,
   LEFT JOIN CLIENTES_DATOS
   ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
   LEFT JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = FACTURAS_CLIENTE.ID_TIENDA)
+  LEFT JOIN TIPOS_VENTA ON (TIPOS_VENTA.ID = FACTURAS_CLIENTE.ID_TIPOVENTA)
 ;
 
 
@@ -3780,6 +3788,7 @@ CREATE INDEX IDX_PROVEEDORES_DATOS1 ON PROVEEDORES_DATOS (ID_FORMA_PAGO);
 CREATE INDEX IDX_RECIBOS_CLIENTE ON RECIBOS_CLIENTE (ID_RECIBO_COMPENSADO);
 CREATE INDEX IDX_RECIBOS_PROVEEDOR ON RECIBOS_PROVEEDOR (ID_RECIBO_COMPENSADO);
 CREATE INDEX IDX_REFERENCIAS ON REFERENCIAS (ID_EMPRESA);
+CREATE INDEX IDX_REFERENCIAS2 ON REFERENCIAS (ID_TIENDA);
 CREATE INDEX IDX_REMESAS_CLIENTE ON REMESAS_CLIENTE (ID_DATOS_BANCO);
 CREATE INDEX IDX_REMESAS_PROVEEDOR ON REMESAS_PROVEEDOR (ID_DATOS_BANCO);
 CREATE INDEX IDX_PERMISOS ON PERMISOS (ID_USUARIO);

Source/ApplicationBase/Empresas/Views/uViewTienda.pas

@@ -60,6 +60,8 @@ begin
 
     if Assigned(FDataItem.FindField('TIENDA')) then
       FDataItem.FieldByName('TIENDA').AsString := DisplayValue;
+
+    FDataItem.post;  
   end;
 end;
 
@@ -68,6 +70,7 @@ var
   i : integer;
 begin
   inherited;
+
   FListaTiendas := AppFactuGES.EmpresasController.DarListaTiendas(AppFactuGES.EmpresaActiva);
   with cbTienda.Properties.Items do
   begin
@@ -80,6 +83,7 @@ begin
       EndUpdate;
     end;
   end;
+
 end;
 
 procedure TfrViewTienda.CustomViewDestroy(Sender: TObject);
@@ -119,7 +123,7 @@ procedure TfrViewTienda.SetDataItem(const Value: TDADataTable);
 begin
   FDataItem := Value;
   if Assigned(FDataItem.FindField('ID_TIENDA')) then
-    ElegirTienda(FDataItem.FieldByName('ID_TIENDA').AsInteger);
+     ElegirTienda(FDataItem.FieldByName('ID_TIENDA').AsInteger);
 end;
 
 procedure TfrViewTienda.SetIDTienda(const ID: Integer);

Source/Base/Base.dproj

@@ -44,6 +44,13 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -58,47 +65,47 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Remesas de cliente\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\cxIntl6D11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\designide.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\GUISDK_D11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\PluginSDK_D10R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\PluginSDK_D10R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\xmlrtl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>

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

@@ -17,8 +17,7 @@ type
     function IncrementarReferencia : Boolean;
   protected
     procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
-    procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
+    procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override;
-      var CanRemoveFromDelta: Boolean);
   end;
 
 implementation

Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS

@@ -18,9 +18,7 @@ type
   protected
     procedure BeforeProcessDelta(Sender: TDABusinessProcessor;
       const aDelta: IDADelta); override;
-    procedure AfterProcessChange(Sender: TDABusinessProcessor;
+    procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override;
-      aChange: TDADeltaChange; Processed: Boolean;
-      var CanRemoveFromDelta: Boolean); override;
   end;
 
 implementation

Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas

@@ -17,8 +17,12 @@ const
   CTE_CUENTASPROVEEDOR = 400;
   CTE_CUENTASCAJA = 570;
   CTE_CUENTASBANCO = 572;
+  CTE_CUENTASVENTA = 700;
+  CTE_CUENTASCOMPRA = 600;
 
 type
+  TEnumTipoSubCuenta = (tTodas, tClientes, tProveedores, tCompras, tVentas, tCajas);
+
   ISubCuentasController = interface(IObservador)
   ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
     function BuscarTodos: IBizSubCuenta;
@@ -31,7 +35,6 @@ type
     function Guardar(ASubCuenta : IBizSubCuenta): Boolean;
     procedure DescartarCambios(ASubCuenta : IBizSubCuenta);
     function Localizar(ASubCuentas: IBizSubCuenta; ADescripcion:String): Boolean;
-    function DarListaSubCuentas: TStringList;
 
     function ExtraerSeleccionados(ASubCuentas: IBizSubCuenta) : IBizSubCuenta;
     function ElegirSubCuenta(ASubCuentas : IBizSubCuenta; AMensaje: String; AMultiSelect: Boolean): IBizSubCuenta;
@@ -42,7 +45,7 @@ type
     procedure AnadirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto; TipoCuenta: Integer);
     procedure EliminarSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto);
 
-    function DarListaCajasBancos: TStringList;
+    function DarLista(Const TipoSubCuenta: TEnumTipoSubCuenta): TStringList;
   end;
 
   TSubCuentasController = class(TObservador, ISubCuentasController)
@@ -72,11 +75,11 @@ type
     function Nuevo : IBizSubCuenta;
     function BuscarTodos: IBizSubCuenta;
     function BuscarCajasBancos: IBizSubCuenta;
+    function BuscarVentas: IBizSubCuenta;
     function Buscar(ID: Integer): IBizSubCuenta;
     procedure VerTodos(ASubCuentas: IBizSubCuenta);
     procedure Ver(ASubCuenta: IBizSubCuenta);
     function Localizar(ASubCuentas: IBizSubCuenta; ADescripcion:String): Boolean;
-    function DarListaSubCuentas: TStringList;
 
     function ExtraerSeleccionados(ASubCuentas: IBizSubCuenta) : IBizSubCuenta;
     function ElegirSubCuenta(ASubCuentas : IBizSubCuenta; AMensaje: String; AMultiSelect: Boolean): IBizSubCuenta;
@@ -87,7 +90,7 @@ type
     procedure AnadirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto; TipoCuenta: Integer);
     procedure EliminarSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto);
 
-    function DarListaCajasBancos: TStringList;
+    function DarLista(Const TipoSubCuenta: TEnumTipoSubCuenta): TStringList;
   end;
 
 implementation
@@ -241,6 +244,31 @@ begin
   FiltrarEjercicio(Result);
 end;
 
+function TSubCuentasController.BuscarVentas: IBizSubCuenta;
+var
+  Condicion: TDAWhereExpression;
+
+begin
+  ShowHourglassCursor;
+  try
+    Result := BuscarTodos;
+
+    with Result.DataTable.DynamicWhere do
+    begin
+      // (REF_CUENTAS = 700 ventas)
+      Condicion := NewBinaryExpression(NewField('', fld_SubCuentasREF_CUENTA), NewConstant(CTE_CUENTASVENTA, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 constructor TSubCuentasController.Create;
 begin
   inherited;
@@ -252,37 +280,21 @@ begin
   Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
 end;
 
-function TSubCuentasController.DarListaCajasBancos: TStringList;
+function TSubCuentasController.DarLista(Const TipoSubCuenta: TEnumTipoSubCuenta): TStringList;
 var
-  ACajasBancos: IBizSubCuenta;
+  ASubCuentas: IBizSubCuenta;
   i : integer;
 begin
 
-  ACajasBancos := BuscarCajasBancos;
+  case TipoSubCuenta of
-  ACajasBancos.DataTable.Active := True;
+// tClientes, tProveedores, tCompras, tVentas,
-
+  tTodas : ASubCuentas := BuscarTodos;
-  Result := TStringList.Create;
+  tCajas : ASubCuentas := BuscarCajasBancos;
-  try
+  tVentas : ASubCuentas := BuscarVentas;  
-    with Result do
-    begin
-      ACajasBancos.DataTable.First;
-      while not ACajasBancos.DataTable.EOF do
-      begin
-        Add(Format('%s=%d', [ACajasBancos.DESCRIPCION, ACajasBancos.ID]));
-        ACajasBancos.DataTable.Next;
-      end;
-    end;
-  finally
-    ACajasBancos := NIL;
   end;
-end;
 
-function TSubCuentasController.DarListaSubCuentas: TStringList;
-var
-  ASubCuentas: IBizSubCuenta;
-begin
-  ASubCuentas := BuscarTodos;
   ASubCuentas.DataTable.Active := True;
+
   Result := TStringList.Create;
   try
     with Result do
@@ -290,7 +302,11 @@ begin
       ASubCuentas.DataTable.First;
       while not ASubCuentas.DataTable.EOF do
       begin
-        Add(ASubCuentas.DESCRIPCION);
+        case TipoSubCuenta of
+      // tClientes, tProveedores
+        tTodas : Add(ASubCuentas.DESCRIPCION);
+        tCajas, tCompras, tVentas : Add(Format('%s=%d', [ASubCuentas.DESCRIPCION, ASubCuentas.ID]));
+        end;
         ASubCuentas.DataTable.Next;
       end;
     end;
@@ -299,6 +315,7 @@ begin
   end;
 end;
 
+
 procedure TSubCuentasController.DescartarCambios(ASubCuenta: IBizSubCuenta);
 begin
   if not Assigned(ASubCuenta) then

Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas

@@ -125,7 +125,7 @@ begin
       with dsCommand do
       begin
         ParamByName('REFERENCIA').AsString := RefSubCuenta;
-        ParamByName('DESCRIPCION').AsString := 'Cuenta de cliente ' + CLIENTE;
+        ParamByName('DESCRIPCION').AsString := 'Cuenta de cliente: ' + CLIENTE;
         ParamByName('ID_CUENTA').AsInteger := IDCuenta;
         ParamByName('ID_EJERCICIO').AsInteger := darEjercicioActivo(ID_EMPRESA);
         ParamByName('ID_CONTACTO').AsInteger := ID_CONTACTO;

Source/Modulos/Contabilidad/Views/Contabilidad_view.dpk

@@ -78,6 +78,6 @@ contains
   uEditorAsiento in 'uEditorAsiento.pas' {fEditorAsiento: TfEditorEjercicios},
   uEditorApunte in 'uEditorApunte.pas' {fEditorApunte: TfEditorEjercicios},
   uEditorElegirSubCuentas in 'uEditorElegirSubCuentas.pas' {fEditorElegirSubCuentas: TfEditorEjercicios},
-  uViewCajasBancos in 'uViewCajasBancos.pas' {frViewCajasBancos: TFrame};
+  uViewListaSubCuentas in 'uViewListaSubCuentas.pas' {frViewListaSubcuentas: TFrame};
 
 end.

Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj

@@ -153,10 +153,6 @@
       <Form>frViewBalances</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
-    <DCCReference Include="uViewCajasBancos.pas">
-      <Form>frViewApunte</Form>
-      <DesignClass>TFrame</DesignClass>
-    </DCCReference>
     <DCCReference Include="uViewCuenta.pas">
       <Form>frViewCuenta</Form>
       <DesignClass>TFrame</DesignClass>
@@ -181,6 +177,10 @@
       <Form>frViewEpigrafes</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewListaSubCuentas.pas">
+      <Form>frViewListaSubcuentas</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewSubCuenta.pas">
       <Form>frViewSubCuenta</Form>
       <DesignClass>TFrame</DesignClass>

Source/Modulos/Contabilidad/Views/uViewCajasBancos.pas

@@ -90,6 +90,7 @@ begin
   begin
     cbCajasBancos.ItemIndex := 0;
     cbCajasBancos.Enabled := True;
+    FIdSubCuenta := StrToInt(FListaCajasBancos.Values[cbCajasBancos.Text]); //Refrescamos el valor
   end
   else
   begin

Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas

@@ -0,0 +1,153 @@
+unit uViewListaSubCuentas;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics,
+  dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit,
+  cxControls, cxCheckBox, uSubCuentasController;
+
+type
+  IViewListaSubcuentas = interface(IViewBase)
+  ['{5266EE90-D715-462A-9720-FF0D4078A496}']
+    function GetTipoSubCuenta: TEnumTipoSubCuenta;
+    procedure SetTipoSubCuenta(const Value: TEnumTipoSubCuenta);
+    property TipoSubCuenta: TEnumTipoSubCuenta read GetTipoSubCuenta write SetTipoSubCuenta;
+  end;
+
+  TfrViewListaSubcuentas = class(TfrViewBase, IViewListaSubcuentas)
+    cbSubCuentas: TcxComboBox;
+    dxLayoutControl1Group_Root: TdxLayoutGroup;
+    dxLayoutControl1: TdxLayoutControl;
+    dxLayoutControl1Item1: TdxLayoutItem;
+    dxLayoutControl1Item2: TdxLayoutItem;
+    eContabilizar: TcxCheckBox;
+    procedure CustomViewCreate(Sender: TObject);
+    procedure CustomViewDestroy(Sender: TObject);
+    procedure CustomViewShow(Sender: TObject);
+
+    procedure cbCajaBancoPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+    procedure eContabilizarPropertiesEditValueChanged(Sender: TObject);
+
+  private
+    FTipoSubCuenta: TEnumTipoSubCuenta;
+    FIdSubCuenta : Integer;
+    FListaSubCuentas : TStringList;
+    function getIDCajaBanco: Integer;
+    function GetTipoSubCuenta: TEnumTipoSubCuenta;
+    procedure SetTipoSubCuenta(const Value: TEnumTipoSubCuenta);
+  public
+    property TipoSubCuenta: TEnumTipoSubCuenta read GetTipoSubCuenta write SetTipoSubCuenta;
+    property IdSubCuenta: Integer read getIDCajaBanco;
+    procedure ElegirSubCuenta(const AIdSubCuenta : Integer);
+  end;
+
+
+implementation
+{$R *.dfm}
+
+uses
+  uFactuGES_App;
+
+procedure TfrViewListaSubcuentas.cbCajaBancoPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+begin
+  inherited;
+  FIdSubCuenta := StrToInt(FListaSubCuentas.Values[DisplayValue]);
+end;
+
+
+procedure TfrViewListaSubcuentas.CustomViewCreate(Sender: TObject);
+var
+  i : integer;
+begin
+  inherited;
+  FTipoSubCuenta := tTodas;
+  FListaSubCuentas := Nil;
+end;
+
+procedure TfrViewListaSubcuentas.CustomViewDestroy(Sender: TObject);
+begin
+  inherited;
+  cbSubCuentas.Properties.OnValidate := nil;
+  eContabilizar.Properties.OnEditValueChanged := nil;
+  FreeAndNIL(FListaSubCuentas);
+end;
+
+procedure TfrViewListaSubcuentas.CustomViewShow(Sender: TObject);
+begin
+  inherited;
+  cbSubCuentas.Properties.OnValidate := cbCajaBancoPropertiesValidate;
+  eContabilizar.Properties.OnEditValueChanged := eContabilizarPropertiesEditValueChanged;
+end;
+
+procedure TfrViewListaSubcuentas.eContabilizarPropertiesEditValueChanged(Sender: TObject);
+begin
+  inherited;
+  if not eContabilizar.Checked then
+  begin
+    cbSubCuentas.ItemIndex := 0;
+    FIdSubCuenta := StrToInt(FListaSubCuentas.Values[cbSubCuentas.Text]); //Refrescamos el valor
+    cbSubCuentas.Enabled := True;
+  end
+  else
+  begin
+    cbSubCuentas.ItemIndex := -1;
+    cbSubCuentas.Enabled := False;
+  end;
+end;
+
+procedure TfrViewListaSubcuentas.ElegirSubCuenta(const AIdSubCuenta: Integer);
+var
+  i : integer;
+begin
+  for i := 0 to FListaSubCuentas.Count-1 do
+  begin
+    if FListaSubCuentas.ValueFromIndex[i] = IntToStr(AIdSubCuenta) then
+    begin
+      cbSubCuentas.Text := FListaSubCuentas.Names[i];
+      Break;
+    end;
+  end;
+end;
+
+function TfrViewListaSubcuentas.getIDCajaBanco: Integer;
+begin
+  Result := FIdSubCuenta;
+end;
+
+function TfrViewListaSubcuentas.GetTipoSubCuenta: TEnumTipoSubCuenta;
+begin
+  Result := FTipoSubCuenta; 
+end;
+
+procedure TfrViewListaSubcuentas.SetTipoSubCuenta(Const Value: TEnumTipoSubCuenta);
+var
+  i: Integer;
+begin
+  FTipoSubCuenta := Value;
+
+  with TSubCuentasController.create do
+  begin
+
+    FListaSubCuentas := DarLista(FTipoSubCuenta);
+    with cbSubCuentas.Properties.Items do
+    begin
+      BeginUpdate;
+      try
+        Clear;
+        for i := 0 to FListaSubCuentas.Count - 1 do
+          Add(FListaSubCuentas.Names[i]);
+      finally
+        EndUpdate;
+      end;
+    end;
+    Free;
+  end;
+
+  //Ponemos la primera por defecto
+  cbSubCuentas.ItemIndex := 0;
+  FIdSubCuenta := StrToInt(FListaSubCuentas.Values[cbSubCuentas.Text]); //Refrescamos el valor
+end;
+
+end.

Source/Modulos/Contactos/Model/uBizClientesServer.pas

@@ -57,7 +57,7 @@ var
   idCliente: integer;
   idTienda: integer;
   idEmpresa: integer;
-  NombreComercial: string;
+  Nombre: string;
 
 begin
   inherited;
@@ -96,9 +96,9 @@ begin
           IdCliente := aChange.NewValueByName[fld_ClientesID];
           IdTienda := aChange.NewValueByName[fld_ClientesID_TIENDA];
           IdEmpresa := aChange.NewValueByName[fld_ClientesID_EMPRESA];
-          NombreComercial := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
+          Nombre := aChange.NewValueByName[fld_ClientesNOMBRE];
           if not TieneCuentaAsociada(idCliente, idEmpresa) then
-             AnadirSubCuentaCliente(idCliente, idTienda, idEmpresa, NombreComercial);
+             AnadirSubCuentaCliente(idCliente, idTienda, idEmpresa, Nombre);
         finally
           Free;
         end;

Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.dproj

@@ -48,15 +48,15 @@
     <DelphiCompile Include="FacturasCliente_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\AlbaranesCliente_controller.dcp" />
+    <DCCReference Include="..\..\Tipos de venta\Views\AlbaranesCliente_controller.dcp" />
-    <DCCReference Include="..\AlbaranesCliente_model.dcp" />
+    <DCCReference Include="..\..\Tipos de venta\Views\AlbaranesCliente_model.dcp" />
-    <DCCReference Include="..\ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Tipos de venta\Views\ApplicationBase.dcp" />
-    <DCCReference Include="..\Articulos_controller.dcp" />
+    <DCCReference Include="..\..\Tipos de venta\Views\Articulos_controller.dcp" />
-    <DCCReference Include="..\Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Tipos de venta\Views\Contactos_controller.dcp" />
-    <DCCReference Include="..\FacturasCliente_data.dcp" />
+    <DCCReference Include="..\..\Tipos de venta\Views\FacturasCliente_data.dcp" />
-    <DCCReference Include="..\FacturasCliente_model.dcp" />
+    <DCCReference Include="..\..\Tipos de venta\Views\FacturasCliente_model.dcp" />
-    <DCCReference Include="..\FormasPago_controller.dcp" />
+    <DCCReference Include="..\..\Tipos de venta\Views\FormasPago_controller.dcp" />
-    <DCCReference Include="..\RecibosCliente_controller.dcp" />
+    <DCCReference Include="..\..\Tipos de venta\Views\RecibosCliente_controller.dcp" />
     <DCCReference Include="uArticulosFacturaClienteController.pas" />
     <DCCReference Include="uDetallesFacturaClienteController.pas" />
     <DCCReference Include="uFacturasClienteController.pas" />

Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas

@@ -50,6 +50,8 @@ type
     function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente) : IBizFacturaCliente;
 
     procedure SetID_Tienda (AFactura: IBizFacturaCliente; const ID_Tienda: Integer);
+    procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
+    procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
   end;
 
   TFacturasClienteController = class(TObservador, IFacturasClienteController)
@@ -111,6 +113,8 @@ type
     function ExtraerSeleccionados(AFacturasCliente: IBizFacturaCliente) : IBizFacturaCliente;
 
     procedure SetID_Tienda (AFactura: IBizFacturaCliente; const ID_Tienda: Integer);
+    procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
+    procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
   end;
 
 implementation
@@ -917,6 +921,46 @@ begin
   end;
 end;
 
+procedure TFacturasClienteController.SetIgnorarContabilidad(AFactura: IBizFacturaCliente; const Ignorar: Integer);
+var
+  EnEdicion: Boolean;
+begin
+  if Assigned(AFactura) then
+  begin
+    EnEdicion := AFactura.DataTable.Editing;
+    if not AFactura.DataTable.Editing then
+       AFactura.DataTable.Edit;
+
+    AFactura.IGNORAR_CONTABILIDAD := Ignorar;
+    AFactura.DataTable.Post;
+
+    if EnEdicion then
+       AFactura.DataTable.Edit;
+  end;
+end;
+
+procedure TFacturasClienteController.SetIdSubCuenta(AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
+var
+  EnEdicion: Boolean;
+begin
+  if Assigned(AFactura) then
+  begin
+    EnEdicion := AFactura.DataTable.Editing;
+    if not AFactura.DataTable.Editing then
+       AFactura.DataTable.Edit;
+
+    if IdSubCuenta < 0 then
+       AFactura.DataTable.FieldByName(fld_FacturasClienteID_SUBCUENTA).AsVariant := Null
+    else
+       AFactura.ID_SUBCUENTA := IdSubCuenta;
+
+    AFactura.DataTable.Post;
+
+    if EnEdicion then
+       AFactura.DataTable.Edit;
+  end;
+end;
+
 function TFacturasClienteController.Guardar(AFactura: IBizFacturaCliente): Boolean;
 var
   IDNuevo : Integer;

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

@@ -251,6 +251,15 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
         Name = 'TIENDA'
         DataType = datString
         Size = 255
+      end
+      item
+        Name = 'ID_SUBCUENTA'
+        DataType = datInteger
+      end
+      item
+        Name = 'SUBCUENTA'
+        DataType = datString
+        Size = 255
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj

@@ -11,8 +11,13 @@
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
     <Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
     <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
+    <Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
+    <Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
     <Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
+    <Projects Include="..\Tipos de venta\Controller\TiposVenta_controller.dproj" />
+    <Projects Include="..\Tipos de venta\Model\TiposVenta_model.dproj" />
+    <Projects Include="..\Tipos de venta\Views\TiposVenta_view.dproj" />
     <Projects Include="Controller\FacturasCliente_controller.dproj" />
     <Projects Include="Data\FacturasCliente_data.dproj" />
     <Projects Include="Model\FacturasCliente_model.dproj" />
@@ -88,6 +93,33 @@
   <Target Name="Articulos_view:Make">
     <MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="TiposVenta_model">
+    <MSBuild Projects="..\Tipos de venta\Model\TiposVenta_model.dproj" Targets="" />
+  </Target>
+  <Target Name="TiposVenta_model:Clean">
+    <MSBuild Projects="..\Tipos de venta\Model\TiposVenta_model.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="TiposVenta_model:Make">
+    <MSBuild Projects="..\Tipos de venta\Model\TiposVenta_model.dproj" Targets="Make" />
+  </Target>
+  <Target Name="TiposVenta_controller">
+    <MSBuild Projects="..\Tipos de venta\Controller\TiposVenta_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="TiposVenta_controller:Clean">
+    <MSBuild Projects="..\Tipos de venta\Controller\TiposVenta_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="TiposVenta_controller:Make">
+    <MSBuild Projects="..\Tipos de venta\Controller\TiposVenta_controller.dproj" Targets="Make" />
+  </Target>
+  <Target Name="TiposVenta_view">
+    <MSBuild Projects="..\Tipos de venta\Views\TiposVenta_view.dproj" Targets="" />
+  </Target>
+  <Target Name="TiposVenta_view:Clean">
+    <MSBuild Projects="..\Tipos de venta\Views\TiposVenta_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="TiposVenta_view:Make">
+    <MSBuild Projects="..\Tipos de venta\Views\TiposVenta_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="FacturasCliente_model">
     <MSBuild Projects="Model\FacturasCliente_model.dproj" Targets="" />
   </Target>
@@ -151,14 +183,32 @@
   <Target Name="FactuGES_Server:Make">
     <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
   </Target>
+  <Target Name="Contabilidad_controller">
+    <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="Contabilidad_controller:Clean">
+    <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Contabilidad_controller:Make">
+    <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Contabilidad_view">
+    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
+  </Target>
+  <Target Name="Contabilidad_view:Clean">
+    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Contabilidad_view:Make">
+    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;TiposVenta_model;TiposVenta_controller;TiposVenta_view;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;Contabilidad_controller;Contabilidad_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;TiposVenta_model:Clean;TiposVenta_controller:Clean;TiposVenta_view:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;TiposVenta_model:Make;TiposVenta_controller:Make;TiposVenta_view:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_controller:Make;Contabilidad_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas

@@ -3,14 +3,14 @@ unit schFacturasClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_FacturasCliente = '{B44F7BFA-C409-45FB-82EE-487E20CB6656}';
+  RID_FacturasCliente = '{002FC909-9064-4D9C-AA64-A28325D42EC4}';
-  RID_FacturasCliente_Detalles = '{3398E461-119A-4D6F-8AB3-8D03BD2B0A4C}';
+  RID_FacturasCliente_Detalles = '{9A3BDA83-5AEB-4FD6-8914-CFDE2AE53C06}';
 
   { Data table names }
   nme_FacturasCliente = 'FacturasCliente';
@@ -53,6 +53,8 @@ const
   fld_FacturasClienteIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
   fld_FacturasClienteID_TIENDA = 'ID_TIENDA';
   fld_FacturasClienteTIENDA = 'TIENDA';
+  fld_FacturasClienteID_SUBCUENTA = 'ID_SUBCUENTA';
+  fld_FacturasClienteSUBCUENTA = 'SUBCUENTA';
 
   { FacturasCliente field indexes }
   idx_FacturasClienteID = 0;
@@ -91,6 +93,8 @@ const
   idx_FacturasClienteIGNORAR_CONTABILIDAD = 33;
   idx_FacturasClienteID_TIENDA = 34;
   idx_FacturasClienteTIENDA = 35;
+  idx_FacturasClienteID_SUBCUENTA = 36;
+  idx_FacturasClienteSUBCUENTA = 37;
 
   { FacturasCliente_Detalles fields }
   fld_FacturasCliente_DetallesID = 'ID';
@@ -127,7 +131,7 @@ const
 type
   { IFacturasCliente }
   IFacturasCliente = interface(IDAStronglyTypedDataTable)
-  ['{78EEA3FC-BED8-4F9E-ACBC-E377A8132367}']
+  ['{77B09FE8-CC07-4A1D-87AA-D36AEB54D2BE}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -272,6 +276,14 @@ type
     procedure SetTIENDAValue(const aValue: String);
     function GetTIENDAIsNull: Boolean;
     procedure SetTIENDAIsNull(const aValue: Boolean);
+    function GetID_SUBCUENTAValue: Integer;
+    procedure SetID_SUBCUENTAValue(const aValue: Integer);
+    function GetID_SUBCUENTAIsNull: Boolean;
+    procedure SetID_SUBCUENTAIsNull(const aValue: Boolean);
+    function GetSUBCUENTAValue: String;
+    procedure SetSUBCUENTAValue(const aValue: String);
+    function GetSUBCUENTAIsNull: Boolean;
+    procedure SetSUBCUENTAIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -347,10 +359,14 @@ type
     property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
     property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
     property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
+    property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
+    property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
+    property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
+    property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
   end;
 
   { TFacturasClienteDataTableRules }
-  TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
+  TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
   private
     f_OBSERVACIONES: IROStrings;
     procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -499,6 +515,14 @@ type
     procedure SetTIENDAValue(const aValue: String); virtual;
     function GetTIENDAIsNull: Boolean; virtual;
     procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
+    function GetID_SUBCUENTAValue: Integer; virtual;
+    procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
+    function GetID_SUBCUENTAIsNull: Boolean; virtual;
+    procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
+    function GetSUBCUENTAValue: String; virtual;
+    procedure SetSUBCUENTAValue(const aValue: String); virtual;
+    function GetSUBCUENTAIsNull: Boolean; virtual;
+    procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -573,6 +597,10 @@ type
     property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
     property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
     property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
+    property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
+    property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
+    property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
+    property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -582,7 +610,7 @@ type
 
   { IFacturasCliente_Detalles }
   IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{F3725EA1-8E69-4419-AE57-1F0A4C949826}']
+  ['{5705755D-4FD6-4B5E-B60C-72155D3868DD}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -674,7 +702,7 @@ type
   end;
 
   { TFacturasCliente_DetallesDataTableRules }
-  TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
+  TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
   private
   protected
     { Property getters and setters }
@@ -1549,6 +1577,48 @@ begin
     DataTable.Fields[idx_FacturasClienteTIENDA].AsVariant := Null;
 end;
 
+function TFacturasClienteDataTableRules.GetID_SUBCUENTAValue: Integer;
+begin
+  result := DataTable.Fields[idx_FacturasClienteID_SUBCUENTA].AsInteger;
+end;
+
+procedure TFacturasClienteDataTableRules.SetID_SUBCUENTAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_FacturasClienteID_SUBCUENTA].AsInteger := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetID_SUBCUENTAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasClienteID_SUBCUENTA].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasClienteID_SUBCUENTA].AsVariant := Null;
+end;
+
+function TFacturasClienteDataTableRules.GetSUBCUENTAValue: String;
+begin
+  result := DataTable.Fields[idx_FacturasClienteSUBCUENTA].AsString;
+end;
+
+procedure TFacturasClienteDataTableRules.SetSUBCUENTAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_FacturasClienteSUBCUENTA].AsString := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetSUBCUENTAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasClienteSUBCUENTA].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetSUBCUENTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasClienteSUBCUENTA].AsVariant := Null;
+end;
+
 
 { TFacturasCliente_DetallesDataTableRules }
 constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas

@@ -9,13 +9,13 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_FacturasClienteDelta = '{423AEA32-50CE-46B7-89CE-596B555D2557}';
+  RID_FacturasClienteDelta = '{9F142F33-556F-41B3-A527-27FF1BDAB48E}';
-  RID_FacturasCliente_DetallesDelta = '{E56A4E4E-9680-46FF-BF17-EFA23E024033}';
+  RID_FacturasCliente_DetallesDelta = '{A97D0506-4C6F-4078-A30F-8768419E7E0F}';
 
 type
   { IFacturasClienteDelta }
   IFacturasClienteDelta = interface(IFacturasCliente)
-  ['{423AEA32-50CE-46B7-89CE-596B555D2557}']
+  ['{9F142F33-556F-41B3-A527-27FF1BDAB48E}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -53,6 +53,8 @@ type
     function GetOldIGNORAR_CONTABILIDADValue : SmallInt;
     function GetOldID_TIENDAValue : Integer;
     function GetOldTIENDAValue : String;
+    function GetOldID_SUBCUENTAValue : Integer;
+    function GetOldSUBCUENTAValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -91,6 +93,8 @@ type
     property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
     property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
     property OldTIENDA : String read GetOldTIENDAValue;
+    property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
+    property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
   end;
 
   { TFacturasClienteBusinessProcessorRules }
@@ -315,6 +319,18 @@ type
     function GetOldTIENDAIsNull: Boolean; virtual;
     procedure SetTIENDAValue(const aValue: String); virtual;
     procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
+    function GetID_SUBCUENTAValue: Integer; virtual;
+    function GetID_SUBCUENTAIsNull: Boolean; virtual;
+    function GetOldID_SUBCUENTAValue: Integer; virtual;
+    function GetOldID_SUBCUENTAIsNull: Boolean; virtual;
+    procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
+    procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
+    function GetSUBCUENTAValue: String; virtual;
+    function GetSUBCUENTAIsNull: Boolean; virtual;
+    function GetOldSUBCUENTAValue: String; virtual;
+    function GetOldSUBCUENTAIsNull: Boolean; virtual;
+    procedure SetSUBCUENTAValue(const aValue: String); virtual;
+    procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -461,6 +477,14 @@ type
     property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
     property OldTIENDA : String read GetOldTIENDAValue;
     property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
+    property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
+    property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
+    property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
+    property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull;
+    property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue;
+    property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
+    property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
+    property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -470,7 +494,7 @@ type
 
   { IFacturasCliente_DetallesDelta }
   IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
-  ['{E56A4E4E-9680-46FF-BF17-EFA23E024033}']
+  ['{A97D0506-4C6F-4078-A30F-8768419E7E0F}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -1798,6 +1822,68 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIENDA] := Null;
 end;
 
+function TFacturasClienteBusinessProcessorRules.GetID_SUBCUENTAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_SUBCUENTA];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_SUBCUENTA]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_SUBCUENTA];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_SUBCUENTA]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_SUBCUENTA] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_SUBCUENTA] := Null;
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetSUBCUENTAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSUBCUENTA];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSUBCUENTA]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldSUBCUENTAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteSUBCUENTA];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteSUBCUENTA]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSUBCUENTA] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSUBCUENTA] := Null;
+end;
+
 
 { TFacturasCliente_DetallesBusinessProcessorRules }
 constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas

@@ -256,10 +256,10 @@ begin
   IVA := AppFactuGES.EmpresaActiva.IVA;
   RE := 0;
   SITUACION := CTE_PENDIENTE;
-  IGNORAR_CONTABILIDAD := 0;
-
   ID_TIENDA := CTE_ID_TODAS;
   TIENDA := CTE_TODAS;
+
+  IGNORAR_CONTABILIDAD := 0;
 end;
 
 procedure TBizFacturaCliente.IVAOnChange(Sender: TDACustomField);

Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas

@@ -96,6 +96,19 @@ begin
   ASchema := BusinessProcessor.Schema;
   ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
 
+  //Eliminamos los recibos de la factura
+  ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_RecibosFactura');
+  try
+    with ACommand do
+    begin
+      ParamByName('ID_FACTURA').Value := aChange.OldValueByName[fld_FacturasClienteID];
+      Execute;
+    end;
+  finally
+    ACommand := NIL;
+  end;
+
+  //Eliminamos los asientos contables de la factura
   ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_AsientoFactura');
   try
     with ACommand do
@@ -113,14 +126,15 @@ function TBizFacturasClienteServer.DarReferencia: String;
 var
   ATipo : String;
 begin
-  if TIPO = CTE_TIPO_FACTURA then
+//No se hace distinción en la referencia entre facturas y abonos
-    ATipo := REF_FACTURAS_CLIENTE
+//  if TIPO = CTE_TIPO_FACTURA then
-  else
+    ATipo := REF_FACTURAS_CLIENTE;
-    ATipo := REF_ABONOS_CLIENTE;
+//  else
+//    ATipo := REF_ABONOS_CLIENTE;
 
   with TsrvReferencias.Create(NIL) do
     try
-      Result := DarNuevaReferencia(ATipo, ID_EMPRESA)
+      Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
     finally
       Free;
     end;
@@ -130,15 +144,14 @@ function TBizFacturasClienteServer.IncrementarReferencia: Boolean;
 var
   ATipo : String;
 begin
-  if TIPO = CTE_TIPO_FACTURA then
+//  if TIPO = CTE_TIPO_FACTURA then
-    ATipo := REF_FACTURAS_CLIENTE
+    ATipo := REF_FACTURAS_CLIENTE;
-  else
+//  else
-    ATipo := REF_ABONOS_CLIENTE;
+//    ATipo := REF_ABONOS_CLIENTE;
 
   with TsrvReferencias.Create(NIL) do
     try
-      Result := IncrementarValorReferencia(ATipo,
+      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-        Self.REFERENCIA, ID_EMPRESA)
     finally
       Free;
     end;
@@ -158,6 +171,7 @@ begin
     with ACommand do
     begin
       ParamByName('IdFactura').Value := aChange.NewValueByName[fld_FacturasClienteID];
+      ParamByName('IdSubCuentaVenta').Value := aChange.NewValueByName[fld_FacturasClienteID_SUBCUENTA];
       Execute;
     end;
   finally
@@ -179,6 +193,7 @@ begin
     with ACommand do
     begin
       ParamByName('IdFactura').Value := aChange.NewValueByName[fld_FacturasClienteID];
+      ParamByName('IdSubCuentaVenta').Value := aChange.NewValueByName[fld_FacturasClienteID_SUBCUENTA];
       Execute;
     end;
   finally

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

@@ -166,6 +166,14 @@ object srvFacturasCliente: TsrvFacturasCliente
               item
                 DatasetField = 'TIENDA'
                 TableField = 'TIENDA'
+              end
+              item
+                DatasetField = 'ID_SUBCUENTA'
+                TableField = 'ID_SUBCUENTA'
+              end
+              item
+                DatasetField = 'SUBCUENTA'
+                TableField = 'SUBCUENTA'
               end>
           end>
         Name = 'FacturasCliente'
@@ -362,6 +370,15 @@ object srvFacturasCliente: TsrvFacturasCliente
             Name = 'TIENDA'
             DataType = datString
             Size = 255
+          end
+          item
+            Name = 'ID_SUBCUENTA'
+            DataType = datInteger
+          end
+          item
+            Name = 'SUBCUENTA'
+            DataType = datString
+            Size = 255
           end>
       end
       item
@@ -551,6 +568,10 @@ object srvFacturasCliente: TsrvFacturasCliente
           item
             Name = 'IdFactura'
             Value = ''
+          end
+          item
+            Name = 'IdSubCuentaVenta'
+            Value = ''
           end>
         Statements = <
           item
@@ -558,7 +579,9 @@ object srvFacturasCliente: TsrvFacturasCliente
             ConnectionType = 'Interbase'
             Default = True
             Name = 'IBX'
-            SQL = 'execute procedure proc_new_asiento_factura_cli :IdFactura'#10
+            SQL = 
+              'execute procedure proc_new_asiento_factura_cli :IdFactura, :IdSu' +
+              'bCuentaVenta'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1087,6 +1110,21 @@ object srvFacturasCliente: TsrvFacturasCliente
             ColumnMappings = <>
           end>
         Name = 'Update_FacturasCliente'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID_FACTURA'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            SQL = 'delete from recibos_cliente'#10'where id_factura = :ID_FACTURA'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_RecibosFactura'
       end>
     RelationShips = <
       item

Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk

@@ -30,7 +30,9 @@ requires
   FacturasCliente_controller,
   Contactos_view,
   Articulos_view,
-  AlbCli_FacCli_relation;
+  AlbCli_FacCli_relation,
+  Contabilidad_view,
+  Contabilidad_controller;
 
 contains
   uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas',

Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj

@@ -1,4 +1,5 @@
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid>
     <MainSource>FacturasCliente_view.dpk</MainSource>
@@ -50,6 +51,8 @@
     </DelphiCompile>
     <DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
     <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
+    <DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
     <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
     <DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
     <DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />

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

@@ -3,19 +3,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
   Top = 208
   Caption = 'Nueva factura de cliente'
   ClientHeight = 642
-  ClientWidth = 813
+  ClientWidth = 771
   Position = poScreenCenter
   OnClose = CustomEditorClose
-  ExplicitWidth = 821
+  ExplicitWidth = 779
   ExplicitHeight = 676
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 813
+    Width = 771
     Caption = 'Nueva factura de cliente'
     ExplicitWidth = 813
     inherited Image1: TImage
-      Left = 786
+      Left = 744
       Picture.Data = {
         0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
         0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -39,7 +39,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
     end
   end
   inherited TBXDock: TTBXDock
-    Width = 813
+    Width = 771
     ExplicitWidth = 813
     inherited tbxMain: TTBXToolbar
       ExplicitWidth = 488
@@ -54,7 +54,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
       end
     end
     inherited tbxMenu: TTBXToolbar
-      ExplicitWidth = 813
+      ExplicitWidth = 771
       inherited TBXSubmenuItem4: TTBXSubmenuItem
         inherited TBXItem8: TTBXItem
           Visible = False
@@ -69,8 +69,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
     end
   end
   inherited pgPaginas: TPageControl
-    Width = 807
+    Width = 765
     Height = 378
+    ActivePage = pagContabilidad
     OnChanging = pgPaginasChanging
     ExplicitLeft = 3
     ExplicitTop = 79
@@ -84,7 +85,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
       inline frViewFacturaCliente1: TfrViewFacturaCliente
         Left = 0
         Top = 0
-        Width = 799
+        Width = 757
         Height = 350
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
@@ -98,7 +99,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         ExplicitWidth = 799
         ExplicitHeight = 350
         inherited dxLayoutControl1: TdxLayoutControl
-          Width = 799
+          Width = 757
           Height = 350
           ExplicitWidth = 799
           ExplicitHeight = 350
@@ -147,13 +148,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                 Width = 327
               end
               inherited edtCodigoPostal: TcxDBTextEdit
-                Left = 284
+                Left = 242
                 DataBinding.DataSource = frViewFacturaCliente1.DADataSource
-                ExplicitLeft = 284
+                ExplicitLeft = 242
               end
               inherited Button3: TBitBtn
-                Left = 174
+                Left = 132
-                ExplicitLeft = 174
+                ExplicitLeft = 132
               end
             end
           end
@@ -175,10 +176,11 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
     object pagContenido: TTabSheet
       Caption = 'Contenido'
       ImageIndex = 1
+      ExplicitWidth = 799
       inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
         Left = 0
         Top = 0
-        Width = 799
+        Width = 757
         Height = 350
         Align = alClient
         BiDiMode = bdLeftToRight
@@ -194,7 +196,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         ExplicitWidth = 799
         ExplicitHeight = 350
         inherited ToolBar1: TToolBar
-          Width = 799
+          Width = 757
           ExplicitWidth = 799
           inherited ToolButton4: TToolButton
             Wrap = False
@@ -217,50 +219,50 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
             ExplicitWidth = 57
           end
           inherited UpDown1: TUpDown
-            Left = 218
+            Left = 202
-            ExplicitLeft = 218
+            ExplicitLeft = 202
           end
           inherited ToolButton13: TToolButton
-            Left = 235
+            Left = 219
-            ExplicitLeft = 235
+            ExplicitLeft = 219
           end
           inherited ToolButton6: TToolButton
-            Left = 243
+            Left = 227
-            ExplicitLeft = 243
+            ExplicitLeft = 227
           end
           inherited ToolButton7: TToolButton
-            Left = 277
+            Left = 261
-            ExplicitLeft = 277
+            ExplicitLeft = 261
           end
           inherited ToolButton8: TToolButton
-            Left = 311
+            Left = 295
-            ExplicitLeft = 311
+            ExplicitLeft = 295
           end
           inherited ToolButton12: TToolButton
-            Left = 345
+            Left = 329
-            ExplicitLeft = 345
+            ExplicitLeft = 329
           end
           inherited ToolButton9: TToolButton
-            Left = 353
+            Left = 337
-            ExplicitLeft = 353
+            ExplicitLeft = 337
           end
           inherited ToolButton10: TToolButton
-            Left = 387
+            Left = 371
-            ExplicitLeft = 387
+            ExplicitLeft = 371
           end
           inherited ToolButton11: TToolButton
-            Left = 421
+            Left = 405
-            ExplicitLeft = 421
+            ExplicitLeft = 405
           end
         end
         inherited cxGrid: TcxGrid
-          Width = 799
+          Width = 757
           Height = 278
           ExplicitWidth = 799
           ExplicitHeight = 278
         end
         inherited TBXDock1: TTBXDock
-          Width = 799
+          Width = 757
           ExplicitWidth = 799
           inherited TBXToolbar1: TTBXToolbar
             ExplicitWidth = 548
@@ -271,38 +273,46 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
     object pagContabilidad: TTabSheet
       Caption = 'Contabilidad'
       ImageIndex = 2
-      ExplicitLeft = 0
+      ExplicitWidth = 799
-      ExplicitTop = 0
+      inline frViewListaSubcuentas1: TfrViewListaSubcuentas
-      ExplicitWidth = 0
+        Left = 0
-      ExplicitHeight = 0
+        Top = 0
-      object cbIgnorarContabilidad: TcxDBCheckBox
+        Width = 757
-        Left = 16
+        Height = 73
-        Top = 12
+        Align = alTop
-        Caption = 'Ignorar en contabilidad'
+        Font.Charset = DEFAULT_CHARSET
-        DataBinding.DataField = 'IGNORAR_CONTABILIDAD'
+        Font.Color = clWindowText
-        DataBinding.DataSource = dsDataTable
+        Font.Height = -11
-        Properties.NullStyle = nssUnchecked
+        Font.Name = 'Tahoma'
-        Properties.ValueChecked = 1
+        Font.Style = []
-        Properties.ValueUnchecked = 0
+        ParentFont = False
-        Style.BorderColor = clWindowFrame
-        Style.BorderStyle = ebs3D
-        Style.HotTrack = False
-        Style.LookAndFeel.Kind = lfStandard
-        Style.LookAndFeel.NativeStyle = True
-        StyleDisabled.LookAndFeel.Kind = lfStandard
-        StyleDisabled.LookAndFeel.NativeStyle = True
-        StyleFocused.LookAndFeel.Kind = lfStandard
-        StyleFocused.LookAndFeel.NativeStyle = True
-        StyleHot.LookAndFeel.Kind = lfStandard
-        StyleHot.LookAndFeel.NativeStyle = True
         TabOrder = 0
-        Width = 300
+        ReadOnly = False
+        ExplicitLeft = 10
+        ExplicitTop = 20
+        ExplicitHeight = 73
+        inherited dxLayoutControl1: TdxLayoutControl
+          Width = 757
+          inherited cbSubCuentas: TcxComboBox
+            Left = 85
+            ExplicitLeft = 85
+          end
+          inherited eContabilizar: TcxCheckBox
+            Left = 520
+            ExplicitLeft = 520
+          end
+          inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+            inherited dxLayoutControl1Item1: TdxLayoutItem
+              Caption = 'Tipo de venta:'
+            end
+          end
+        end
       end
     end
   end
   inherited StatusBar: TJvStatusBar
     Top = 623
-    Width = 813
+    Width = 771
     Panels = <
       item
         Width = 200
@@ -313,7 +323,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
   inline frViewTotales1: TfrViewTotales [4]
     Left = 0
     Top = 460
-    Width = 813
+    Width = 771
     Height = 163
     Align = alBottom
     Font.Charset = DEFAULT_CHARSET
@@ -328,7 +338,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
     ExplicitWidth = 813
     ExplicitHeight = 163
     inherited dxLayoutControl1: TdxLayoutControl
-      Width = 813
+      Width = 771
       LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1
       ExplicitWidth = 813
       inherited Bevel1: TBevel
@@ -338,18 +348,18 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         ExplicitWidth = 73
       end
       inherited Bevel3: TBevel
-        Left = 433
+        Left = 411
         Top = 30
         Height = 122
-        ExplicitLeft = 433
+        ExplicitLeft = 411
         ExplicitTop = 30
         ExplicitHeight = 122
       end
       inherited Bevel4: TBevel
-        Left = 545
+        Left = 523
         Top = 111
         Width = 186
-        ExplicitLeft = 545
+        ExplicitLeft = 523
         ExplicitTop = 111
         ExplicitWidth = 186
       end
@@ -361,19 +371,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         Width = 93
       end
       inherited ImporteIVA: TcxDBCurrencyEdit
-        Left = 616
+        Left = 594
         Top = 57
         Style.IsFontAssigned = True
-        ExplicitLeft = 616
+        ExplicitLeft = 594
         ExplicitTop = 57
         ExplicitWidth = 137
         Width = 137
       end
       inherited ImporteTotal: TcxDBCurrencyEdit
-        Left = 546
+        Left = 524
         Top = 131
         Style.IsFontAssigned = True
-        ExplicitLeft = 546
+        ExplicitLeft = 524
         ExplicitTop = 131
         ExplicitWidth = 137
         Width = 137
@@ -385,34 +395,34 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         ExplicitTop = 131
       end
       inherited edtIVA: TcxDBSpinEdit
-        Left = 545
+        Left = 523
         Top = 57
         Style.IsFontAssigned = True
-        ExplicitLeft = 545
+        ExplicitLeft = 523
         ExplicitTop = 57
       end
       inherited ImporteBase: TcxDBCurrencyEdit
-        Left = 545
+        Left = 523
         Top = 30
         Style.IsFontAssigned = True
-        ExplicitLeft = 545
+        ExplicitLeft = 523
         ExplicitTop = 30
         ExplicitWidth = 92
         Width = 92
       end
       inherited edtRE: TcxDBSpinEdit
-        Left = 545
+        Left = 523
         Top = 84
         Properties.AssignedValues.MinValue = True
         Style.IsFontAssigned = True
-        ExplicitLeft = 545
+        ExplicitLeft = 523
         ExplicitTop = 84
       end
       inherited ImporteRE: TcxDBCurrencyEdit
-        Left = 616
+        Left = 594
         Top = 84
         Style.IsFontAssigned = True
-        ExplicitLeft = 616
+        ExplicitLeft = 594
         ExplicitTop = 84
         ExplicitWidth = 56
         Width = 56
@@ -443,10 +453,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         Width = 134
       end
       inherited bTiposIVA: TButton
-        Left = 285
+        Left = 263
         Top = 57
         OnClick = frViewTotales1bTiposIVAClick
-        ExplicitLeft = 285
+        ExplicitLeft = 263
         ExplicitTop = 57
       end
       inherited cbRecargoEquivalencia: TcxDBCheckBox

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

@@ -17,7 +17,7 @@ uses
   uViewDetallesFacturaCliente, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar,
   uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uDAInterfaces,
   cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Grids, DBGrids,
-  cxCheckBox;
+  cxCheckBox, uViewListaSubCuentas;
 
 
 type
@@ -26,7 +26,7 @@ type
     frViewTotales1: TfrViewTotales;
     frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente;
     pagContabilidad: TTabSheet;
-    cbIgnorarContabilidad: TcxDBCheckBox;
+    frViewListaSubcuentas1: TfrViewListaSubcuentas;
     procedure FormShow(Sender: TObject);
     procedure frViewClienteFactura1edtlNombrePropertiesEditValueChanged(Sender: TObject);
     procedure dsDataTableDataChange(Sender: TObject; Field: TField);
@@ -79,9 +79,10 @@ type
 
 implementation
 {$R *.dfm}
+{$INCLUDE ..\..\..\FactuGES.inc}
 
 uses
-  uBizContactos, uDataModuleUsuarios, uFactuGES_App, 
+  uBizContactos, uDataModuleUsuarios, uFactuGES_App, uSubCuentasController,
   uDetallesFacturaClienteController, uDialogUtils, uDataTableUtils;
 //  uGenerarAlbaranesCliFacCliUtils;
 
@@ -98,6 +99,9 @@ begin
   pgPaginas.ActivePageIndex := 0;
   ViewFacturaCliente := frViewFacturaCliente1;
   FTiposIVAController := TTiposIVAController.Create;
+
+  //CONTABILIDAD
+  frViewListaSubcuentas1.TipoSubCuenta := tVentas;
 end;
 
 procedure TfEditorFacturaCliente.CustomEditorClose(Sender: TObject;
@@ -249,6 +253,7 @@ end;
 procedure TfEditorFacturaCliente.GuardarInterno;
 var
   bEsNuevo : Boolean;
+
 begin
   inherited;
 
@@ -257,8 +262,14 @@ begin
   frViewDetallesFacturaCliente1.BeginUpdate;  // Para que no se mueva el foco
   try
     bEsNuevo := FFactura.EsNuevo;
-    FController.SetID_Tienda(FFactura, frViewFacturaCliente1.frViewTienda1.getIDTienda);
+
+    {$IFDEF CONTABILIDAD}
+      FController.SetIgnorarContabilidad(FFactura, frViewListaSubCuentas1.eContabilizar.EditValue);
+      FController.SetIdSubcuenta(FFactura, frViewListaSubCuentas1.IdSubCuenta);
+    {$ENDIF}
+
     FController.Guardar(FFactura);
+
   finally
     frViewDetallesFacturaCliente1.EndUpdate;
     //frViewDetallesFacturaCliente1.RestoreGridStatus;
@@ -398,7 +409,6 @@ begin
   begin
     dsDataTable.DataTable := FFactura.DataTable;
     frViewTotales1.DADataSource.DataTable := FFactura.DataTable;
-
     FTiposIVA := FTiposIVAController.BuscarTodos;
     frViewTotales1.dsTiposIVA.DataTable := FTiposIVA.DataTable;
     FTiposIVA.DataTable.Active := True;
@@ -412,6 +422,12 @@ begin
       frViewDetallesFacturaCliente1.Detalles := FFactura.Detalles;
       frViewDetallesFacturaCliente1.Factura := FFactura; //Para poder sacar los descuento del articulos segun el cliente seleccionado
     end;
+
+    {$IFDEF CONTABILIDAD}
+      frViewListaSubCuentas1.eContabilizar.EditValue := FFactura.IGNORAR_CONTABILIDAD;
+//      frViewListaSubCuentas1.ElegirSubCuenta(FFactura.ID_SUBCUENTA);
+    {$ENDIF}
+
   end
   else begin
     frViewFacturaCliente1.frViewClienteFactura.OnClienteChanged := NIL;

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

@@ -1,6 +1,6 @@
 inherited frViewFacturaCliente: TfrViewFacturaCliente
-  Width = 745
+  Width = 451
-  Height = 458
+  Height = 304
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,18 +9,16 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 745
+    Width = 451
-    Height = 458
+    Height = 304
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
-    ExplicitWidth = 451
-    ExplicitHeight = 304
     DesignSize = (
-      745
+      451
-      458)
+      304)
     object eReferencia: TcxDBTextEdit
       Left = 124
       Top = 30
@@ -100,7 +98,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 314
         Height = 215
-        ExplicitWidth = 314
+        ExplicitWidth = 101
         ExplicitHeight = 215
         inherited edtlNombre: TcxDBTextEdit
           DataBinding.DataSource = DADataSource
@@ -128,13 +126,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
           Width = 327
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 230
+          Left = 192
           DataBinding.DataSource = DADataSource
-          ExplicitLeft = 230
+          ExplicitLeft = 192
         end
         inherited Button3: TBitBtn
-          Left = 120
+          Left = 82
-          ExplicitLeft = 120
+          ExplicitLeft = 82
         end
       end
     end

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

@@ -126,7 +126,6 @@ begin
   if Assigned(FFactura) then
   begin
     DADataSource.DataTable := FFactura.DataTable;
-
     frViewTienda1.DataItem := FFactura.DataTable;
 
     FFormasPago := FFormasPagoController.BuscarTodos;

Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas

@@ -109,6 +109,7 @@ begin
     with ACommand do
     begin
       ParamByName('IdPago').Value := aChange.NewValueByName[fld_PagosClienteID];
+      ParamByName('IdSubCuentaPago').Value := aChange.NewValueByName[fld_PagosClienteCUENTA];
       Execute;
     end;
   finally

Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj

@@ -11,6 +11,8 @@
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
     <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
     <Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
+    <Projects Include="..\Contabilidad\Data\Contabilidad_data.dproj" />
+    <Projects Include="..\Contabilidad\Model\Contabilidad_model.dproj" />
     <Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
     <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
@@ -143,6 +145,24 @@
   <Target Name="Articulos_view:Make">
     <MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="Contabilidad_model">
+    <MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="" />
+  </Target>
+  <Target Name="Contabilidad_model:Clean">
+    <MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Contabilidad_model:Make">
+    <MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Contabilidad_data">
+    <MSBuild Projects="..\Contabilidad\Data\Contabilidad_data.dproj" Targets="" />
+  </Target>
+  <Target Name="Contabilidad_data:Clean">
+    <MSBuild Projects="..\Contabilidad\Data\Contabilidad_data.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Contabilidad_data:Make">
+    <MSBuild Projects="..\Contabilidad\Data\Contabilidad_data.dproj" Targets="Make" />
+  </Target>
   <Target Name="Contabilidad_controller">
     <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="" />
   </Target>
@@ -162,13 +182,13 @@
     <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
   </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;Articulos_view;Contabilidad_controller;Contabilidad_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;Articulos_view;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;Articulos_view:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;Articulos_view:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;Articulos_view:Make;Contabilidad_controller:Make;Contabilidad_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;Articulos_view:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm

@@ -14,6 +14,7 @@ object fEditorFechaPago: TfEditorFechaPago
   OldCreateOrder = False
   Position = poScreenCenter
   OnCloseQuery = FormCloseQuery
+  OnCreate = FormCreate
   OnShow = FormShow
   PixelsPerInch = 96
   TextHeight = 13
@@ -76,11 +77,11 @@ object fEditorFechaPago: TfEditorFechaPago
       TabOrder = 1
     end
   end
-  inline frViewCajasBancos1: TfrViewCajasBancos
+  inline frViewListaSubcuentas1: TfrViewListaSubcuentas
-    Left = 39
+    Left = 30
-    Top = 83
+    Top = 80
     Width = 453
-    Height = 76
+    Height = 69
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
     Font.Height = -11
@@ -89,11 +90,10 @@ object fEditorFechaPago: TfEditorFechaPago
     ParentFont = False
     TabOrder = 2
     ReadOnly = False
-    ExplicitLeft = 39
+    ExplicitLeft = 30
-    ExplicitTop = 83
+    ExplicitTop = 80
-    ExplicitHeight = 76
     inherited dxLayoutControl1: TdxLayoutControl
-      inherited cbCajasBancos: TcxComboBox
+      inherited cbSubCuentas: TcxComboBox
         ExplicitWidth = 376
         Width = 376
       end

Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas

@@ -7,7 +7,7 @@ uses
   Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
   cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPago,
   cxCheckBox, uSubCuentasController, Buttons, cxDBEdit, cxGraphics, uCustomView,
-  uViewBase, uViewCajasBancos;
+  uViewBase, uViewListaSubCuentas;
 
 type
   TfEditorFechaPago = class(TfEditorBasico, IEditorFechaPago)
@@ -17,10 +17,11 @@ type
     bCancelar: TButton;
     Label2: TLabel;
     Panel1: TPanel;
-    frViewCajasBancos1: TfrViewCajasBancos;
+    frViewListaSubcuentas1: TfrViewListaSubcuentas;
     procedure FormShow(Sender: TObject);
     procedure eFechaPagoPropertiesChange(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure FormCreate(Sender: TObject);
 
   private
     FFechaPago : TDateTime;
@@ -72,15 +73,22 @@ begin
   end;
 end;
 
+procedure TfEditorFechaPago.FormCreate(Sender: TObject);
+begin
+  {$IFDEF CONTABILIDAD}
+    frViewListaSubCuentas1.TipoSubCuenta := tCajas;
+  {$ENDIF}
+end;
+
 procedure TfEditorFechaPago.FormShow(Sender: TObject);
 begin
   if (length(eFechaPago.Text) = 0) then
      eFechaPago.Date := Date;
 
   {$IFDEF CONTABILIDAD}
-    frViewCajasBancos1.Visible := true;
+    frViewListaSubCuentas1.Visible := true;
   {$ELSE}
-    frViewCajasBancos1.Visible := false;
+    frViewListaSubCuentas1.Visible := false;
   {$ENDIF}
 end;
 
@@ -91,12 +99,12 @@ end;
 
 function TfEditorFechaPago.GetIdSubCuenta: Integer;
 begin
-  Result := frViewCajasBancos1.IdSubCuenta;
+  Result := frViewListaSubCuentas1.IdSubCuenta;
 end;
 
 function TfEditorFechaPago.GetIgnorarContabilidad: Integer;
 begin
-  Result := frViewCajasBancos1.eContabilizar.EditValue;
+  Result := frViewListaSubCuentas1.eContabilizar.EditValue;
 end;
 
 procedure TfEditorFechaPago.SetFechaPago(const Value: TDateTime);
@@ -107,12 +115,12 @@ end;
 
 procedure TfEditorFechaPago.SetIdSubCuenta(const Value: Integer);
 begin
-  frViewCajasBancos1.ElegirCajaBanco(Value);
+  frViewListaSubCuentas1.ElegirSubCuenta(Value);
 end;
 
 procedure TfEditorFechaPago.SetIgnorarContabilidad(const Value: Integer);
 begin
-  frViewCajasBancos1.eContabilizar.EditValue := Value;
+  frViewListaSubCuentas1.eContabilizar.EditValue := Value;
 end;
 
 end.

Source/Modulos/Referencias/Data/Referencias_data.dproj

@@ -47,23 +47,9 @@
     <DelphiCompile Include="Referencias_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicaReferencias_model.dcp" />
+    <DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBaReferencias_model.dcp" />
+    <DCCReference Include="..\..\..\Servidor\Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBaseReferencias_model.dcp" />
+    <DCCReference Include="..\..\..\Servidor\Referencias_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBasReferencias_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBReferencias_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationReferencias_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicatioReferencias_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicatiReferencias_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicatReferencias_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicReferencias_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\AppliReferencias_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplReferencias_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\AppReferencias_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApReferencias_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\AReferencias_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Referencias_model.dcp" />
     <DCCReference Include="uDataModuleReferencias.pas">
       <Form>DataModuleReferencias</Form>
     </DCCReference>

Source/Modulos/Referencias/Data/uDataModuleReferencias.dfm

@@ -37,6 +37,10 @@ inherited DataModuleReferencias: TDataModuleReferencias
         Name = 'ID_EMPRESA'
         DataType = datInteger
       end
+      item
+        Name = 'ID_TIENDA'
+        DataType = datInteger
+      end
       item
         Name = 'CODIGO'
         DataType = datString

Source/Modulos/Referencias/Model/Referencias_model.dproj

@@ -47,12 +47,11 @@
     <DelphiCompile Include="Referencias_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
+    <DCCReference Include="..\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Base.dcp" />
+    <DCCReference Include="..\Base.dcp" />
-    <DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
+    <DCCReference Include="..\dbrtl.dcp" />
-    <DCCReference Include="..\..\..\Servidor\rtl.dcp" />
+    <DCCReference Include="..\rtl.dcp" />
-    <DCCReference Include="..\..\..\Servidor\vcl.dcp" />
+    <DCCReference Include="..\vcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBasecontainsuIDataModuleReferenciasin.dcp" />
     <DCCReference Include="Data\uIDataModuleReferencias.pas" />
     <DCCReference Include="schReferenciasClient_Intf.pas" />
     <DCCReference Include="schReferenciasServer_Intf.pas" />

Source/Modulos/Referencias/Model/schReferenciasClient_Intf.pas

@@ -9,7 +9,7 @@ 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_Referencias = '{99B6D683-BD8D-4855-BBF8-65A96EA046A1}';
+  RID_Referencias = '{156D5B25-C2AD-4959-B6AB-1D9403AB4FCE}';
 
   { Data table names }
   nme_Referencias = 'Referencias';
@@ -17,6 +17,7 @@ const
   { Referencias fields }
   fld_ReferenciasID = 'ID';
   fld_ReferenciasID_EMPRESA = 'ID_EMPRESA';
+  fld_ReferenciasID_TIENDA = 'ID_TIENDA';
   fld_ReferenciasCODIGO = 'CODIGO';
   fld_ReferenciasVALOR = 'VALOR';
   fld_ReferenciasDESCRIPCION = 'DESCRIPCION';
@@ -24,14 +25,15 @@ const
   { Referencias field indexes }
   idx_ReferenciasID = 0;
   idx_ReferenciasID_EMPRESA = 1;
-  idx_ReferenciasCODIGO = 2;
+  idx_ReferenciasID_TIENDA = 2;
-  idx_ReferenciasVALOR = 3;
+  idx_ReferenciasCODIGO = 3;
-  idx_ReferenciasDESCRIPCION = 4;
+  idx_ReferenciasVALOR = 4;
+  idx_ReferenciasDESCRIPCION = 5;
 
 type
   { IReferencias }
   IReferencias = interface(IDAStronglyTypedDataTable)
-  ['{F8DE7790-964D-498F-B2BA-1DCE31966722}']
+  ['{A12A8336-88E9-4B4A-9485-49E5BCA286C3}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -41,6 +43,10 @@ type
     procedure SetID_EMPRESAValue(const aValue: Integer);
     function GetID_EMPRESAIsNull: Boolean;
     procedure SetID_EMPRESAIsNull(const aValue: Boolean);
+    function GetID_TIENDAValue: Integer;
+    procedure SetID_TIENDAValue(const aValue: Integer);
+    function GetID_TIENDAIsNull: Boolean;
+    procedure SetID_TIENDAIsNull(const aValue: Boolean);
     function GetCODIGOValue: String;
     procedure SetCODIGOValue(const aValue: String);
     function GetCODIGOIsNull: Boolean;
@@ -60,6 +66,8 @@ type
     property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
     property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
     property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
+    property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
     property CODIGO: String read GetCODIGOValue write SetCODIGOValue;
     property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull;
     property VALOR: String read GetVALORValue write SetVALORValue;
@@ -81,6 +89,10 @@ type
     procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
     function GetID_EMPRESAIsNull: Boolean; virtual;
     procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+    function GetID_TIENDAValue: Integer; virtual;
+    procedure SetID_TIENDAValue(const aValue: Integer); virtual;
+    function GetID_TIENDAIsNull: Boolean; virtual;
+    procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
     function GetCODIGOValue: String; virtual;
     procedure SetCODIGOValue(const aValue: String); virtual;
     function GetCODIGOIsNull: Boolean; virtual;
@@ -99,6 +111,8 @@ type
     property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
     property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
     property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
+    property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
     property CODIGO: String read GetCODIGOValue write SetCODIGOValue;
     property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull;
     property VALOR: String read GetVALORValue write SetVALORValue;
@@ -169,6 +183,27 @@ begin
     DataTable.Fields[idx_ReferenciasID_EMPRESA].AsVariant := Null;
 end;
 
+function TReferenciasDataTableRules.GetID_TIENDAValue: Integer;
+begin
+  result := DataTable.Fields[idx_ReferenciasID_TIENDA].AsInteger;
+end;
+
+procedure TReferenciasDataTableRules.SetID_TIENDAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ReferenciasID_TIENDA].AsInteger := aValue;
+end;
+
+function TReferenciasDataTableRules.GetID_TIENDAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ReferenciasID_TIENDA].IsNull;
+end;
+
+procedure TReferenciasDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ReferenciasID_TIENDA].AsVariant := Null;
+end;
+
 function TReferenciasDataTableRules.GetCODIGOValue: String;
 begin
   result := DataTable.Fields[idx_ReferenciasCODIGO].AsString;

Source/Modulos/Referencias/Model/schReferenciasServer_Intf.pas

@@ -9,15 +9,16 @@ 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_ReferenciasDelta = '{6FB0611C-16F3-40E5-8C0C-7706C84C0E8C}';
+  RID_ReferenciasDelta = '{3D76ED26-23CC-4938-82C0-6044A5F5284F}';
 
 type
   { IReferenciasDelta }
   IReferenciasDelta = interface(IReferencias)
-  ['{6FB0611C-16F3-40E5-8C0C-7706C84C0E8C}']
+  ['{3D76ED26-23CC-4938-82C0-6044A5F5284F}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
+    function GetOldID_TIENDAValue : Integer;
     function GetOldCODIGOValue : String;
     function GetOldVALORValue : String;
     function GetOldDESCRIPCIONValue : String;
@@ -25,6 +26,7 @@ type
     { Properties }
     property OldID : Integer read GetOldIDValue;
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+    property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
     property OldCODIGO : String read GetOldCODIGOValue;
     property OldVALOR : String read GetOldVALORValue;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
@@ -47,6 +49,12 @@ type
     function GetOldID_EMPRESAIsNull: Boolean; virtual;
     procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
     procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+    function GetID_TIENDAValue: Integer; virtual;
+    function GetID_TIENDAIsNull: Boolean; virtual;
+    function GetOldID_TIENDAValue: Integer; virtual;
+    function GetOldID_TIENDAIsNull: Boolean; virtual;
+    procedure SetID_TIENDAValue(const aValue: Integer); virtual;
+    procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
     function GetCODIGOValue: String; virtual;
     function GetCODIGOIsNull: Boolean; virtual;
     function GetOldCODIGOValue: String; virtual;
@@ -75,6 +83,10 @@ type
     property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
     property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
+    property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
+    property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
+    property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
+    property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
     property CODIGO : String read GetCODIGOValue write SetCODIGOValue;
     property CODIGOIsNull : Boolean read GetCODIGOIsNull write SetCODIGOIsNull;
     property OldCODIGO : String read GetOldCODIGOValue;
@@ -172,6 +184,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_EMPRESA] := Null;
 end;
 
+function TReferenciasBusinessProcessorRules.GetID_TIENDAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_TIENDA];
+end;
+
+function TReferenciasBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_TIENDA]);
+end;
+
+function TReferenciasBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasID_TIENDA];
+end;
+
+function TReferenciasBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasID_TIENDA]);
+end;
+
+procedure TReferenciasBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_TIENDA] := aValue;
+end;
+
+procedure TReferenciasBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_TIENDA] := Null;
+end;
+
 function TReferenciasBusinessProcessorRules.GetCODIGOValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasCODIGO];

Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm

@@ -41,6 +41,10 @@ object srvReferencias: TsrvReferencias
               item
                 DatasetField = 'DESCRIPCION'
                 TableField = 'DESCRIPCION'
+              end
+              item
+                DatasetField = 'ID_TIENDA'
+                TableField = 'ID_TIENDA'
               end>
           end>
         Name = 'Referencias'
@@ -56,6 +60,10 @@ object srvReferencias: TsrvReferencias
             Name = 'ID_EMPRESA'
             DataType = datInteger
           end
+          item
+            Name = 'ID_TIENDA'
+            DataType = datInteger
+          end
           item
             Name = 'CODIGO'
             DataType = datString
@@ -97,7 +105,7 @@ object srvReferencias: TsrvReferencias
             Name = 'IBX'
             SQL = 
               'UPDATE REFERENCIAS SET'#10'    VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO' +
-              #10'  AND {Where}'#10
+              #10#10
             StatementType = stSQL
             ColumnMappings = <>
           end>

Source/Modulos/Referencias/Servidor/srvReferencias_Impl.pas

@@ -30,16 +30,16 @@ type
   public
     { IsrvReferencias methods }
     function DarNuevaReferencia(const NombreReferencia: String;
-      const EmpresaID: Integer = -1): String;
+      const EmpresaID: Integer = -1; const TiendaID: Integer = -1): String;
     function IncrementarValorReferencia(const NombreReferencia: String;
-      const Valor: String; const EmpresaID: Integer = -1): Boolean;    
+      const Valor: String; const EmpresaID: Integer = -1; const TiendaID: Integer = -1): Boolean;
   end;
 
 implementation
 
 {$R *.dfm}
 uses
-  {Generated:} FactuGES_Invk, Variants,
+  {Generated:} FactuGES_Invk, Variants, dialogs,
   uDataModuleServer, uROClasses, uReferenciasUtils;
 
 procedure Create_srvReferencias(out anInstance : IUnknown);
@@ -49,7 +49,7 @@ end;
 
 { srvReferencias }
 function TsrvReferencias.DarNuevaReferencia(const NombreReferencia: String;
-  const EmpresaID: Integer = -1): String;
+  const EmpresaID: Integer = -1; const TiendaID: Integer = -1): String;
 var
   ASchema : TDASchema;
   AConn : IDAConnection;
@@ -58,6 +58,7 @@ var
   AWhere : TDAWhereExpression;
   AWhereExpr1: TDAWhereExpression;
   AWhereExpr2: TDAWhereExpression;
+  AWhereExpr3: TDAWhereExpression;
 begin
   Result := '';
 
@@ -69,16 +70,29 @@ begin
       AWhereExpr1 := NewBinaryExpression(NewField('', 'CODIGO'),
                       NewConstant(NombreReferencia, datString),
                       dboEqual);
+
+      AWhere := AWhereExpr1;
+
+      //Si se asigna IDEmpresa se añade condicion
       if (EmpresaID <> -1) then
       begin
         AWhereExpr2 := NewBinaryExpression(NewField('', 'ID_EMPRESA'),
                         NewConstant(EmpresaID, datInteger),
                         dboEqual);
 
-        AWhere := NewBinaryExpression(AWhereExpr1, AWhereExpr2, dboAnd);
+        AWhere := NewBinaryExpression(AWhere, AWhereExpr2, dboAnd);
+      end;
+
+      //Si se asigna IDTienda se añade condicion
+      if (TiendaID <> -1) then
+      begin
+        AWhereExpr3 := NewBinaryExpression(NewField('', 'ID_TIENDA'),
+                        NewConstant(TiendaID, datInteger),
+                        dboEqual);
+
+        AWhere := NewBinaryExpression(AWhere, AWhereExpr3, dboAnd);
       end
-      else
+
-        AWhere := AWhereExpr1;
     finally
       Free;
     end;
@@ -116,28 +130,24 @@ begin
 end;
 
 function TsrvReferencias.IncrementarValorReferencia(const NombreReferencia: String;
-  const Valor: String; const EmpresaID: Integer = -1): Boolean;
+  const Valor: String; const EmpresaID: Integer = -1; const TiendaID: Integer = -1): Boolean;
 var
   ASchema : TDASchema;
   AConn : IDAConnection;
   dsCommand: IDASQLCommand;
 
-  AWhere : TDAWhereExpression;
+  AWhere : String;
 begin
   Result := False;
-  AWhere := NIL;
   { Construir la expresión del Where a partir de los parámetros
     que se reciban.
   }
+  AWhere := '';
   if (EmpresaID <> -1) then
-  begin
+     AWhere := AWhere + ' AND (ID_EMPRESA = ' + IntToStr(EmpresaID) + ')';
-    with TDAWhereBuilder.Create do
+
-      try
+  if (TiendaID <> -1) then
-        AWhere := NewBinaryExpression(NewField('', 'ID_EMPRESA'), NewConstant(EmpresaID, datInteger), dboEqual);
+     AWhere := AWhere + ' AND (ID_TIENDA = ' + IntToStr(TiendaID) + ')';
-      finally
-        Free;
-      end;
-  end;
 
   ASchema := schReferencias;
   AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
@@ -149,8 +159,7 @@ begin
       begin
         ParamByName('CODIGO').AsString := NombreReferencia;
         ParamByName('VALOR').AsString := DarReferenciaSiguiente(Valor);
-        if EmpresaID <> -1 then
+        dsCommand.SQL := dsCommand.SQL + AWhere;  //Asignamos las condiciones de empresa y tienda si es necesario
-          dsCommand.DynamicWhere.Expression := AWhere;
       end;
       dsCommand.Execute;
       AConn.CommitTransaction;

Source/Modulos/Referencias/Views/uEditorReferencias.dfm

@@ -62,7 +62,7 @@ object fEditorReferencias: TfEditorReferencias
           FilterBox.Visible = fvNever
           DataController.DataSource = dsReferencias
           DataController.Filter.Options = [fcoCaseInsensitive]
-          DataController.KeyFieldNames = 'CODIGO'
+          DataController.KeyFieldNames = 'ID'
           DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoFocusTopRowAfterSorting, dcoImmediatePost]
           DataController.Summary.DefaultGroupSummaryItems = <>
           DataController.Summary.FooterSummaryItems = <>
@@ -90,6 +90,11 @@ object fEditorReferencias: TfEditorReferencias
           OptionsView.GroupByBox = False
           OptionsView.HeaderEndEllipsis = True
           OptionsView.Indicator = True
+          object ListaReferenciasViewID: TcxGridDBColumn
+            DataBinding.FieldName = 'ID'
+            Visible = False
+            VisibleForCustomization = False
+          end
           object ListaReferenciasViewCODIGO: TcxGridDBColumn
             DataBinding.FieldName = 'CODIGO'
             Visible = False

Source/Modulos/Referencias/Views/uEditorReferencias.pas

@@ -51,6 +51,7 @@ type
     ListaReferenciasViewDESCRIPCION: TcxGridDBColumn;
     ListaReferenciasViewVALOR: TcxGridDBColumn;
     ListaReferenciasLevel: TcxGridLevel;
+    ListaReferenciasViewID: TcxGridDBColumn;
     procedure FormShow(Sender: TObject);
 
     procedure actAceptarExecute(Sender: TObject);

Source/Modulos/Remesas de cliente/RemesasCliente_Group.groupproj

@@ -9,6 +9,7 @@
     <Projects Include="..\..\Cliente\FactuGES.dproj" />
     <Projects Include="..\..\GUIBase\GUIBase.dproj" />
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
+    <Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
     <Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
     <Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" />
@@ -151,14 +152,23 @@
   <Target Name="Contactos_view:Make">
     <MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="Contabilidad_controller">
+    <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="Contabilidad_controller:Clean">
+    <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Contabilidad_controller:Make">
+    <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RecibosCliente_controller;RecibosCliente_view;Contabilidad_view;Contactos_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RecibosCliente_controller;RecibosCliente_view;Contabilidad_view;Contactos_view;Contabilidad_controller" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;Contabilidad_view:Clean;Contactos_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;Contabilidad_view:Clean;Contactos_view:Clean;Contabilidad_controller:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;Contabilidad_view:Make;Contactos_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;Contabilidad_view:Make;Contactos_view:Make;Contabilidad_controller:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dpk

@@ -35,7 +35,8 @@ requires
   tee,
   fsTee11,
   frxTee11,
-  Contabilidad_view;
+  Contabilidad_view,
+  Contabilidad_controller;
 
 contains
   uViewRemesasCliente in 'uViewRemesasCliente.pas' {frViewRemesasCliente: TFrame},

Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dproj

@@ -55,6 +55,7 @@
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
     <DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
     <DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
     <DCCReference Include="..\..\Lib\Familias_controller.dcp" />
     <DCCReference Include="..\..\Lib\Familias_model.dcp" />

Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm

@@ -9,7 +9,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
   Scaled = False
   OnClose = CustomEditorClose
   ExplicitWidth = 732
-  ExplicitHeight = 754
+  ExplicitHeight = 761
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -109,7 +109,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
     Width = 718
     Height = 580
     MultiLine = True
-    ExplicitLeft = 3
+    ExplicitLeft = -2
     ExplicitTop = 79
     ExplicitWidth = 718
     ExplicitHeight = 580
@@ -122,7 +122,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
         Left = 0
         Top = 0
         Width = 710
-        Height = 185
+        Height = 210
         Align = alTop
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -133,16 +133,16 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 710
-        ExplicitHeight = 185
+        ExplicitHeight = 210
         inherited dxLayoutControlRemesaCliente: TdxLayoutControl
           Width = 710
-          Height = 200
+          Height = 220
           Align = alTop
           ExplicitWidth = 710
-          ExplicitHeight = 200
+          ExplicitHeight = 220
           DesignSize = (
             710
-            200)
+            220)
           inherited eReferencia: TcxDBTextEdit
             ExplicitWidth = 326
             Width = 326
@@ -165,19 +165,18 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
             ExplicitWidth = 121
             Width = 121
           end
-          inherited frViewCajasBancos1: TfrViewCajasBancos
+          inherited frViewListaSubcuentas1: TfrViewListaSubcuentas
-            Width = 453
+            Width = 429
-            ExplicitWidth = 453
+            ExplicitWidth = 429
             inherited dxLayoutControl1: TdxLayoutControl
-              Width = 453
+              Width = 429
-              ExplicitWidth = 453
+              inherited cbSubCuentas: TcxComboBox
-              inherited cbCajasBancos: TcxComboBox
                 ExplicitWidth = 376
                 Width = 376
               end
               inherited eContabilizar: TcxCheckBox
-                Left = 458
+                Left = 453
-                ExplicitLeft = 458
+                ExplicitLeft = 453
                 ExplicitWidth = 203
                 Width = 203
               end
@@ -194,9 +193,9 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
       end
       inline frViewRecibosRemesaCliente1: TfrViewRecibosRemesaCliente
         Left = 0
-        Top = 185
+        Top = 210
         Width = 710
-        Height = 367
+        Height = 342
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -209,16 +208,16 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
         ParentFont = False
         TabOrder = 1
         ReadOnly = False
-        ExplicitTop = 185
+        ExplicitTop = 200
         ExplicitWidth = 710
-        ExplicitHeight = 367
+        ExplicitHeight = 352
         inherited cxGrid: TcxGrid
           Left = 15
           Width = 680
-          Height = 327
+          Height = 302
           ExplicitLeft = 15
           ExplicitWidth = 680
-          ExplicitHeight = 327
+          ExplicitHeight = 312
           inherited cxGridView: TcxGridDBTableView
             DataController.Summary.FooterSummaryItems = <
               item

Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas

@@ -126,8 +126,8 @@ begin
     bEsNuevo := FRemesaCliente.EsNuevo;
 
   {$IFDEF CONTABILIDAD}
-    AIgnorarContabilidad := frViewRemesaCliente1.frViewCajasBancos1.eContabilizar.EditValue;
+    AIgnorarContabilidad := frViewRemesaCliente1.frViewListaSubCuentas1.eContabilizar.EditValue;
-    ASubCuenta := frViewRemesaCliente1.frViewCajasBancos1.IdSubCuenta;
+    ASubCuenta := frViewRemesaCliente1.frViewListaSubCuentas1.IdSubCuenta;
     FController.Guardar(FRemesaCliente, AIgnorarContabilidad, ASubCuenta);
   {$ELSE}
     FController.Guardar(FRemesaCliente);

Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm

@@ -1,23 +1,24 @@
 inherited frViewRemesaCliente: TfrViewRemesaCliente
-  Width = 513
+  Width = 476
-  Height = 304
+  Height = 224
   Align = alClient
   ExplicitWidth = 451
   ExplicitHeight = 304
   object dxLayoutControlRemesaCliente: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 513
+    Width = 476
-    Height = 304
+    Height = 224
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
     ExplicitWidth = 451
+    ExplicitHeight = 304
     DesignSize = (
-      513
+      476
-      304)
+      224)
     object eReferencia: TcxDBTextEdit
       Left = 110
       Top = 30
@@ -62,7 +63,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
       Width = 108
     end
     object edtFechaRemesa: TcxDBDateEdit
-      Left = 342
+      Left = 324
       Top = 30
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_REMESA'
@@ -137,10 +138,10 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
       TabOrder = 3
       Width = 121
     end
-    inline frViewCajasBancos1: TfrViewCajasBancos
+    inline frViewListaSubcuentas1: TfrViewListaSubcuentas
       Left = 22
-      Top = 138
+      Top = 162
-      Width = 469
+      Width = 429
       Height = 35
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
@@ -151,28 +152,22 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
       TabOrder = 5
       ReadOnly = False
       ExplicitLeft = 22
-      ExplicitTop = 138
+      ExplicitTop = 162
-      ExplicitWidth = 469
+      ExplicitWidth = 429
       ExplicitHeight = 35
       inherited dxLayoutControl1: TdxLayoutControl
-        Width = 469
+        Width = 429
-        inherited cbCajasBancos: TcxComboBox
+        ExplicitWidth = 429
-          Left = 86
+        inherited cbSubCuentas: TcxComboBox
-          ExplicitLeft = 86
           ExplicitWidth = 376
           Width = 376
         end
         inherited eContabilizar: TcxCheckBox
-          Left = 322
+          Left = 293
-          ExplicitLeft = 322
+          ExplicitLeft = 293
           ExplicitWidth = 203
           Width = 203
         end
-        inherited dxLayoutControl1Group_Root: TdxLayoutGroup
-          inherited dxLayoutControl1Item1: TdxLayoutItem
-            Caption = 'Caja / Banco:  '
-          end
-        end
       end
     end
     object dxLayoutControlRemesaClienteGroup_Root: TdxLayoutGroup
@@ -226,11 +221,14 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
             Control = eDescripcion
             ControlOptions.ShowBorder = False
           end
-          object dxlcCuentaContable: TdxLayoutItem
+        end
-            Control = frViewCajasBancos1
+      end
-            ControlOptions.AutoColor = True
+      object dxlcCuentaContable: TdxLayoutGroup
-            ControlOptions.ShowBorder = False
+        Caption = 'Contabilidad'
-          end
+        object dxLayoutControlRemesaClienteItem2: TdxLayoutItem
+          Control = frViewListaSubcuentas1
+          ControlOptions.AutoColor = True
+          ControlOptions.ShowBorder = False
         end
       end
       object dxLayoutControlRemesaClienteGroup3: TdxLayoutGroup

Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas

@@ -12,7 +12,7 @@ uses
   uFamiliasController, cxSpinEdit, cxCurrencyEdit,
   uBizRemesasCliente, uRemesasClienteController, cxCalendar,
   dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
-  cxImageComboBox, uDAInterfaces, uViewCajasBancos;
+  cxImageComboBox, uDAInterfaces, uViewListaSubCuentas;
 
 type
   IViewRemesaCliente = interface(IViewBase)
@@ -47,8 +47,9 @@ type
     dxLayoutControlRemesaClienteGroup2: TdxLayoutGroup;
     cbTipo: TcxDBImageComboBox;
     dxLayoutControlRemesaClienteItem1: TdxLayoutItem;
-    dxlcCuentaContable: TdxLayoutItem;
+    dxLayoutControlRemesaClienteItem2: TdxLayoutItem;
-    frViewCajasBancos1: TfrViewCajasBancos;
+    frViewListaSubcuentas1: TfrViewListaSubcuentas;
+    dxlcCuentaContable: TdxLayoutGroup;
 
   protected
     FController: IRemesasClienteController;
@@ -68,7 +69,7 @@ implementation
 {$INCLUDE ..\..\..\FactuGES.inc}
 
 uses
-  uDataModuleUsuarios, uFactuGES_App;
+  uDataModuleUsuarios, uFactuGES_App, uSubCuentasController;
 
 
 { TfrViewRemesaClientes }
@@ -112,6 +113,7 @@ begin
   cbTipo.Properties.Items.EndUpdate;
 
   {$IFDEF CONTABILIDAD}
+    frViewListaSubcuentas1.TipoSubCuenta := tCajas;
     dxlcCuentaBancaria.visible := false;
     dxlcCuentaContable.Visible := true;
   {$ELSE}

Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas

@@ -19,7 +19,7 @@ type
     procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
     procedure AfterProcessChange(Sender: TDABusinessProcessor;
       aChange: TDADeltaChange; Processed: Boolean;
-      var CanRemoveFromDelta: Boolean);
+      var CanRemoveFromDelta: Boolean); override;
   end;
 
 implementation

Source/Modulos/Tipos de venta/Controller/TiposVenta_controller.rc

@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+         BLOCK "0C0A04E4"
+         BEGIN
+              VALUE "FileVersion", "1.0.0.0\0"
+              VALUE "ProductVersion", "1.0.0.0\0"
+         END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+         VALUE "Translation", 0x0C0A, 1252
+    END
+END

Source/Modulos/Tipos de venta/Controller/uTiposVentaController.pas

@@ -14,6 +14,7 @@ type
     procedure VerTodos(ATiposVenta: IBizTipoVenta);
     function Guardar(AReferencia : IBizTipoVenta): Boolean;
     procedure DescartarCambios(AReferencia : IBizTipoVenta);
+    function DarListaTiposVenta: TStringList;
   end;
 
   TTiposVentaController = class(TObservador, ITiposVentaController)
@@ -34,6 +35,7 @@ type
     procedure DescartarCambios(AReferencia : IBizTipoVenta); virtual;
     function BuscarTodos: IBizTipoVenta;
     procedure VerTodos(ATiposVenta: IBizTipoVenta);
+    function DarListaTiposVenta: TStringList;
   end;
 
 implementation
@@ -67,6 +69,32 @@ begin
   Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
 end;
 
+function TTiposVentaController.DarListaTiposVenta: TStringList;
+var
+  ATiposVenta: IBizTipoVenta;
+  i : integer;
+begin
+  ATiposVenta := BuscarTodos;
+  ATiposVenta.DataTable.Active := True;
+
+  Result := TStringList.Create;
+  try
+    with Result do
+    begin
+      Add(Format('%s=%d', [CTE_GENERAL, CTE_ID_GENERAL]));
+
+      ATiposVenta.DataTable.First;
+      while not ATiposVenta.DataTable.EOF do
+      begin
+        Add(Format('%s=%d', [ATiposVenta.DESCRIPCION, ATiposVenta.ID]));
+        ATiposVenta.DataTable.Next;
+      end;
+    end;
+  finally
+    ATiposVenta := NIL;
+  end;
+end;
+
 procedure TTiposVentaController.DescartarCambios(AReferencia: IBizTipoVenta);
 begin
   if not Assigned(AReferencia) then

Source/Modulos/Tipos de venta/Data/TiposVenta_data.rc

@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+         BLOCK "0C0A04E4"
+         BEGIN
+              VALUE "FileVersion", "1.0.0.0\0"
+              VALUE "ProductVersion", "1.0.0.0\0"
+         END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+         VALUE "Translation", 0x0C0A, 1252
+    END
+END

Source/Modulos/Tipos de venta/Model/TiposVenta_model.rc

@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+         BLOCK "0C0A04E4"
+         BEGIN
+              VALUE "FileVersion", "1.0.0.0\0"
+              VALUE "ProductVersion", "1.0.0.0\0"
+         END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+         VALUE "Translation", 0x0C0A, 1252
+    END
+END

Source/Modulos/Tipos de venta/Model/uBizTiposVenta.pas

@@ -7,6 +7,9 @@ uses
 
 const
   BIZ_CLIENT_TIPOSVENTA = 'Client.TiposVenta';
+  CTE_ID_GENERAL = 0;
+  CTE_GENERAL = 'General';
+
 
 type
   IBizTipoVenta = interface(ITiposVenta)

Source/Modulos/Tipos de venta/Plugin/TiposVenta_plugin.rc

@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+         BLOCK "0C0A04E4"
+         BEGIN
+              VALUE "FileVersion", "1.0.0.0\0"
+              VALUE "ProductVersion", "1.0.0.0\0"
+         END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+         VALUE "Translation", 0x0C0A, 1252
+    END
+END

Source/Modulos/Tipos de venta/Views/TiposVenta_view.dpk

@@ -27,10 +27,27 @@ package TiposVenta_view;
 requires
   GUIBase,
   TiposVenta_controller,
-  TiposVenta_model;
+  TiposVenta_model,
+  vcl,
+  rtl,
+  dbrtl,
+  DataAbstract_Core_D11,
+  vcldb,
+  dsnap,
+  adortl,
+  RemObjects_Core_D11,
+  cxLibraryD11,
+  dxThemeD11,
+  dxGDIPlusD11,
+  cxEditorsD11,
+  cxDataD11,
+  vcljpg,
+  dxLayoutControlD11,
+  dxComnD11;
 
 contains
   uEditorTiposVenta in 'uEditorTiposVenta.pas' {fEditorTiposVenta: TfEditorFormasPago},
-  uTiposVentaViewRegister in 'uTiposVentaViewRegister.pas';
+  uTiposVentaViewRegister in 'uTiposVentaViewRegister.pas',
+  uViewTiposVenta in 'uViewTiposVenta.pas' {frViewTiposVenta: TFrame};
 
 end.

Source/Modulos/Tipos de venta/Views/TiposVenta_view.dproj

@@ -47,14 +47,34 @@
     <DelphiCompile Include="TiposVenta_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
+    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="..\..\Lib\TiposVenta_controller.dcp" />
+    <DCCReference Include="cxDataD11.dcp" />
-    <DCCReference Include="..\..\Lib\TiposVenta_model.dcp" />
+    <DCCReference Include="cxEditorsD11.dcp" />
+    <DCCReference Include="cxLibraryD11.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="dsnap.dcp" />
+    <DCCReference Include="dxComnD11.dcp" />
+    <DCCReference Include="dxGDIPlusD11.dcp" />
+    <DCCReference Include="dxLayoutControlD11.dcp" />
+    <DCCReference Include="dxThemeD11.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="TiposVenta_controller.dcp" />
+    <DCCReference Include="TiposVenta_model.dcp" />
     <DCCReference Include="uEditorTiposVenta.pas">
       <Form>fEditorTiposVenta</Form>
       <DesignClass>TfEditorFormasPago</DesignClass>
     </DCCReference>
     <DCCReference Include="uTiposVentaViewRegister.pas" />
+    <DCCReference Include="uViewTiposVenta.pas">
+      <Form>frViewTipoVenta</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vcljpg.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Tipos de venta/Views/TiposVenta_view.rc

@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+         BLOCK "0C0A04E4"
+         BEGIN
+              VALUE "FileVersion", "1.0.0.0\0"
+              VALUE "ProductVersion", "1.0.0.0\0"
+         END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+         VALUE "Translation", 0x0C0A, 1252
+    END
+END

Source/Modulos/Tipos de venta/Views/uViewTiposVenta.dfm

@@ -0,0 +1,58 @@
+inherited frViewTiposVenta: TfrViewTiposVenta
+  Width = 451
+  Height = 41
+  OnCreate = CustomViewCreate
+  OnDestroy = CustomViewDestroy
+  ExplicitWidth = 451
+  ExplicitHeight = 41
+  object dxLayoutControl1: TdxLayoutControl
+    Left = 0
+    Top = 0
+    Width = 451
+    Height = 41
+    Margins.Left = 0
+    Margins.Top = 0
+    Margins.Right = 0
+    Margins.Bottom = 0
+    Align = alTop
+    ParentBackground = True
+    TabOrder = 0
+    AutoContentSizes = [acsWidth, acsHeight]
+    DesignSize = (
+      451
+      41)
+    object cbTiposVenta: TcxComboBox
+      Left = 85
+      Top = 10
+      Anchors = [akLeft, akTop, akRight]
+      Properties.DropDownListStyle = lsFixedList
+      Properties.ImmediatePost = True
+      Properties.OnValidate = cbTiposVentaPropertiesValidate
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      Style.ButtonStyle = bts3D
+      Style.PopupBorderStyle = epbsFrame3D
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 0
+      Width = 376
+    end
+    object dxLayoutControl1Group_Root: TdxLayoutGroup
+      ShowCaption = False
+      Hidden = True
+      ShowBorder = False
+      object dxLayoutControl1Item1: TdxLayoutItem
+        Caption = 'Tipo de venta:'
+        Control = cbTiposVenta
+        ControlOptions.ShowBorder = False
+      end
+    end
+  end
+end

Source/Modulos/Tipos de venta/Views/uViewTiposVenta.pas

@@ -0,0 +1,137 @@
+unit uViewTiposVenta;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics,
+  dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit,
+  cxControls, uTiposVentaController;
+
+type
+  IViewTiposVenta = interface(IViewBase)
+  ['{B9371DA3-A682-4062-9BBE-EA688B9EACD5}']
+  end;
+
+  TfrViewTiposVenta = class(TfrViewBase, IViewTiposVenta)
+    cbTiposVenta: TcxComboBox;
+    dxLayoutControl1Group_Root: TdxLayoutGroup;
+    dxLayoutControl1: TdxLayoutControl;
+    dxLayoutControl1Item1: TdxLayoutItem;
+    procedure CustomViewCreate(Sender: TObject);
+    procedure CustomViewDestroy(Sender: TObject);
+    procedure cbTiposVentaPropertiesValidate(Sender: TObject;
+      var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+  private
+    FController : ITiposVentaController;
+    FDataItem : TDADataTable;
+    FListaTiposVenta : TStringList;
+    function GetDataItem: TDADataTable;
+    procedure SetDataItem(const Value: TDADataTable);
+  public
+    property DataItem : TDADataTable read GetDataItem write SetDataItem;
+    procedure ElegirTiposVenta(const AIDTiposVenta : Integer);
+    function getIDTipoVenta: Integer;
+    procedure SetIDTipoVenta(const ID: Integer);
+
+  end;
+
+
+implementation
+{$R *.dfm}
+
+
+procedure TfrViewTiposVenta.cbTiposVentaPropertiesValidate(Sender: TObject;
+  var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+var
+  AIndex : integer;
+begin
+  inherited;
+
+  if Assigned(FDataItem) and FDataItem.Active then
+  begin
+    AIndex := StrToInt(FListaTiposVenta.Values[DisplayValue]);
+
+    FDataItem.Edit;
+    if Assigned(FDataItem.FindField('ID_TIPOVENTA')) then
+      FDataItem.FieldByName('ID_TIPOVENTA').AsInteger := AIndex;
+
+    if Assigned(FDataItem.FindField('TIPOVENTA')) then
+      FDataItem.FieldByName('TIPOVENTA').AsString := DisplayValue;
+  end;
+
+end;
+
+procedure TfrViewTiposVenta.CustomViewCreate(Sender: TObject);
+var
+  i : integer;
+begin
+  inherited;
+  FController := TTiposVentaController.create;
+  with FController do
+    begin
+    FListaTiposVenta := DarListaTiposVenta;
+    with cbTiposVenta.Properties.Items do
+    begin
+      BeginUpdate;
+      try
+        Clear;
+        for i := 0 to FListaTiposVenta.Count - 1 do
+          Add(FListaTiposVenta.Names[i]);
+      finally
+        EndUpdate;
+      end;
+    end;
+  end;
+end;
+
+procedure TfrViewTiposVenta.CustomViewDestroy(Sender: TObject);
+begin
+  inherited;
+  FreeAndNIL(FListaTiposVenta);
+  FController := NIL;
+end;
+
+procedure TfrViewTiposVenta.ElegirTiposVenta(const AIDTiposVenta: Integer);
+var
+  i : integer;
+begin
+  for i := 0 to FListaTiposVenta.Count-1 do
+  begin
+    if FListaTiposVenta.ValueFromIndex[i] = IntToStr(AIDTiposVenta) then
+    begin
+      cbTiposVenta.Text := FListaTiposVenta.Names[i];
+      Break;
+    end;
+  end;
+end;
+
+function TfrViewTiposVenta.GetDataItem: TDADataTable;
+begin
+  Result := FDataItem;
+end;
+
+function TfrViewTiposVenta.getIDTipoVenta: Integer;
+begin
+{  if FListaTiposVentas.IndexOf(cbTiposVenta.Text) < 0 then
+    Result := FListaTiposVentas.IndexOf(cbTiposVenta.Text)
+  else
+    Result := FListaIDTiposVentas.Integers[FListaTiposVentas.IndexOf(cbTiposVenta.Text)];}
+end;
+
+procedure TfrViewTiposVenta.SetDataItem(const Value: TDADataTable);
+begin
+  FDataItem := Value;
+  if Assigned(FDataItem.FindField('ID_TIPOVENTA')) then
+    ElegirTiposVenta(FDataItem.FieldByName('ID_TIPOVENTA').AsInteger);
+end;
+
+procedure TfrViewTiposVenta.SetIDTipoVenta(const ID: Integer);
+var
+  AIndex: Integer;
+begin
+{  if FListaIDTiposVentas.Find(ID, AIndex) then
+     cbTiposVenta.Text := FListaTiposVentas.Strings[AIndex];}
+end;
+
+end.

Source/Servicios/FactuGES.RODL

@@ -363,6 +363,8 @@
 </Parameter>
 <Parameter Name="EmpresaID" DataType="Integer" Flag="In" >
 </Parameter>
+<Parameter Name="TiendaID" DataType="Integer" Flag="In" >
+</Parameter>
 </Parameters>
 </Operation>
 <Operation Name="IncrementarValorReferencia" UID="{03B94B86-1037-4E4A-AF5D-F82575C8900E}">
@@ -375,6 +377,8 @@
 </Parameter>
 <Parameter Name="EmpresaID" DataType="Integer" Flag="In" >
 </Parameter>
+<Parameter Name="TiendaID" DataType="Integer" Flag="In" >
+</Parameter>
 </Parameters>
 </Operation>
 </Operations>

Source/Servicios/FactuGES_Intf.pas

@@ -594,8 +594,8 @@ type
       Para uso interno del servidor. }
   IsrvReferencias = interface(IDataAbstractService)
     ['{B957528D-3BE1-412D-A35E-801C97CCD252}']
-    function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
+    function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer; const TiendaID: Integer): String;
-    function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
+    function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer; const TiendaID: Integer): Boolean;
   end;
 
   { CosrvReferencias }
@@ -608,8 +608,8 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
+    function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer; const TiendaID: Integer): String;
-    function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
+    function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer; const TiendaID: Integer): Boolean;
   end;
 
   { IsrvContabilidad }
@@ -1580,12 +1580,13 @@ begin
   result := 'srvReferencias';
 end;
 
-function TsrvReferencias_Proxy.DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
+function TsrvReferencias_Proxy.DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer; const TiendaID: Integer): String;
 begin
   try
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarNuevaReferencia');
     __Message.Write('NombreReferencia', TypeInfo(String), NombreReferencia, []);
     __Message.Write('EmpresaID', TypeInfo(Integer), EmpresaID, []);
+    __Message.Write('TiendaID', TypeInfo(Integer), TiendaID, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -1597,13 +1598,14 @@ begin
   end
 end;
 
-function TsrvReferencias_Proxy.IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
+function TsrvReferencias_Proxy.IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer; const TiendaID: Integer): Boolean;
 begin
   try
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'IncrementarValorReferencia');
     __Message.Write('NombreReferencia', TypeInfo(String), NombreReferencia, []);
     __Message.Write('Valor', TypeInfo(String), Valor, []);
     __Message.Write('EmpresaID', TypeInfo(Integer), EmpresaID, []);
+    __Message.Write('TiendaID', TypeInfo(Integer), TiendaID, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);

Source/Servicios/FactuGES_Invk.pas

@@ -734,17 +734,19 @@ end;
 { TsrvReferencias_Invoker }
 
 procedure TsrvReferencias_Invoker.Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String; }
+{ function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer; const TiendaID: Integer): String; }
 var
   NombreReferencia: String;
   EmpresaID: Integer;
+  TiendaID: Integer;
   lResult: String;
 begin
   try
     __Message.Read('NombreReferencia', TypeInfo(String), NombreReferencia, []);
     __Message.Read('EmpresaID', TypeInfo(Integer), EmpresaID, []);
+    __Message.Read('TiendaID', TypeInfo(Integer), TiendaID, []);
 
-    lResult := (__Instance as IsrvReferencias).DarNuevaReferencia(NombreReferencia, EmpresaID);
+    lResult := (__Instance as IsrvReferencias).DarNuevaReferencia(NombreReferencia, EmpresaID, TiendaID);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvReferencias', 'DarNuevaReferenciaResponse');
     __Message.Write('Result', TypeInfo(String), lResult, []);
@@ -756,19 +758,21 @@ begin
 end;
 
 procedure TsrvReferencias_Invoker.Invoke_IncrementarValorReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean; }
+{ function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer; const TiendaID: Integer): Boolean; }
 var
   NombreReferencia: String;
   Valor: String;
   EmpresaID: Integer;
+  TiendaID: Integer;
   lResult: Boolean;
 begin
   try
     __Message.Read('NombreReferencia', TypeInfo(String), NombreReferencia, []);
     __Message.Read('Valor', TypeInfo(String), Valor, []);
     __Message.Read('EmpresaID', TypeInfo(Integer), EmpresaID, []);
+    __Message.Read('TiendaID', TypeInfo(Integer), TiendaID, []);
 
-    lResult := (__Instance as IsrvReferencias).IncrementarValorReferencia(NombreReferencia, Valor, EmpresaID);
+    lResult := (__Instance as IsrvReferencias).IncrementarValorReferencia(NombreReferencia, Valor, EmpresaID, TiendaID);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvReferencias', 'IncrementarValorReferenciaResponse');
     __Message.Write('Result', TypeInfo(Boolean), lResult, []);

Source/Servidor/FactuGES_Server.dpr

@@ -99,8 +99,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',
   schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
   schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
   schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
@@ -116,7 +114,11 @@ uses
   schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
   schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
   schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
-  srvTiposVenta_Impl in '..\Modulos\Tipos de venta\Servidor\srvTiposVenta_Impl.pas' {srvTiposVenta: TDataAbstractService};
+  srvTiposVenta_Impl in '..\Modulos\Tipos de venta\Servidor\srvTiposVenta_Impl.pas' {srvTiposVenta: TDataAbstractService},
+  schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
+  schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_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,254 +1,269 @@
-<?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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-						<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</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>
+      <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
-		</DCCReference>
+    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
+  </ProjectExtensions>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
-		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+  <ItemGroup>
-			<Form>srvEmpresas</Form>
+    <DelphiCompile Include="FactuGES_Server.dpr">
-			<DesignClass>TDARemoteService</DesignClass>
+      <MainSource>MainSource</MainSource>
-		</DCCReference>
+    </DelphiCompile>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
-		<DCCReference Include="..\Base\schBase_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
+      <Form>srvEjercicios</Form>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
-			<Form>srvAlbaranesCliente</Form>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-		</DCCReference>
+      <Form>srvEmpresas</Form>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
-			<Form>srvAlbaranesProveedor</Form>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Base\schBase_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
-		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-			<Form>srvAlmacenes</Form>
+      <Form>srvAlbaranesCliente</Form>
-			<DesignClass>TDARemoteService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
+    <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\Servidor\srvContabilidad_Impl.pas">
+      <DesignClass>TDataAbstractService</DesignClass>
-			<Form>srvContabilidad</Form>
+    </DCCReference>
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
+      <Form>srvAlmacenes</Form>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.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\Reports\uRptEtiquetasContacto_Server.pas">
+    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
-			<Form>RptEtiquetasContacto</Form>
+    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
-			<DesignClass>TDataModule</DesignClass>
+    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
-		<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
+      <Form>srvContabilidad</Form>
-			<Form>RptFichasEmpleado</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
-			<DesignClass>TDataModule</DesignClass>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
-			<Form>srvContactos</Form>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
-			<DesignClass>TDARemoteService</DesignClass>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
+      <Form>RptEtiquetasContacto</Form>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+      <DesignClass>TDataModule</DesignClass>
-			<Form>RptFacturasCliente</Form>
+    </DCCReference>
-			<DesignClass>TDataModule</DesignClass>
+    <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
-		</DCCReference>
+      <Form>RptFichasEmpleado</Form>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+      <DesignClass>TDataModule</DesignClass>
-			<Form>srvFacturasCliente</Form>
+    </DCCReference>
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-		</DCCReference>
+      <Form>srvContactos</Form>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
-			<Form>srvFacturasProveedor</Form>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-		</DCCReference>
+      <Form>RptFacturasCliente</Form>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
+      <Form>srvFacturasCliente</Form>
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
-			<Form>srvHistoricoMovimientos</Form>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvFacturasProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
-			<Form>srvInventario</Form>
+    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-			<Form>srvPedidosProveedor</Form>
+      <Form>srvHistoricoMovimientos</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+      <Form>srvInventario</Form>
-			<Form>RptPresupuestosCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
-			<Form>srvPresupuestosCliente</Form>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
+      <Form>srvPedidosProveedor</Form>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
-			<Form>RptRecibosCliente</Form>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
-			<DesignClass>TDataModule</DesignClass>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-		</DCCReference>
+      <Form>RptPresupuestosCliente</Form>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+    </DCCReference>
-			<Form>srvRecibosCliente</Form>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvPresupuestosCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
-			<Form>srvRecibosProveedor</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\Referencias\Servidor\srvReferencias_Impl.pas">
+      <DesignClass>TDataModule</DesignClass>
-			<Form>srvReferencias</Form>
+    </DCCReference>
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-		</DCCReference>
+      <Form>srvRecibosCliente</Form>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</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 proveedor\Model\schRecibosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
-			<Form>srvRemesasCliente</Form>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-		</DCCReference>
+      <Form>srvRecibosProveedor</Form>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
-			<Form>srvRemesasProveedor</Form>
+    <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvReferencias</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Tipos de venta\Servidor\srvTiposVenta_Impl.pas">
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
-			<Form>srvTiposVenta</Form>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvRemesasCliente</Form>
-		</DCCReference>
+      <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\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
-			<Form>srvUnidadesMedida</Form>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-		</DCCReference>
+      <Form>srvRemesasProveedor</Form>
-		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
+    </DCCReference>
-		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
-			<Form>srvConfiguracion</Form>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Tipos de venta\Servidor\srvTiposVenta_Impl.pas">
-		<DCCReference Include="Configuracion\uConexionBD.pas">
+      <Form>srvTiposVenta</Form>
-			<Form>frConexionBD</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
-			<DesignClass>TFrame</DesignClass>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
-		<DCCReference Include="Configuracion\uConfGeneral.pas">
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
-			<Form>frConfGeneral</Form>
+    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-			<DesignClass>TFrame</DesignClass>
+      <Form>srvUnidadesMedida</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="Configuracion\uConfiguracion.pas">
+    </DCCReference>
-			<Form>fConfiguracion</Form>
+    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-			<DesignClass>TForm</DesignClass>
+    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
-		</DCCReference>
+    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+      <Form>srvConfiguracion</Form>
-			<Form>FrameConfiguracion</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
-			<DesignClass>TFrame</DesignClass>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="Configuracion\uConexionBD.pas">
-		<DCCReference Include="srvLogin_Impl.pas">
+      <Form>frConexionBD</Form>
-			<Form>srvLogin</Form>
+      <DesignClass>TFrame</DesignClass>
-			<DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="Configuracion\uConfGeneral.pas">
-		<DCCReference Include="uAcercaDe.pas">
+      <Form>frConfGeneral</Form>
-			<Form>fAcercaDe</Form>
+      <DesignClass>TFrame</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="uDataModuleServer.pas">
+    <DCCReference Include="Configuracion\uConfiguracion.pas">
-			<Form>dmServer</Form>
+      <Form>fConfiguracion</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TForm</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="uServerMainForm.pas">
+    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-			<Form>fServerForm</Form>
+      <Form>FrameConfiguracion</Form>
-		</DCCReference>
+      <DesignClass>TFrame</DesignClass>
-		<DCCReference Include="Utiles\RegExpr.pas"/>
+    </DCCReference>
-		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
+    <DCCReference Include="srvLogin_Impl.pas">
-		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
+      <Form>srvLogin</Form>
-		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
+    </DCCReference>
-		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
+    <DCCReference Include="uAcercaDe.pas">
-		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
+      <Form>fAcercaDe</Form>
-		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
+    </DCCReference>
-	</ItemGroup>
+    <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

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.0.0\0"
               VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "viernes, 29 de febrero de 2008 18:25\0"
+              VALUE "CompileDate", "lunes, 03 de marzo de 2008 20:37\0"
          END
     END
     BLOCK "VarFileInfo"