Se introduce una directiva de compilacion para tienda y para el otro lado.

git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@43 9a1d36f3-7752-2d40-8ccb-50eb49674c68

Base/uDataModuleBase.dfm

@@ -1,8 +1,8 @@
 object dmBase: TdmBase
   OldCreateOrder = True
   OnCreate = DAClientDataModuleCreate
-  Left = 1372
+  Left = 1374
-  Top = 263
+  Top = 266
   Height = 368
   Width = 494
   object SmallImages: TPngImageList

Base/uEditorBase.dfm

@@ -1,6 +1,6 @@
 object fEditorBase: TfEditorBase
-  Left = 584
+  Left = 586
-  Top = 115
+  Top = 118
   Width = 670
   Height = 512
   Caption = 'EditorBase'

Base/uEditorDBItem.dfm

@@ -1,5 +1,5 @@
 inherited fEditorDBItem: TfEditorDBItem
-  Left = 670
+  Left = 674
   Caption = 'fEditorDBItem'
   PixelsPerInch = 96
   TextHeight = 13

Base/uEditorGrid.dfm

@@ -1,6 +1,6 @@
 inherited fEditorGrid: TfEditorGrid
-  Left = 385
+  Left = 386
-  Top = 172
+  Top = 150
   Width = 714
   Height = 485
   Caption = 'fEditorGrid'

Cliente/FactuGES.dof

@@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=1
 MinorVer=6
-Release=0
+Release=2
 Build=0
 Debug=0
 PreRelease=0
@@ -126,13 +126,13 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Rodax Software S.L.
 FileDescription=
-FileVersion=1.6.0.0
+FileVersion=1.6.2.0
 InternalName=FactuGES
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=FactuGES
-ProductVersion=1.6.0.0
+ProductVersion=1.6.2.0
 Comments=
 [Excluded Packages]
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.

Cliente/uPantallaPrincipal.dfm

@@ -1,6 +1,6 @@
 object fPantallaPrincipal: TfPantallaPrincipal
-  Left = 355
+  Left = 356
-  Top = 173
+  Top = 150
   Width = 577
   Height = 366
   Caption = 'Pantalla principal'

Cliente/uPantallaPrincipal.pas

@@ -92,6 +92,7 @@ var
   fPantallaPrincipal: TfPantallaPrincipal;
 
 implementation
+{$INCLUDE ..\FactuGES.inc}
 
 uses
   PNGImage, uModuleController, uDataModuleBase, Math, uMenuUtils,
@@ -301,9 +302,11 @@ begin
       HostManager.LoadModule('Montajes_Impl.bpl');
       HostManager.LoadModule('PedidosProveedor.bpl');
       HostManager.LoadModule('Articulos.bpl');
-//      HostManager.LoadModule('AlbaranesCliente.bpl');
+      {$IFDEF TIENDA}
+      HostManager.LoadModule('AlbaranesCliente.bpl');
       HostManager.LoadModule('FacturasCliente.bpl');
       HostManager.LoadModule('FacturasProveedor.bpl');
+      {$ENDIF}
       HostManager.LoadModule('Asientos.bpl');
       HostManager.LoadModule('Pagos.bpl');
 

FactuGES.inc

@@ -0,0 +1 @@
+{DEFINE TIENDA}

Modulos/Albaranes de cliente/Cliente/uEditorAlbaranesCliente.dfm

@@ -98,10 +98,29 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
     end
   end
   inherited EditorActionList: TActionList [4]
+    State = asSuspended
     inherited actNuevo: TAction
       ImageIndex = 22
       OnExecute = actNuevoExecute
     end
+    inherited actGuardarCerrar: TAction
+      Enabled = True
+    end
+    inherited actGuardar: TAction
+      Enabled = True
+    end
+    inherited actCerrar: TAction
+      Enabled = True
+    end
+    inherited actAnterior: TAction
+      Enabled = True
+    end
+    inherited actSiguiente: TAction
+      Enabled = True
+    end
+    inherited actCancelarCambios: TAction
+      Enabled = True
+    end
     object actPagar: TAction [24]
       Category = 'Archivo'
       Caption = 'Generar cobro'

Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm

@@ -6,8 +6,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
   ConnectionName = 'IBX'
   ServiceSchema = schAlbaranesCliente
   ServiceAdapter = DABINAdapter
-  Left = 681
+  Left = 683
-  Top = 255
+  Top = 257
   Height = 463
   Width = 347
   object schAlbaranesCliente: TDASchema

Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm

@@ -6,8 +6,8 @@ object srvAlmacenes: TsrvAlmacenes
   ConnectionName = 'IBX'
   ServiceSchema = schAlmacenes
   ServiceAdapter = DABINAdapter
-  Left = 332
+  Left = 334
-  Top = 204
+  Top = 206
   Height = 300
   Width = 300
   object schAlmacenes: TDASchema

Modulos/Articulos/Servidor/srvArticulos_Impl.dfm

@@ -5,8 +5,8 @@ object srvArticulos: TsrvArticulos
   ConnectionName = 'IBX'
   ServiceSchema = schArticulos
   ServiceAdapter = DABINAdapter
-  Left = 739
+  Left = 741
-  Top = 228
+  Top = 231
   Height = 300
   Width = 300
   object schArticulos: TDASchema

Modulos/Asientos/Servidor/srvAsientos_Impl.dfm

@@ -6,8 +6,8 @@ object srvAsientos: TsrvAsientos
   ConnectionName = 'IBX'
   ServiceSchema = schAsientos
   ServiceAdapter = DABINAdapter
-  Left = 842
+  Left = 844
-  Top = 171
+  Top = 174
   Height = 300
   Width = 300
   object schAsientos: TDASchema

Modulos/Calendarios/Servidor/srvCitas_Impl.dfm

@@ -6,8 +6,8 @@ object srvCitas: TsrvCitas
   ConnectionName = 'IBX'
   ServiceSchema = schCitas
   ServiceAdapter = DABINAdapter
-  Left = 825
+  Left = 827
-  Top = 210
+  Top = 212
   Height = 184
   Width = 245
   object schCitas: TDASchema

Modulos/Contactos/Servidor/srvContactos_Impl.dfm

@@ -7,8 +7,8 @@ object srvContactos: TsrvContactos
   ConnectionName = 'IBX'
   ServiceSchema = schContactos
   ServiceAdapter = DABINAdapter
-  Left = 1015
+  Left = 1017
-  Top = 315
+  Top = 317
   Height = 354
   Width = 450
   object schContactos: TDASchema

Modulos/Cuentas/Servidor/srvCuentas_Impl.dfm

@@ -6,8 +6,8 @@ object srvCuentas: TsrvCuentas
   ConnectionName = 'IBX'
   ServiceSchema = schCuentas
   ServiceAdapter = DABINAdapter
-  Left = 911
+  Left = 913
-  Top = 182
+  Top = 184
   Height = 300
   Width = 300
   object schCuentas: TDASchema

Modulos/Facturas de cliente/Cliente/uDataModuleFacturasCliente.dfm

@@ -10,8 +10,8 @@ object dmFacturasCliente: TdmFacturasCliente
       ParamType = fResult
       DataType = rtString
     end>
-  Left = 444
+  Left = 965
-  Top = 330
+  Top = 75
   Height = 443
   Width = 638
   object RORemoteService: TRORemoteService

Modulos/Facturas de cliente/Cliente/uViewFacturaCliente.pas

@@ -150,9 +150,9 @@ begin
   frViewDatosYSeleccionContacto1.Contacto := FFacturaCliente.Cliente;
 
   // ¿Desglosar el IVA? Se copia IVA del presupuesto
-//  if Application.MessageBox('¿Desea desglosar el IVA a partir del albarán?', 'Atención', MB_YESNO) = IDYES then
+  if Application.MessageBox('¿Desea desglosar el IVA a partir del presupuesto?', 'Atención', MB_YESNO) = IDYES then
-//    FFacturaCliente.DesglosarIVA
+    FFacturaCliente.DesglosarIVA
-//  else
+  else
     MessageBox(0, 'Se ha copiado correctamente el presupuesto elegido en esta factura.', 'Presupuesto copiado', MB_ICONWARNING or MB_OK);
 end;
 

Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm

@@ -6,8 +6,8 @@ object srvFacturasCliente: TsrvFacturasCliente
   ConnectionName = 'IBX'
   ServiceSchema = schFacturasCliente
   ServiceAdapter = DABINAdapter
-  Left = 1166
+  Left = 1168
-  Top = 311
+  Top = 313
   Height = 490
   Width = 347
   object schFacturasCliente: TDASchema

Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm

@@ -6,8 +6,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
   ConnectionName = 'IBX'
   ServiceSchema = schFacturasProveedor
   ServiceAdapter = DABINAdapter
-  Left = 784
+  Left = 786
-  Top = 384
+  Top = 387
   Height = 392
   Width = 369
   object schFacturasProveedor: TDASchema

Modulos/Intervalos/Servidor/srvIntervalos_Impl.dfm

@@ -6,8 +6,8 @@ object srvIntervalos: TsrvIntervalos
   ConnectionName = 'IBX'
   ServiceSchema = schIntervalos
   ServiceAdapter = DABINAdapter
-  Left = 731
+  Left = 733
-  Top = 208
+  Top = 211
   Height = 300
   Width = 300
   object schIntervalos: TDASchema

Modulos/Montajes/Cliente/uDataModuleMontajes.dfm

@@ -10,8 +10,8 @@ object dmMontajes: TdmMontajes
       ParamType = fResult
       DataType = rtString
     end>
-  Left = 564
+  Left = 423
-  Top = 347
+  Top = 115
   Height = 335
   Width = 536
   object RORemoteService: TRORemoteService
@@ -731,4 +731,41 @@ object dmMontajes: TdmMontajes
     Left = 344
     Top = 24
   end
+  object DADesigntimeCall1: TDADesigntimeCall
+    RemoteRequest.MethodName = 'Login'
+    RemoteRequest.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtBoolean
+      end
+      item
+        Name = 'UserID'
+        ParamType = fIn
+        DataType = rtString
+        Value = '1'
+      end
+      item
+        Name = 'Password'
+        ParamType = fIn
+        DataType = rtString
+        Value = '1'
+      end
+      item
+        Name = 'LoginInfo'
+        ParamType = fOut
+        DataType = rtUserDefined
+        UserClassName = 'TLoginInfo'
+      end>
+    RemoteService = RORemoteService2
+    Left = 48
+    Top = 160
+  end
+  object RORemoteService2: TRORemoteService
+    ServiceName = 'srvLogin'
+    Message = dmBase.ROMessage
+    Channel = dmBase.ROChannel
+    Left = 48
+    Top = 224
+  end
 end

Modulos/Montajes/Cliente/uDataModuleMontajes.pas

@@ -6,7 +6,8 @@ uses {vcl:} SysUtils, Classes, DB, DBClient,
      {RemObjects:} uDAClientDataModule, uDADataTable, uDABINAdapter,
   uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
   uROWinInetHttpChannel, uDAScriptingProvider, uDACDSDataTable,
-  uBizMontajes, uBizPresupuestosCliente, schMontajesClient_Intf;
+  uBizMontajes, uBizPresupuestosCliente, schMontajesClient_Intf,
+  uDADesigntimeCall;
 
 type
   TdmMontajes = class(TDAClientDataModule)
@@ -20,6 +21,8 @@ type
     ds_FichaBeneficios_Aux: TDADataSource;
     tbl_ListaAnosMontajes: TDACDSDataTable;
     ds_ListaAnosMontajes: TDADataSource;
+    DADesigntimeCall1: TDADesigntimeCall;
+    RORemoteService2: TRORemoteService;
     procedure DAClientDataModuleCreate(Sender: TObject);
   public
     function GetItems: IBizMontaje; overload;

Modulos/Montajes/Cliente/uEditorMontajes.dfm

@@ -95,6 +95,7 @@ inherited fEditorMontajes: TfEditorMontajes
     inherited actNuevo: TAction
       ImageIndex = 22
       OnExecute = actNuevoExecute
+      OnUpdate = actNuevoUpdate
     end
     inherited actDuplicar: TAction
       Visible = False

Modulos/Montajes/Cliente/uEditorMontajes.pas

@@ -33,6 +33,7 @@ type
     procedure actEliminarExecute(Sender: TObject);
     procedure frViewBarraSeleccionactSeleccionarExecute(Sender: TObject);
     procedure OnListaAnosChange(Sender: TObject; const Text: string);
+    procedure actNuevoUpdate(Sender: TObject);
 
   private
     FMontajes: IBizMontaje;
@@ -53,6 +54,7 @@ type
   end;
 
 implementation
+{$INCLUDE ..\..\..\FactuGES.inc}
 
 uses
   uCustomEditor, uDataModuleMontajes, uDBSelectionList,
@@ -212,6 +214,14 @@ begin
       aAux.SelectedRows.Clear;
 end;
 
+procedure TfEditorMontajes.actNuevoUpdate(Sender: TObject);
+begin
+  inherited;
+  {$IFDEF TIENDA}
+  (Sender as TAction).Enabled := False;
+  {$ENDIF}
+end;
+
 initialization
   RegisterEditor(IBizMontaje, ShowEditorMontajes, etItems);
   RegisterEditor(IBizMontaje, ShowSelectEditorMontajes, etSelectItems);

Modulos/Montajes/Cliente/uViewMontajes.pas

@@ -12,7 +12,7 @@ uses
   JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
   dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
   dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk,
-  uViewFiltroBase;
+  uViewFiltroBase, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock;
 
 type
   IViewMontajes = interface(IViewGrid)

Modulos/Montajes/Reglas/schMontajesClient_Intf.pas

@@ -9,14 +9,14 @@ 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_ListaAnosMontajes = '{10881790-553A-425B-9F2E-0CC35DFE857E}';
+  RID_ListaAnosMontajes = '{F9ECAD29-2EBA-4FB0-BF91-B4F6B05421C3}';
-  RID_darNuevaReferencia = '{60945159-4D44-4B8E-BC3E-1C95824A8AC2}';
+  RID_darNuevaReferencia = '{2CB268FF-1740-49E2-BC2E-D13582E2C047}';
-  RID_InformeCabeceraFicha = '{E3EB8788-472C-486F-BCFC-E98118F19998}';
+  RID_InformeCabeceraFicha = '{ED7776DF-70B4-42A7-9231-96D6529D8CF8}';
-  RID_Montajes = '{A14C4188-93BF-4D1D-BE0A-9654CC28F4FD}';
+  RID_Montajes = '{10809AAA-2525-4726-942D-3965F59801FB}';
-  RID_Refresh_Montajes = '{82271F6F-81CF-4FF7-B441-119ECDA6237D}';
+  RID_Refresh_Montajes = '{366C67B6-B32E-41AB-85DC-C51A3A83F35B}';
-  RID_FichaBeneficios = '{B6BF0EDB-B4F1-4168-8DC7-1292216AA53C}';
+  RID_FichaBeneficios = '{602C7ECE-6AB5-4109-9B05-7B377DB9B7E4}';
-  RID_InformeDetallesFicha = '{807EBD75-BB62-492F-A95D-D8FBE5A02B7E}';
+  RID_InformeDetallesFicha = '{D3A3EDC7-4FED-41A2-8D4C-DE1DF3D2D5B0}';
-  RID_FichaBeneficios_Aux = '{EB05CA72-57ED-46B0-AEAD-E782D88B0E28}';
+  RID_FichaBeneficios_Aux = '{217D762D-835A-4C2B-8761-461F2B952A23}';
 
   { Data table names }
   nme_ListaAnosMontajes = 'ListaAnosMontajes';
@@ -177,7 +177,7 @@ const
 type
   { IListaAnosMontajes }
   IListaAnosMontajes = interface(IDAStronglyTypedDataTable)
-  ['{C41C6AA9-6F44-4CBF-9DA5-0BD9378E0EB1}']
+  ['{EEA2F9E8-9C36-49AA-BC96-BB4216B7FD0C}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -206,7 +206,7 @@ type
 
   { IdarNuevaReferencia }
   IdarNuevaReferencia = interface(IDAStronglyTypedDataTable)
-  ['{0EBF89CD-1B5F-4D69-BC2A-FF9944E763CA}']
+  ['{E21CBF9B-DA3A-4D33-A963-5D1F1FE34A63}']
     { Property getters and setters }
     function GetREFERENCIAValue: String;
     procedure SetREFERENCIAValue(const aValue: String);
@@ -235,7 +235,7 @@ type
 
   { IInformeCabeceraFicha }
   IInformeCabeceraFicha = interface(IDAStronglyTypedDataTable)
-  ['{D4FB53A7-C48C-4E41-A377-566F6B62C634}']
+  ['{04C39826-59FD-4E49-8EDA-A612EA2CD7AA}']
     { Property getters and setters }
     function GetREFERENCIAValue: String;
     procedure SetREFERENCIAValue(const aValue: String);
@@ -348,7 +348,7 @@ type
 
   { IMontajes }
   IMontajes = interface(IDAStronglyTypedDataTable)
-  ['{46E79BA3-95C8-4752-8D16-6C04CD5B50F3}']
+  ['{3E46D9A6-C250-410F-B6BC-128729FB1256}']
     { Property getters and setters }
     function GetCODIGOEMPRESAValue: Integer;
     procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@@ -449,7 +449,7 @@ type
 
   { IRefresh_Montajes }
   IRefresh_Montajes = interface(IDAStronglyTypedDataTable)
-  ['{C2E98C33-4903-4F19-B7A3-1E9AD4B2C68D}']
+  ['{F8969A84-BAD6-443B-97A2-95AF30624296}']
     { Property getters and setters }
     function GetCODIGOEMPRESAValue: Integer;
     procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@@ -550,7 +550,7 @@ type
 
   { IFichaBeneficios }
   IFichaBeneficios = interface(IDAStronglyTypedDataTable)
-  ['{F149E069-825A-4961-8C4E-68BE037A4715}']
+  ['{3A6A5A67-BA59-42F7-A509-9895E1E7A0DB}']
     { Property getters and setters }
     function GetCODIGOMONTAJEValue: Integer;
     procedure SetCODIGOMONTAJEValue(const aValue: Integer);
@@ -615,7 +615,7 @@ type
 
   { IInformeDetallesFicha }
   IInformeDetallesFicha = interface(IDAStronglyTypedDataTable)
-  ['{CF37FBE7-A946-4E20-8A4F-2753773DD9D4}']
+  ['{2B715B00-13E5-4C50-A036-F4FD47F244FE}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -668,7 +668,7 @@ type
 
   { IFichaBeneficios_Aux }
   IFichaBeneficios_Aux = interface(IDAStronglyTypedDataTable)
-  ['{15BA870E-19D0-43B0-9878-9031439519B1}']
+  ['{4ABB9B7D-1BEE-42F3-8155-194CC112DD20}']
     { Property getters and setters }
     function GetNUMCONCEPTOValue: Integer;
     procedure SetNUMCONCEPTOValue(const aValue: Integer);

Modulos/Montajes/Reglas/schMontajesServer_Intf.pas

@@ -9,19 +9,19 @@ 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_ListaAnosMontajesDelta = '{54D6F856-69C9-46C4-9708-EB06E21F64C9}';
+  RID_ListaAnosMontajesDelta = '{B937BFF9-51D1-4B5D-8AFC-C3BA41A1D7BF}';
-  RID_darNuevaReferenciaDelta = '{DB02E16C-17A8-44E1-8A09-5B7E5A5D5C70}';
+  RID_darNuevaReferenciaDelta = '{7AF5F511-25B4-4BC0-9E91-FE6EF246F5F8}';
-  RID_InformeCabeceraFichaDelta = '{07C12000-AFBD-4F89-9F4B-1CF8AE219608}';
+  RID_InformeCabeceraFichaDelta = '{0C463028-A081-4F7E-B646-7FC9EE4CFBF7}';
-  RID_MontajesDelta = '{5DAAEE09-4F1D-481F-9E6A-6362687F33E2}';
+  RID_MontajesDelta = '{86ACA8AA-DA1D-48A5-A491-F45AF6D49EFA}';
-  RID_Refresh_MontajesDelta = '{6AE4BF82-8A34-4805-A201-83D27D7FA6C5}';
+  RID_Refresh_MontajesDelta = '{395E9219-0A40-40CB-86EE-88C76D127EF3}';
-  RID_FichaBeneficiosDelta = '{B0843E14-B2C0-4CB1-BF0D-8848AB746CF6}';
+  RID_FichaBeneficiosDelta = '{F5A5B95F-11D7-4653-8519-B828BBC24347}';
-  RID_InformeDetallesFichaDelta = '{DBF71433-4943-46FE-A536-15E29D1E77D8}';
+  RID_InformeDetallesFichaDelta = '{0C1D617E-3026-48CF-8AE7-1F1FDCF758F8}';
-  RID_FichaBeneficios_AuxDelta = '{C55A8142-1206-48A0-9CB1-FE4EF597289F}';
+  RID_FichaBeneficios_AuxDelta = '{ABAA7C7B-5152-457C-919F-4249E01CA95D}';
 
 type
   { IListaAnosMontajesDelta }
   IListaAnosMontajesDelta = interface(IListaAnosMontajes)
-  ['{54D6F856-69C9-46C4-9708-EB06E21F64C9}']
+  ['{B937BFF9-51D1-4B5D-8AFC-C3BA41A1D7BF}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -50,7 +50,7 @@ type
 
   { IdarNuevaReferenciaDelta }
   IdarNuevaReferenciaDelta = interface(IdarNuevaReferencia)
-  ['{DB02E16C-17A8-44E1-8A09-5B7E5A5D5C70}']
+  ['{7AF5F511-25B4-4BC0-9E91-FE6EF246F5F8}']
     { Property getters and setters }
     function GetOldREFERENCIAValue : String;
 
@@ -79,7 +79,7 @@ type
 
   { IInformeCabeceraFichaDelta }
   IInformeCabeceraFichaDelta = interface(IInformeCabeceraFicha)
-  ['{07C12000-AFBD-4F89-9F4B-1CF8AE219608}']
+  ['{0C463028-A081-4F7E-B646-7FC9EE4CFBF7}']
     { Property getters and setters }
     function GetOldREFERENCIAValue : String;
     function GetOldFECHAINICIOValue : DateTime;
@@ -206,7 +206,7 @@ type
 
   { IMontajesDelta }
   IMontajesDelta = interface(IMontajes)
-  ['{5DAAEE09-4F1D-481F-9E6A-6362687F33E2}']
+  ['{86ACA8AA-DA1D-48A5-A491-F45AF6D49EFA}']
     { Property getters and setters }
     function GetOldCODIGOEMPRESAValue : Integer;
     function GetOldCODIGOValue : Integer;
@@ -319,7 +319,7 @@ type
 
   { IRefresh_MontajesDelta }
   IRefresh_MontajesDelta = interface(IRefresh_Montajes)
-  ['{6AE4BF82-8A34-4805-A201-83D27D7FA6C5}']
+  ['{395E9219-0A40-40CB-86EE-88C76D127EF3}']
     { Property getters and setters }
     function GetOldCODIGOEMPRESAValue : Integer;
     function GetOldCODIGOValue : Integer;
@@ -432,7 +432,7 @@ type
 
   { IFichaBeneficiosDelta }
   IFichaBeneficiosDelta = interface(IFichaBeneficios)
-  ['{B0843E14-B2C0-4CB1-BF0D-8848AB746CF6}']
+  ['{F5A5B95F-11D7-4653-8519-B828BBC24347}']
     { Property getters and setters }
     function GetOldCODIGOMONTAJEValue : Integer;
     function GetOldNUMCONCEPTOValue : Integer;
@@ -503,7 +503,7 @@ type
 
   { IInformeDetallesFichaDelta }
   IInformeDetallesFichaDelta = interface(IInformeDetallesFicha)
-  ['{DBF71433-4943-46FE-A536-15E29D1E77D8}']
+  ['{0C1D617E-3026-48CF-8AE7-1F1FDCF758F8}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
     function GetOldMODELOValue : String;
@@ -560,7 +560,7 @@ type
 
   { IFichaBeneficios_AuxDelta }
   IFichaBeneficios_AuxDelta = interface(IFichaBeneficios_Aux)
-  ['{C55A8142-1206-48A0-9CB1-FE4EF597289F}']
+  ['{ABAA7C7B-5152-457C-919F-4249E01CA95D}']
     { Property getters and setters }
     function GetOldNUMCONCEPTOValue : Integer;
     function GetOldDESCRIPCIONValue : String;

Modulos/Montajes/Servidor/srvMontajes_Impl.dfm

@@ -5,8 +5,8 @@ object srvMontajes: TsrvMontajes
   ConnectionName = 'IBX'
   ServiceSchema = schMontajes
   ServiceAdapter = DABINAdapter
-  Left = 1063
+  Left = 1065
-  Top = 210
+  Top = 212
   Height = 356
   Width = 300
   object bpMontajes: TDABusinessProcessor

Modulos/Pagos/Servidor/srvPagos_Impl.dfm

@@ -6,8 +6,8 @@ object srvPagos: TsrvPagos
   ConnectionName = 'IBX'
   ServiceSchema = schPagos
   ServiceAdapter = DABINAdapter
-  Left = 568
+  Left = 570
-  Top = 453
+  Top = 456
   Height = 300
   Width = 300
   object schPagos: TDASchema

Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm

@@ -6,8 +6,8 @@ object srvPedidosProveedor: TsrvPedidosProveedor
   ConnectionName = 'IBX'
   ServiceSchema = schPedidosProveedor
   ServiceAdapter = DABINAdapter
-  Left = 731
+  Left = 733
-  Top = 308
+  Top = 310
   Height = 459
   Width = 300
   object schPedidosProveedor: TDASchema

Modulos/Presupuestos/Cliente/uDataModulePresupuestos.dfm

@@ -10,10 +10,10 @@ object dmPresupuestos: TdmPresupuestos
       ParamType = fResult
       DataType = rtString
     end>
-  Left = 551
+  Left = 553
-  Top = 321
+  Top = 324
-  Height = 326
+  Height = 385
-  Width = 367
+  Width = 476
   object RORemoteService: TRORemoteService
     ServiceName = 'srvPresupuestos'
     Message = dmBase.ROMessage
@@ -176,6 +176,20 @@ object dmPresupuestos: TdmPresupuestos
         Calculated = False
         Lookup = False
         LookupCache = False
+      end
+      item
+        Name = 'VALORADO'
+        DataType = datString
+        Size = 1
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'DetallesPresupuestos_VALORADO'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'DetallesPresupuestos_VALORADO'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
       end>
     Params = <
       item
@@ -596,6 +610,18 @@ object dmPresupuestos: TdmPresupuestos
         Lookup = False
         LookupCache = False
       end
+      item
+        Name = 'SITUACION_MONTAJE'
+        DataType = datString
+        Size = 30
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
       item
         Name = 'ALBARAN'
         DataType = datString
@@ -823,4 +849,41 @@ object dmPresupuestos: TdmPresupuestos
     Left = 72
     Top = 136
   end
+  object DADesigntimeCall1: TDADesigntimeCall
+    RemoteRequest.MethodName = 'Login'
+    RemoteRequest.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtBoolean
+      end
+      item
+        Name = 'UserID'
+        ParamType = fIn
+        DataType = rtString
+        Value = '1'
+      end
+      item
+        Name = 'Password'
+        ParamType = fIn
+        DataType = rtString
+        Value = '1'
+      end
+      item
+        Name = 'LoginInfo'
+        ParamType = fOut
+        DataType = rtUserDefined
+        UserClassName = 'TLoginInfo'
+      end>
+    RemoteService = RORemoteService2
+    Left = 312
+    Top = 216
+  end
+  object RORemoteService2: TRORemoteService
+    ServiceName = 'srvLogin'
+    Message = dmBase.ROMessage
+    Channel = dmBase.ROChannel
+    Left = 320
+    Top = 272
+  end
 end

Modulos/Presupuestos/Cliente/uDataModulePresupuestos.pas

@@ -43,7 +43,7 @@ uses {vcl:} SysUtils, Classes, DB, DBClient,
 
   frxExportImage, frxExportPDF, frxDCtrl,
   frxClass, frxDMPExport, frxGradient, frxChBox, frxCross, frxRich,
-  frxChart, frxOLE, frxBarcode;
+  frxChart, frxOLE, frxBarcode, uDADesigntimeCall;
 
 type
   TdmPresupuestos = class(TDAClientDataModule)
@@ -55,6 +55,8 @@ type
     ds_Presupuestos: TDADataSource;
     tbl_ListaAnosPresupuestos: TDACDSDataTable;
     ds_ListaAnosPresupuestos: TDADataSource;
+    DADesigntimeCall1: TDADesigntimeCall;
+    RORemoteService2: TRORemoteService;
     procedure DAClientDataModuleCreate(Sender: TObject);
   public
     function PuedoEliminarPresupuesto (CodigoPresupuesto : Integer) : Boolean;

Modulos/Presupuestos/Cliente/uEditorPresupuesto.dfm

@@ -1,8 +1,8 @@
 inherited fEditorPresupuesto: TfEditorPresupuesto
-  Left = 344
+  Left = 347
-  Top = 76
+  Top = 0
   Width = 772
-  Height = 746
+  Height = 581
   Caption = 'Nuevo presupuesto de cliente'
   Constraints.MinWidth = 765
   PixelsPerInch = 96
@@ -62,14 +62,14 @@ inherited fEditorPresupuesto: TfEditorPresupuesto
   end
   inherited pgPaginas: TPageControl
     Width = 764
-    Height = 494
+    Height = 329
     TabOrder = 1
     inherited pagGeneral: TTabSheet
       inline frViewPresupuesto1: TfrViewPresupuesto
         Left = 0
         Top = 0
         Width = 756
-        Height = 466
+        Height = 301
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -135,7 +135,7 @@ inherited fEditorPresupuesto: TfEditorPresupuesto
         Left = 0
         Top = 0
         Width = 756
-        Height = 466
+        Height = 301
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -147,7 +147,7 @@ inherited fEditorPresupuesto: TfEditorPresupuesto
         ReadOnly = False
         inherited cxGrid: TcxGrid
           Width = 756
-          Height = 444
+          Height = 279
           inherited cxGridView: TcxGridDBTableView
             DataController.Summary.FooterSummaryItems = <
               item
@@ -181,13 +181,13 @@ inherited fEditorPresupuesto: TfEditorPresupuesto
     end
   end
   inherited StatusBar: TStatusBar
-    Top = 692
+    Top = 527
     Width = 764
     Height = 20
   end
   inline frViewTotales1: TfrViewTotales [4]
     Left = 0
-    Top = 570
+    Top = 405
     Width = 764
     Height = 122
     Align = alBottom

Modulos/Presupuestos/Cliente/uEditorPresupuesto.pas

@@ -58,6 +58,7 @@ type
   end;
 
 implementation
+{$INCLUDE ..\..\..\FactuGES.inc}
 
 {$R *.dfm}
 
@@ -217,13 +218,16 @@ begin
   end
   else if (FPresupuesto.SITUACION = SITUACION_ACEPTADO)
   and (FPresupuesto.REFERENCIA = '') then
+  begin
+  {$IFNDEF TIENDA}
           if (Application.MessageBox('¿Desea crear un montaje asociado a este presupuesto?', 'Atención', MB_YESNO) = IDYES) then
           begin
               inherited;
               dmMontajes.NuevoMontaje(Nil, FPresupuesto);
               Exit;
           end;
-
+  {$ENDIF}
+  end;
   inherited;
 end;
 

Modulos/Presupuestos/Cliente/uEditorPresupuestos.pas

@@ -73,6 +73,7 @@ var
   fEditorPresupuestos : TfEditorPresupuestos;
 
 implementation
+{$INCLUDE ..\..\..\FactuGES.inc}
 
 uses cxControls, uDataModulePresupuestos, uEditorUtils, uEditorBase,
   DateUtils, uDataModuleMontajes, uDataModulePagos, uDBSelectionList, uBizInformesBase;
@@ -255,10 +256,12 @@ begin
       Presupuestos.DataTable.Post;
       Presupuestos.DataTable.ApplyUpdates;
 
+      {$IFNDEF TIENDA}
       if  (NuevoEstado = SITUACION_ACEPTADO)
       and (Presupuestos.REFERENCIA = '') then
           if (Application.MessageBox('¿Desea crear un montaje asociado a este presupuesto?', 'Atención', MB_YESNO) = IDYES) then
               dmMontajes.NuevoMontaje(Nil, Presupuestos);
+      {$ENDIF}              
     end;
   finally
     Presupuestos.DataTable.EnableControls;

Modulos/Presupuestos/Cliente/uViewPresupuesto.dfm

@@ -1,6 +1,7 @@
 inherited frViewPresupuesto: TfrViewPresupuesto
-  Width = 762
+  Width = 853
-  Height = 452
+  Height = 580
+  OnShow = CustomViewShow
   inline frViewDatosPresupuesto1: TfrViewDatosPresupuesto
     Left = 0
     Top = 0
@@ -128,7 +129,7 @@ inherited frViewPresupuesto: TfrViewPresupuesto
     Left = 0
     Top = 168
     Width = 360
-    Height = 97
+    Height = 121
     Constraints.MinHeight = 85
     Constraints.MinWidth = 360
     Font.Charset = DEFAULT_CHARSET
@@ -139,6 +140,9 @@ inherited frViewPresupuesto: TfrViewPresupuesto
     ParentFont = False
     TabOrder = 4
     ReadOnly = False
+    DesignSize = (
+      360
+      121)
     inherited Label6: TLabel
       Width = 134
       Caption = 'Estado del presupuesto'

Modulos/Presupuestos/Cliente/uViewPresupuesto.pas

@@ -28,6 +28,7 @@ type
     frViewObservaciones1: TfrViewObservaciones;
     frViewPlazoEntrega1: TfrViewPlazoEntrega;
     frViewSituacionPresupuesto1: TfrViewSituacionPresupuesto;
+    procedure CustomViewShow(Sender: TObject);
   private
     FPresupuesto: IBizPresupuestos;
     procedure OnContactoChanged(Sender : TObject);
@@ -40,6 +41,7 @@ type
   end;
 
 implementation
+{$INCLUDE ..\..\..\FactuGES.inc}
 
 uses uBizContacto, uExceptions;
 
@@ -73,4 +75,14 @@ begin
   frViewClientePresupuesto1.OnContactoChanged := OnContactoChanged;
 end;
 
+procedure TfrViewPresupuesto.CustomViewShow(Sender: TObject);
+begin
+  inherited;
+  {$IFDEF TIENDA}
+  frViewSituacionPresupuesto1.cbSituacion.Enabled := True;
+  {$ELSE}
+  frViewSituacionPresupuesto1.cbSituacion.Enabled := False;
+  {$ENDIF}
+end;
+
 end.

Modulos/Presupuestos/Cliente/uViewPresupuestos.dfm

@@ -1,4 +1,5 @@
 inherited frViewPresupuestos: TfrViewPresupuestos
+  OnShow = CustomViewShow
   inherited cxGrid: TcxGrid
     RootLevelOptions.DetailTabsPosition = dtpTop
     OnActiveTabChanged = cxGridActiveTabChanged
@@ -53,6 +54,10 @@ inherited frViewPresupuestos: TfrViewPresupuestos
         Width = 25
         IsCaptionAssigned = True
       end
+      object cxGridViewSITUACION_MONTAJE: TcxGridDBColumn
+        Caption = 'Situaci'#243'n montaje'
+        DataBinding.FieldName = 'SITUACION_MONTAJE'
+      end
       object cxGridViewFECHAPRESUPUESTO: TcxGridDBColumn
         DataBinding.FieldName = 'FECHAPRESUPUESTO'
         SortIndex = 0
@@ -109,19 +114,31 @@ inherited frViewPresupuestos: TfrViewPresupuestos
     object cxGridLevel3: TcxGridLevel
       Caption = 'Rechazados'
     end
+    object cxGridLevel4: TcxGridLevel
+      Caption = 'Pendiente recepci'#243'n'
+    end
+    object cxGridLevel5: TcxGridLevel
+      Caption = 'Pendiente montaje'
+    end
+    object cxGridLevel6: TcxGridLevel
+      Caption = 'Pendiente pago'
+    end
+    object cxGridLevel7: TcxGridLevel
+      Caption = 'Pagado y terminado'
+    end
   end
   inherited frViewFiltroBase1: TfrViewFiltroBase
     inherited TBXDock1: TTBXDock
       inherited TBXDockablePanel1: TTBXDockablePanel
         inherited dxLayoutControl1: TdxLayoutControl
           inherited txtFiltroTodo: TcxTextEdit
-            Width = 273
+            Width = 465
           end
           inherited edtFechaIniFiltro: TcxDateEdit
-            Width = 121
+            Width = 245
           end
           inherited edtFechaFinFiltro: TcxDateEdit
-            Width = 121
+            Width = 204
           end
         end
       end

Modulos/Presupuestos/Cliente/uViewPresupuestos.pas

@@ -15,6 +15,12 @@ uses
   PngImageList, cxTextEdit, Grids, DBGrids, cxCurrencyEdit, uViewFiltroBase,
   TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock;
 
+  const
+  SITUACION_PENDIENTERECEPCION = 'Pendiente recepción';
+  SITUACION_PENDIENTEMONTAJE = 'Pendiente montaje';
+  SITUACION_PENDIENTEPAGO = 'Pendiente pago';
+  SITUACION_PAGADO = 'Pagado y terminado';
+
 type
   IViewPresupuestos = interface(IViewGrid)
     ['{8C0A5647-E0E7-40CD-80EC-88DD46383368}']
@@ -57,6 +63,11 @@ type
     TBXItem7: TTBXItem;
     TBXSeparatorItem4: TTBXSeparatorItem;
     TBXSeparatorItem5: TTBXSeparatorItem;
+    cxGridViewSITUACION_MONTAJE: TcxGridDBColumn;
+    cxGridLevel4: TcxGridLevel;
+    cxGridLevel5: TcxGridLevel;
+    cxGridLevel6: TcxGridLevel;
+    cxGridLevel7: TcxGridLevel;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
     procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
             ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var
@@ -76,6 +87,7 @@ type
     procedure actIncidenciasExecute(Sender: TObject);
     procedure actArreglosBUpdate(Sender: TObject);
     procedure actIncidenciasUpdate(Sender: TObject);
+    procedure CustomViewShow(Sender: TObject);
   private
     FTipoPresupuesto: String;
     //Filtros relativos a la vista
@@ -98,6 +110,7 @@ var
   frViewPresupuestos: TfrViewPresupuestos;
 
 implementation
+{$INCLUDE ..\..\..\FactuGES.inc}
 
 uses uDataModulePresupuestos, schPresupuestosClient_Intf;
 
@@ -133,6 +146,10 @@ begin
     1   : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_PENDIENTE, SITUACION_PENDIENTE);
     2   : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_ACEPTADO, SITUACION_ACEPTADO);
     3   : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_RECHAZADO, SITUACION_RECHAZADO);
+    4   : FFiltro.AddItem(cxGridViewSITUACION_MONTAJE, foEqual, SITUACION_PENDIENTERECEPCION, SITUACION_PENDIENTERECEPCION);
+    5   : FFiltro.AddItem(cxGridViewSITUACION_MONTAJE, foEqual, SITUACION_PENDIENTEMONTAJE, SITUACION_PENDIENTEMONTAJE);
+    6   : FFiltro.AddItem(cxGridViewSITUACION_MONTAJE, foEqual, SITUACION_PENDIENTEPAGO, SITUACION_PENDIENTEPAGO);
+    7   : FFiltro.AddItem(cxGridViewSITUACION_MONTAJE, foEqual, SITUACION_PAGADO, SITUACION_PAGADO);
   end;
 end;
 
@@ -295,4 +312,14 @@ begin
   (Sender as TAction).Enabled := (FTipoPresupuesto <> TIPO_INCIDENCIA);
 end;
 
+procedure TfrViewPresupuestos.CustomViewShow(Sender: TObject);
+begin
+  inherited;
+  {$IFDEF TIENDA}
+  cxGridViewREFERENCIA.Visible := False;
+  {$ELSE}
+  cxGridViewREFERENCIA.Visible := True;  
+  {$ENDIF}   
+end;
+
 end.

Modulos/Presupuestos/Cliente/uViewSituacionPresupuesto.dfm

@@ -1,11 +1,11 @@
 inherited frViewSituacionPresupuesto: TfrViewSituacionPresupuesto
   Width = 360
-  Height = 100
+  Height = 123
   Constraints.MinHeight = 85
   Constraints.MinWidth = 360
   DesignSize = (
     360
-    100)
+    123)
   object Label6: TLabel
     Left = 8
     Top = 9
@@ -42,6 +42,14 @@ inherited frViewSituacionPresupuesto: TfrViewSituacionPresupuesto
     Caption = 'Fecha de decisi'#243'n:'
     WordWrap = True
   end
+  object Label1: TLabel
+    Left = 16
+    Top = 83
+    Width = 46
+    Height = 26
+    Caption = 'Situaci'#243'n montaje:'
+    WordWrap = True
+  end
   object edtFechaDecision: TcxDBDateEdit
     Left = 100
     Top = 53
@@ -91,6 +99,43 @@ inherited frViewSituacionPresupuesto: TfrViewSituacionPresupuesto
     TabOrder = 1
     Width = 245
   end
+  object cbSituacion: TcxDBImageComboBox
+    Left = 100
+    Top = 83
+    DataBinding.DataField = 'SITUACION_MONTAJE'
+    DataBinding.DataSource = DADataSource
+    Properties.ImmediatePost = True
+    Properties.Items = <
+      item
+        Description = 'Pendiente recepci'#243'n'
+        Value = 'Pendiente recepci'#243'n'
+      end
+      item
+        Description = 'Pendiente montaje'
+        ImageIndex = 0
+        Value = 'Pendiente montaje'
+      end
+      item
+        Description = 'Pendiente pago'
+        ImageIndex = 1
+        Value = 'Pendiente pago'
+      end
+      item
+        Description = 'Pagado y terminado'
+        Value = 'Pagado y terminado'
+      end>
+    Style.Color = clInfoBk
+    Style.LookAndFeel.Kind = lfUltraFlat
+    Style.LookAndFeel.NativeStyle = True
+    StyleDisabled.LookAndFeel.Kind = lfUltraFlat
+    StyleDisabled.LookAndFeel.NativeStyle = True
+    StyleFocused.LookAndFeel.Kind = lfUltraFlat
+    StyleFocused.LookAndFeel.NativeStyle = True
+    StyleHot.LookAndFeel.Kind = lfUltraFlat
+    StyleHot.LookAndFeel.NativeStyle = True
+    TabOrder = 2
+    Width = 245
+  end
   object DADataSource: TDADataSource
     Left = 296
     Top = 24

Modulos/Presupuestos/Cliente/uViewSituacionPresupuesto.pas

@@ -18,6 +18,8 @@ type
     Label4: TLabel;
     Label6: TLabel;
     Label7: TLabel;
+    cbSituacion: TcxDBImageComboBox;
+    Label1: TLabel;
     procedure cbiSituacionPropertiesCloseUp(Sender: TObject);
     procedure cbiSituacionPropertiesEditValueChanged(Sender: TObject);
   public

Modulos/Presupuestos/Reglas/schPresupuestosClient_Intf.pas

@@ -9,12 +9,12 @@ 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_ListaAnosPresupuestos = '{77EF6F0F-E599-4667-8576-DBAC1CCC2EAA}';
+  RID_ListaAnosPresupuestos = '{DDDF3B32-AB91-4CD9-B34F-51C9E0917919}';
-  RID_DetallesPresupuestos = '{03C708D2-DE71-478C-B6AB-462A59A1E7DF}';
+  RID_DetallesPresupuestos = '{268CDC36-FDF7-4EF8-81C3-2A365456F9C4}';
-  RID_Presupuestos = '{EE36E6AC-A1D6-426D-9D43-CA97BD1CFD68}';
+  RID_Presupuestos = '{06C90F29-CAFC-42BE-B4DA-2F504DE56AC8}';
-  RID_Presupuestos_RefreshDataset = '{7C463D58-2A40-4376-B6D0-1D5BCC229F42}';
+  RID_Presupuestos_RefreshDataset = '{AD9F632B-7A13-4CC2-8430-184B0392DFA1}';
-  RID_InformeCabeceraPresupuesto = '{9CDFC642-05DA-42C6-9815-F4F4024708F0}';
+  RID_InformeCabeceraPresupuesto = '{1BAA3021-EFC0-45E2-9957-9CB9831D5CD0}';
-  RID_InformeDetallesPresupuesto = '{87F1DF38-4060-49DF-87EA-97ED384371B1}';
+  RID_InformeDetallesPresupuesto = '{0EBB11F3-BCE1-4713-A589-1477B9752FD8}';
 
   { Data table names }
   nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos';
@@ -82,6 +82,7 @@ const
   fld_PresupuestosPLAZOENTREGA = 'PLAZOENTREGA';
   fld_PresupuestosFORMAPAGO = 'FORMAPAGO';
   fld_PresupuestosCODIGOALBARAN = 'CODIGOALBARAN';
+  fld_PresupuestosSITUACION_MONTAJE = 'SITUACION_MONTAJE';
   fld_PresupuestosALBARAN = 'ALBARAN';
   fld_PresupuestosOPCION = 'OPCION';
 
@@ -109,8 +110,9 @@ const
   idx_PresupuestosPLAZOENTREGA = 20;
   idx_PresupuestosFORMAPAGO = 21;
   idx_PresupuestosCODIGOALBARAN = 22;
-  idx_PresupuestosALBARAN = 23;
+  idx_PresupuestosSITUACION_MONTAJE = 23;
-  idx_PresupuestosOPCION = 24;
+  idx_PresupuestosALBARAN = 24;
+  idx_PresupuestosOPCION = 25;
 
   { Presupuestos_RefreshDataset fields }
   fld_Presupuestos_RefreshDatasetCODIGO = 'CODIGO';
@@ -118,6 +120,7 @@ const
   fld_Presupuestos_RefreshDatasetREFERENCIA = 'REFERENCIA';
   fld_Presupuestos_RefreshDatasetCODIGOALBARAN = 'CODIGOALBARAN';
   fld_Presupuestos_RefreshDatasetALBARAN = 'ALBARAN';
+  fld_Presupuestos_RefreshDatasetSITUACION_MONTAJE = 'SITUACION_MONTAJE';
 
   { Presupuestos_RefreshDataset field indexes }
   idx_Presupuestos_RefreshDatasetCODIGO = 0;
@@ -125,6 +128,7 @@ const
   idx_Presupuestos_RefreshDatasetREFERENCIA = 2;
   idx_Presupuestos_RefreshDatasetCODIGOALBARAN = 3;
   idx_Presupuestos_RefreshDatasetALBARAN = 4;
+  idx_Presupuestos_RefreshDatasetSITUACION_MONTAJE = 5;
 
   { InformeCabeceraPresupuesto fields }
   fld_InformeCabeceraPresupuestoCODIGOEMPRESA = 'CODIGOEMPRESA';
@@ -219,7 +223,7 @@ const
 type
   { IListaAnosPresupuestos }
   IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
-  ['{80153E52-A0AC-48F4-B686-597D3D322919}']
+  ['{A4885F39-1502-4154-9B51-C2DCF7E731CE}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -248,7 +252,7 @@ type
 
   { IDetallesPresupuestos }
   IDetallesPresupuestos = interface(IDAStronglyTypedDataTable)
-  ['{1B25EB4A-91B6-4F99-9865-830E66EDD201}']
+  ['{41073F1B-437B-4BC6-979A-C00CD48BB360}']
     { Property getters and setters }
     function GetCODIGOPRESUPUESTOValue: Integer;
     procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer);
@@ -343,7 +347,7 @@ type
 
   { IPresupuestos }
   IPresupuestos = interface(IDAStronglyTypedDataTable)
-  ['{152FAE82-E4BD-47CF-82E5-88ABA9825BB1}']
+  ['{51D576C0-014F-4298-8992-41BD321F24FE}']
     { Property getters and setters }
     function GetCODIGOEMPRESAValue: Integer;
     procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@@ -391,6 +395,8 @@ type
     procedure SetFORMAPAGOValue(const aValue: IROStrings);
     function GetCODIGOALBARANValue: Integer;
     procedure SetCODIGOALBARANValue(const aValue: Integer);
+    function GetSITUACION_MONTAJEValue: String;
+    procedure SetSITUACION_MONTAJEValue(const aValue: String);
     function GetALBARANValue: String;
     procedure SetALBARANValue(const aValue: String);
     function GetOPCIONValue: String;
@@ -421,6 +427,7 @@ type
     property PLAZOENTREGA: IROStrings read GetPLAZOENTREGAValue write SetPLAZOENTREGAValue;
     property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
     property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
+    property SITUACION_MONTAJE: String read GetSITUACION_MONTAJEValue write SetSITUACION_MONTAJEValue;
     property ALBARAN: String read GetALBARANValue write SetALBARANValue;
     property OPCION: String read GetOPCIONValue write SetOPCIONValue;
   end;
@@ -476,6 +483,8 @@ type
     procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual;
     function GetCODIGOALBARANValue: Integer; virtual;
     procedure SetCODIGOALBARANValue(const aValue: Integer); virtual;
+    function GetSITUACION_MONTAJEValue: String; virtual;
+    procedure SetSITUACION_MONTAJEValue(const aValue: String); virtual;
     function GetALBARANValue: String; virtual;
     procedure SetALBARANValue(const aValue: String); virtual;
     function GetOPCIONValue: String; virtual;
@@ -505,6 +514,7 @@ type
     property PLAZOENTREGA: IROStrings read GetPLAZOENTREGAValue write SetPLAZOENTREGAValue;
     property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
     property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
+    property SITUACION_MONTAJE: String read GetSITUACION_MONTAJEValue write SetSITUACION_MONTAJEValue;
     property ALBARAN: String read GetALBARANValue write SetALBARANValue;
     property OPCION: String read GetOPCIONValue write SetOPCIONValue;
 
@@ -516,7 +526,7 @@ type
 
   { IPresupuestos_RefreshDataset }
   IPresupuestos_RefreshDataset = interface(IDAStronglyTypedDataTable)
-  ['{8A7F6D01-B4D4-436B-8BF5-C62F316AE407}']
+  ['{1B1A1A58-80AF-4F0A-B1BC-58E804752878}']
     { Property getters and setters }
     function GetCODIGOValue: Integer;
     procedure SetCODIGOValue(const aValue: Integer);
@@ -528,6 +538,8 @@ type
     procedure SetCODIGOALBARANValue(const aValue: Integer);
     function GetALBARANValue: String;
     procedure SetALBARANValue(const aValue: String);
+    function GetSITUACION_MONTAJEValue: String;
+    procedure SetSITUACION_MONTAJEValue(const aValue: String);
 
 
     { Properties }
@@ -536,6 +548,7 @@ type
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
     property ALBARAN: String read GetALBARANValue write SetALBARANValue;
+    property SITUACION_MONTAJE: String read GetSITUACION_MONTAJEValue write SetSITUACION_MONTAJEValue;
   end;
 
   { TPresupuestos_RefreshDatasetDataTableRules }
@@ -553,6 +566,8 @@ type
     procedure SetCODIGOALBARANValue(const aValue: Integer); virtual;
     function GetALBARANValue: String; virtual;
     procedure SetALBARANValue(const aValue: String); virtual;
+    function GetSITUACION_MONTAJEValue: String; virtual;
+    procedure SetSITUACION_MONTAJEValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
@@ -560,6 +575,7 @@ type
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
     property ALBARAN: String read GetALBARANValue write SetALBARANValue;
+    property SITUACION_MONTAJE: String read GetSITUACION_MONTAJEValue write SetSITUACION_MONTAJEValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -569,7 +585,7 @@ type
 
   { IInformeCabeceraPresupuesto }
   IInformeCabeceraPresupuesto = interface(IDAStronglyTypedDataTable)
-  ['{386D3790-2EE5-443E-8C0D-D71B5BB54BC6}']
+  ['{A2DB6308-4009-4178-A887-C9C09DDF1A42}']
     { Property getters and setters }
     function GetCODIGOEMPRESAValue: Integer;
     procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@@ -784,7 +800,7 @@ type
 
   { IInformeDetallesPresupuesto }
   IInformeDetallesPresupuesto = interface(IDAStronglyTypedDataTable)
-  ['{4E63D170-8D9D-43B2-ADD5-90B7CD993A81}']
+  ['{33B16302-2EF8-4FC9-B41C-1AC142A7ACD8}']
     { Property getters and setters }
     function GetCODIGOPRESUPUESTOValue: Integer;
     procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer);
@@ -1261,6 +1277,16 @@ begin
   DataTable.Fields[idx_PresupuestosCODIGOALBARAN].AsInteger := aValue;
 end;
 
+function TPresupuestosDataTableRules.GetSITUACION_MONTAJEValue: String;
+begin
+  result := DataTable.Fields[idx_PresupuestosSITUACION_MONTAJE].AsString;
+end;
+
+procedure TPresupuestosDataTableRules.SetSITUACION_MONTAJEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_PresupuestosSITUACION_MONTAJE].AsString := aValue;
+end;
+
 function TPresupuestosDataTableRules.GetALBARANValue: String;
 begin
   result := DataTable.Fields[idx_PresupuestosALBARAN].AsString;
@@ -1343,6 +1369,16 @@ begin
   DataTable.Fields[idx_Presupuestos_RefreshDatasetALBARAN].AsString := aValue;
 end;
 
+function TPresupuestos_RefreshDatasetDataTableRules.GetSITUACION_MONTAJEValue: String;
+begin
+  result := DataTable.Fields[idx_Presupuestos_RefreshDatasetSITUACION_MONTAJE].AsString;
+end;
+
+procedure TPresupuestos_RefreshDatasetDataTableRules.SetSITUACION_MONTAJEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_Presupuestos_RefreshDatasetSITUACION_MONTAJE].AsString := aValue;
+end;
+
 
 { TInformeCabeceraPresupuestoDataTableRules }
 constructor TInformeCabeceraPresupuestoDataTableRules.Create(aDataTable: TDADataTable);

Modulos/Presupuestos/Reglas/schPresupuestosServer_Intf.pas

@@ -9,17 +9,17 @@ 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_ListaAnosPresupuestosDelta = '{FC74BF4F-DBCB-40A7-9939-935F32F3ADC0}';
+  RID_ListaAnosPresupuestosDelta = '{2FE29D48-6128-4DF4-83C3-0FA662144574}';
-  RID_DetallesPresupuestosDelta = '{C37B1251-B984-4029-846F-2B30A25BAC11}';
+  RID_DetallesPresupuestosDelta = '{DE378782-B04E-40A2-9BCD-7ADAE1DF5DB7}';
-  RID_PresupuestosDelta = '{33560B0F-ADCB-4A5F-94D2-AED74BBAC7A6}';
+  RID_PresupuestosDelta = '{F6A2569C-B835-45F8-86FA-8E6B4A48AE5B}';
-  RID_Presupuestos_RefreshDatasetDelta = '{B40C828C-F495-4BE7-85C2-4670FF7C4B03}';
+  RID_Presupuestos_RefreshDatasetDelta = '{50C68342-EC4D-428E-BD5A-94DF09E0CEED}';
-  RID_InformeCabeceraPresupuestoDelta = '{6285260E-3B0E-4DB0-A8A6-DDE3FF84220C}';
+  RID_InformeCabeceraPresupuestoDelta = '{6D7D841B-32E1-4023-BBDB-A37F8BDEF96A}';
-  RID_InformeDetallesPresupuestoDelta = '{06FFD0BC-7D7D-457B-B402-6792784FEE19}';
+  RID_InformeDetallesPresupuestoDelta = '{3C746E7B-6F2D-4812-B3F3-2980587EA621}';
 
 type
   { IListaAnosPresupuestosDelta }
   IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
-  ['{FC74BF4F-DBCB-40A7-9939-935F32F3ADC0}']
+  ['{2FE29D48-6128-4DF4-83C3-0FA662144574}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -48,7 +48,7 @@ type
 
   { IDetallesPresupuestosDelta }
   IDetallesPresupuestosDelta = interface(IDetallesPresupuestos)
-  ['{C37B1251-B984-4029-846F-2B30A25BAC11}']
+  ['{DE378782-B04E-40A2-9BCD-7ADAE1DF5DB7}']
     { Property getters and setters }
     function GetOldCODIGOPRESUPUESTOValue : Integer;
     function GetOldNUMCONCEPTOValue : Integer;
@@ -154,7 +154,7 @@ type
 
   { IPresupuestosDelta }
   IPresupuestosDelta = interface(IPresupuestos)
-  ['{33560B0F-ADCB-4A5F-94D2-AED74BBAC7A6}']
+  ['{F6A2569C-B835-45F8-86FA-8E6B4A48AE5B}']
     { Property getters and setters }
     function GetOldCODIGOEMPRESAValue : Integer;
     function GetOldCODIGOValue : Integer;
@@ -179,6 +179,7 @@ type
     function GetOldPLAZOENTREGAValue : IROStrings;
     function GetOldFORMAPAGOValue : IROStrings;
     function GetOldCODIGOALBARANValue : Integer;
+    function GetOldSITUACION_MONTAJEValue : String;
     function GetOldALBARANValue : String;
     function GetOldOPCIONValue : String;
 
@@ -206,6 +207,7 @@ type
     property OldPLAZOENTREGA : IROStrings read GetOldPLAZOENTREGAValue;
     property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue;
     property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
+    property OldSITUACION_MONTAJE : String read GetOldSITUACION_MONTAJEValue;
     property OldALBARAN : String read GetOldALBARANValue;
     property OldOPCION : String read GetOldOPCIONValue;
   end;
@@ -284,6 +286,9 @@ type
     function GetCODIGOALBARANValue: Integer; virtual;
     function GetOldCODIGOALBARANValue: Integer; virtual;
     procedure SetCODIGOALBARANValue(const aValue: Integer); virtual;
+    function GetSITUACION_MONTAJEValue: String; virtual;
+    function GetOldSITUACION_MONTAJEValue: String; virtual;
+    procedure SetSITUACION_MONTAJEValue(const aValue: String); virtual;
     function GetALBARANValue: String; virtual;
     function GetOldALBARANValue: String; virtual;
     procedure SetALBARANValue(const aValue: String); virtual;
@@ -338,6 +343,8 @@ type
     property OldFORMAPAGO : IROStrings read GetOldFORMAPAGOValue;
     property CODIGOALBARAN : Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
     property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
+    property SITUACION_MONTAJE : String read GetSITUACION_MONTAJEValue write SetSITUACION_MONTAJEValue;
+    property OldSITUACION_MONTAJE : String read GetOldSITUACION_MONTAJEValue;
     property ALBARAN : String read GetALBARANValue write SetALBARANValue;
     property OldALBARAN : String read GetOldALBARANValue;
     property OPCION : String read GetOPCIONValue write SetOPCIONValue;
@@ -351,13 +358,14 @@ type
 
   { IPresupuestos_RefreshDatasetDelta }
   IPresupuestos_RefreshDatasetDelta = interface(IPresupuestos_RefreshDataset)
-  ['{B40C828C-F495-4BE7-85C2-4670FF7C4B03}']
+  ['{50C68342-EC4D-428E-BD5A-94DF09E0CEED}']
     { Property getters and setters }
     function GetOldCODIGOValue : Integer;
     function GetOldNOMBREValue : String;
     function GetOldREFERENCIAValue : String;
     function GetOldCODIGOALBARANValue : Integer;
     function GetOldALBARANValue : String;
+    function GetOldSITUACION_MONTAJEValue : String;
 
     { Properties }
     property OldCODIGO : Integer read GetOldCODIGOValue;
@@ -365,6 +373,7 @@ type
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
     property OldALBARAN : String read GetOldALBARANValue;
+    property OldSITUACION_MONTAJE : String read GetOldSITUACION_MONTAJEValue;
   end;
 
   { TPresupuestos_RefreshDatasetBusinessProcessorRules }
@@ -387,6 +396,9 @@ type
     function GetALBARANValue: String; virtual;
     function GetOldALBARANValue: String; virtual;
     procedure SetALBARANValue(const aValue: String); virtual;
+    function GetSITUACION_MONTAJEValue: String; virtual;
+    function GetOldSITUACION_MONTAJEValue: String; virtual;
+    procedure SetSITUACION_MONTAJEValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
@@ -399,6 +411,8 @@ type
     property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
     property ALBARAN : String read GetALBARANValue write SetALBARANValue;
     property OldALBARAN : String read GetOldALBARANValue;
+    property SITUACION_MONTAJE : String read GetSITUACION_MONTAJEValue write SetSITUACION_MONTAJEValue;
+    property OldSITUACION_MONTAJE : String read GetOldSITUACION_MONTAJEValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -408,7 +422,7 @@ type
 
   { IInformeCabeceraPresupuestoDelta }
   IInformeCabeceraPresupuestoDelta = interface(IInformeCabeceraPresupuesto)
-  ['{6285260E-3B0E-4DB0-A8A6-DDE3FF84220C}']
+  ['{6D7D841B-32E1-4023-BBDB-A37F8BDEF96A}']
     { Property getters and setters }
     function GetOldCODIGOEMPRESAValue : Integer;
     function GetOldCODIGOValue : Integer;
@@ -654,7 +668,7 @@ type
 
   { IInformeDetallesPresupuestoDelta }
   IInformeDetallesPresupuestoDelta = interface(IInformeDetallesPresupuesto)
-  ['{06FFD0BC-7D7D-457B-B402-6792784FEE19}']
+  ['{3C746E7B-6F2D-4812-B3F3-2980587EA621}']
     { Property getters and setters }
     function GetOldCODIGOPRESUPUESTOValue : Integer;
     function GetOldNUMCONCEPTOValue : Integer;
@@ -1323,6 +1337,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCODIGOALBARAN] := aValue;
 end;
 
+function TPresupuestosBusinessProcessorRules.GetSITUACION_MONTAJEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosSITUACION_MONTAJE];
+end;
+
+function TPresupuestosBusinessProcessorRules.GetOldSITUACION_MONTAJEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosSITUACION_MONTAJE];
+end;
+
+procedure TPresupuestosBusinessProcessorRules.SetSITUACION_MONTAJEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosSITUACION_MONTAJE] := aValue;
+end;
+
 function TPresupuestosBusinessProcessorRules.GetALBARANValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosALBARAN];
@@ -1440,6 +1469,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetALBARAN] := aValue;
 end;
 
+function TPresupuestos_RefreshDatasetBusinessProcessorRules.GetSITUACION_MONTAJEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetSITUACION_MONTAJE];
+end;
+
+function TPresupuestos_RefreshDatasetBusinessProcessorRules.GetOldSITUACION_MONTAJEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Presupuestos_RefreshDatasetSITUACION_MONTAJE];
+end;
+
+procedure TPresupuestos_RefreshDatasetBusinessProcessorRules.SetSITUACION_MONTAJEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_Presupuestos_RefreshDatasetSITUACION_MONTAJE] := aValue;
+end;
+
 
 { TInformeCabeceraPresupuestoBusinessProcessorRules }
 constructor TInformeCabeceraPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Modulos/Presupuestos/Reglas/uBizPresupuestosCliente.pas

@@ -142,6 +142,7 @@ type
   procedure ValidarPresupuesto (const APresupuesto : IBizPresupuestos);
 
 implementation
+{$INCLUDE ..\..\..\FactuGES.inc}
 
 uses
   Windows, Dialogs, uDACDSDataTable, SysUtils, uEditorUtils,
@@ -240,7 +241,13 @@ begin
   FECHAALTA := Date;
   FECHAPRESUPUESTO := Date;
   VIGENCIAPRESUPUESTO := Date + 30;   // 30 días de validez por defecto
-  SITUACION := SITUACION_PENDIENTE;
+
+  {$IFDEF TIENDA}
+    SITUACION := SITUACION_PENDIENTE;
+  {$ELSE}
+    SITUACION := SITUACION_ACEPTADO;
+  {$ENDIF}
+
   TIPO := TIPO_COCINA;
   CODIGO := dmPresupuestos.GetNextAutoinc;
   OPCION := 'OPCIÓN 1';

Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm

@@ -6,8 +6,8 @@ object srvPresupuestos: TsrvPresupuestos
   ConnectionName = 'IBX'
   ServiceSchema = schPresupuestos
   ServiceAdapter = DABINAdapter
-  Left = 1197
+  Left = 1199
-  Top = 264
+  Top = 267
   Height = 359
   Width = 328
   object schPresupuestos: TDASchema
@@ -259,8 +259,9 @@ object srvPresupuestos: TsrvPresupuestos
               ','#10'       TIPO, FECHAPRESUPUESTO, VIGENCIAPRESUPUESTO, SITUACION,' +
               ' FECHADECISION,'#10'       BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENT' +
               'O, IVA, IMPORTEIVA,'#10'       IMPORTETOTAL, OBSERVACIONES, PLAZOENT' +
-              'REGA, FORMAPAGO, OPCION,'#10'       NOMBRE, NIF_CIF, REFERENCIA,'#10'   ' +
+              'REGA, FORMAPAGO, OPCION,'#10'       NOMBRE, NIF_CIF, REFERENCIA, SIT' +
-              '    CODIGOALBARAN, ALBARAN'#10#10'FROM V_PRESUPUESTOS'
+              'UACION_MONTAJE,'#10'       CODIGOALBARAN, ALBARAN'#10#10'FROM V_PRESUPUEST' +
+              'OS'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -362,6 +363,10 @@ object srvPresupuestos: TsrvPresupuestos
               item
                 DatasetField = 'OPCION'
                 TableField = 'OPCION'
+              end
+              item
+                DatasetField = 'SITUACION_MONTAJE'
+                TableField = 'SITUACION_MONTAJE'
               end>
           end>
         Name = 'Presupuestos'
@@ -609,6 +614,18 @@ object srvPresupuestos: TsrvPresupuestos
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'SITUACION_MONTAJE'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'ALBARAN'
             DataType = datString
@@ -650,8 +667,9 @@ object srvPresupuestos: TsrvPresupuestos
             Connection = 'IBX'
             TargetTable = 'V_PRESUPUESTOS'
             SQL = 
-              'SELECT CODIGO, NOMBRE, REFERENCIA, CODIGOALBARAN, ALBARAN'#10#10'FROM ' +
+              'SELECT CODIGO, NOMBRE, REFERENCIA, CODIGOALBARAN, ALBARAN, SITUA' +
-              'V_PRESUPUESTOS'#10'WHERE V_PRESUPUESTOS.CODIGO = :CODIGO'
+              'CION_MONTAJE'#10#10'FROM V_PRESUPUESTOS'#10'WHERE V_PRESUPUESTOS.CODIGO = ' +
+              ':CODIGO'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -673,6 +691,10 @@ object srvPresupuestos: TsrvPresupuestos
               item
                 DatasetField = 'REFERENCIA'
                 TableField = 'REFERENCIA'
+              end
+              item
+                DatasetField = 'SITUACION_MONTAJE'
+                TableField = 'SITUACION_MONTAJE'
               end>
           end>
         Name = 'Presupuestos_RefreshDataset'
@@ -737,6 +759,18 @@ object srvPresupuestos: TsrvPresupuestos
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'SITUACION_MONTAJE'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
@@ -1569,6 +1603,14 @@ object srvPresupuestos: TsrvPresupuestos
             BlobType = dabtUnknown
             Value = ''
             ParamType = daptInput
+          end
+          item
+            Name = 'SITUACION_MONTAJE'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptInput
           end>
         Statements = <
           item
@@ -1579,12 +1621,13 @@ object srvPresupuestos: TsrvPresupuestos
               ', USUARIO, CODIGOCONTACTO,'#10'     TIPO, FECHAPRESUPUESTO, VIGENCIA' +
               'PRESUPUESTO,'#10'     SITUACION, FECHADECISION, BASEIMPONIBLE, DESCU' +
               'ENTO, '#10'     IMPORTEDESCUENTO, IVA, IMPORTEIVA, IMPORTETOTAL, OBS' +
-              'ERVACIONES, '#10'     PLAZOENTREGA, FORMAPAGO, OPCION)'#10'  VALUES'#10'    ' +
+              'ERVACIONES, '#10'     PLAZOENTREGA, FORMAPAGO, OPCION, SITUACION_MON' +
-              '(:CODIGOEMPRESA, :CODIGO,'#10'     :FECHAALTA, :USUARIO, :CODIGOCONT' +
+              'TAJE)'#10'  VALUES'#10'    (:CODIGOEMPRESA, :CODIGO,'#10'     :FECHAALTA, :U' +
-              'ACTO,'#10'     :TIPO, :FECHAPRESUPUESTO, :VIGENCIAPRESUPUESTO,'#10'     ' +
+              'SUARIO, :CODIGOCONTACTO,'#10'     :TIPO, :FECHAPRESUPUESTO, :VIGENCI' +
-              ':SITUACION, :FECHADECISION, :BASEIMPONIBLE, :DESCUENTO, '#10'     :I' +
+              'APRESUPUESTO,'#10'     :SITUACION, :FECHADECISION, :BASEIMPONIBLE, :' +
-              'MPORTEDESCUENTO, :IVA, :IMPORTEIVA, :IMPORTETOTAL, '#10'     :OBSERV' +
+              'DESCUENTO, '#10'     :IMPORTEDESCUENTO, :IVA, :IMPORTEIVA, :IMPORTET' +
-              'ACIONES, :PLAZOENTREGA, :FORMAPAGO, :OPCION);'
+              'OTAL, '#10'     :OBSERVACIONES, :PLAZOENTREGA, :FORMAPAGO, :OPCION, ' +
+              ':SITUACION_MONTAJE);'
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1729,6 +1772,14 @@ object srvPresupuestos: TsrvPresupuestos
             Value = ''
             ParamType = daptInput
           end
+          item
+            Name = 'SITUACION_MONTAJE'
+            DataType = datString
+            Size = 30
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptInput
+          end
           item
             Name = 'OLD_CODIGO'
             DataType = datInteger
@@ -1751,7 +1802,8 @@ object srvPresupuestos: TsrvPresupuestos
               'A = :IVA, '#10'    IMPORTEIVA = :IMPORTEIVA, '#10'    IMPORTETOTAL = :IM' +
               'PORTETOTAL, '#10'    OBSERVACIONES = :OBSERVACIONES, '#10'    PLAZOENTRE' +
               'GA = :PLAZOENTREGA, '#10'    FORMAPAGO = :FORMAPAGO,'#10'    OPCION = :O' +
-              'PCION'#10'  WHERE'#10'    (CODIGO = :OLD_CODIGO)'
+              'PCION,'#10'    SITUACION_MONTAJE = :SITUACION_MONTAJE'#10'  WHERE'#10'    (C' +
+              'ODIGO = :OLD_CODIGO)'
             StatementType = stSQL
             ColumnMappings = <>
           end>

Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas

@@ -30,8 +30,8 @@ type
     tbl_Presupuesto: TDACDSDataTable;
     tbl_DetallesPresupuesto: TDACDSDataTable;
     DABINAdapter: TDABINAdapter;
-    schPresupuestos: TDASchema;
     frxReport1: TfrxReport;
+    schPresupuestos: TDASchema;
     procedure DARemoteServiceActivate(const aClientID: TGUID;
       aSession: TROSession; const aMessage: IROMessage);
   private

Servidor/FactuGES_Server.dof

@@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=1
 MinorVer=6
-Release=0
+Release=2
 Build=0
 Debug=0
 PreRelease=0
@@ -126,13 +126,13 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Rodax Software S.L.
 FileDescription=
-FileVersion=1.6.0.0
+FileVersion=1.6.2.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=FactuGES Server
-ProductVersion=1.6.0.0
+ProductVersion=1.6.2.0
 Comments=
 [Excluded Packages]
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.

Servidor/srvComisiones_Impl.dfm

@@ -5,8 +5,8 @@ object srvComisiones: TsrvComisiones
   AcquireConnection = True
   ServiceSchema = schComisiones
   ServiceAdapter = DABINAdapter
-  Left = 1112
+  Left = 1114
-  Top = 198
+  Top = 200
   Height = 300
   Width = 300
   object schComisiones: TDASchema

Servidor/srvConfiguracion_Impl.dfm

@@ -6,8 +6,8 @@ object srvConfiguracion: TsrvConfiguracion
   ConnectionName = 'IBX'
   ServiceSchema = schConfiguracion
   ServiceAdapter = DABINAdapter
-  Left = 1159
+  Left = 1161
-  Top = 113
+  Top = 115
   Height = 161
   Width = 300
   object schConfiguracion: TDASchema