Poder imprimir la comisiones y filtrarlas, asi como poder hacer montajes a partir de presupuestos sin aceptar, y aceptarlos automaticamente. Iva por defecto en facturas 16

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

Base/BaseD7.dof

@@ -168,8 +168,8 @@ Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
 Count=16
-Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
+Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
-Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
 Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
 Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
 Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
@@ -189,8 +189,8 @@ Count=1
 Item0=.\
 [HistoryLists\hlOutputDirectorry]
 Count=2
-Item0=..\Output\Servidor
+Item0=..\Output\Cliente
-Item1=..\Output\Cliente
+Item1=..\Output\Servidor
 [HistoryLists\hlBPLOutput]
 Count=3
 Item0=..\..\..\Output\Cliente

Cliente/FactuGES.dof

@@ -113,7 +113,7 @@ RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=1
-MinorVer=4
+MinorVer=5
 Release=0
 Build=0
 Debug=0
@@ -126,7 +126,7 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Rodax Software S.L.
 FileDescription=
-FileVersion=1.4.0.0
+FileVersion=1.5.0.0
 InternalName=FactuGES
 LegalCopyright=
 LegalTrademarks=
@@ -172,8 +172,8 @@ Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
 Count=16
-Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
+Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
-Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
 Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
 Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
 Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
@@ -193,8 +193,8 @@ Count=1
 Item0=.\
 [HistoryLists\hlOutputDirectorry]
 Count=2
-Item0=..\Output\Servidor
+Item0=..\Output\Cliente
-Item1=..\Output\Cliente
+Item1=..\Output\Servidor
 [HistoryLists\hlBPLOutput]
 Count=3
 Item0=..\..\..\Output\Cliente

Cliente/FactuGES.dpr

@@ -6,9 +6,7 @@ uses
   uPantallaPrincipal in 'uPantallaPrincipal.pas' {fPantallaPrincipal},
   uMenuUtils in 'uMenuUtils.pas',
   uSplash in 'uSplash.pas' {SplashScreen},
-  uAcercaDe in 'uAcercaDe.pas' {fAcercaDe},
+  uAcercaDe in 'uAcercaDe.pas' {fAcercaDe};
-  schPresupuestosClient_Intf in '..\Modulos\Presupuestos\Reglas\schPresupuestosClient_Intf.pas',
-  schPresupuestosServer_Intf in '..\Modulos\Presupuestos\Reglas\schPresupuestosServer_Intf.pas';
 
 {$R *.res}
 

DataAbstract_D7/DataAbstract_D7.drc

@@ -8,3 +8,393 @@
   resources were bound to the produced executable.
 */
 
+#define uDARes_err_ExecuteSQLCommandNotAllowed 65328
+#define uDARes_err_FieldIsNotBound 65344
+#define uDARes_err_CannotFindField 65345
+#define uDARes_err_LoadPackageFailed 65346
+#define uDARes_err_InvalidDriverReference 65347
+#define uDARes_err_CannotFindStatement 65348
+#define uDARes_err_CannotFindDefaultItem 65349
+#define uDARes_err_PoolIsNotEmpty 65350
+#define uDARes_err_MaxPoolSizeReached 65351
+#define uDARes_err_CannotAccessThisProperty 65352
+#define uDARes_err_LAMEDataset 65353
+#define uDARes_err_DARDMInvalidSchema 65354
+#define uDARes_err_DARDMMissingConnectionName 65355
+#define uDARes_err_DARDMUnassignedAdapter 65356
+#define uDARes_err_DARDMConnectionIsNotAssigned 65357
+#define uDARes_err_DARDMCannotFindProxessorForDelta 65358
+#define uDARes_err_NeedShareMem 65359
+#define uDARes_err_DriverManagerNotAssigned 65360
+#define uDARes_err_ConnectionManagerNotAssigned 65361
+#define uDARes_err_FieldTypeNotSupported 65362
+#define uDARes_err_NotSupported 65363
+#define uDARes_err_DataTypeNotSupportedByRemoteRequest 65364
+#define uDARes_err_InvalidDataset 65365
+#define uDARes_err_CannotMakeNILDefault 65366
+#define uDARes_err_DifferentOwnerCollection 65367
+#define uDARes_err_CannotFindItem 65368
+#define uDARes_err_InvalidCollectionType 65369
+#define uDARes_err_InvalidOwner 65370
+#define uDARes_err_DriverAlreadyLoaded 65371
+#define uDARes_err_DriverIsNotLoaded 65372
+#define uDARes_err_InvalidDLL 65373
+#define uDARes_err_UnknownDriver 65374
+#define uDARes_err_UnknownParameter 65375
+#define uRODECConst_sInvalidCalc 65376
+#define uRODECConst_sInvalidDictionary 65377
+#define uRODECConst_sOTPIdent 65378
+#define uRODECConst_sOTPExt 65379
+#define uRODECConst_sOTPWord 65380
+#define uRODECConst_sOTPHex 65381
+#define uRODECConst_sSKeyIdent 65382
+#define uDARes_err_ChangeLogAlreadyStarted 65383
+#define uDARes_err_NotAttachedToDataTable 65384
+#define uDARes_err_DeltaAttachedToDataTable 65385
+#define uDARes_err_DriverProcAlreadyRegistered 65386
+#define uDARes_err_DriverManagerNotCreated 65387
+#define uDARes_err_DriverManagerAlreadyCreated 65388
+#define uDARes_err_DatasetNotAssigned 65389
+#define uDARes_err_VariantNotSupported 65390
+#define uDARes_err_InvalidDestination 65391
+#define uRODECConst_sLoadFail 65392
+#define uRODECConst_sParams 65393
+#define uRODECConst_sJacobi 65394
+#define uRODECConst_sSPPrime 65395
+#define uRODECConst_sSetPrime 65396
+#define uRODECConst_sSetPrimeSize 65397
+#define uRODECConst_sSetPrimeParam 65398
+#define uRODECConst_sSqrt 65399
+#define uRODECConst_sExpMod 65400
+#define uRODECConst_sCalcName 65401
+#define uRODECConst_sInvalidState 65402
+#define uRODECConst_sIDOutOfRange 65403
+#define uRODECConst_sInvalidZIPData 65404
+#define uRODECConst_sInvalidChallenge 65405
+#define uRODECConst_sInvalidPassword 65406
+#define uRODECConst_sInvalidSeed 65407
+#define uRODECConst_sNotInitialized 65408
+#define uRODECConst_sInvalidMACMode 65409
+#define uRODECConst_sCantCalc 65410
+#define uRODECConst_sInvalidRandomStream 65411
+#define uRODECConst_sRandomDataProtected 65412
+#define uRODECConst_sBBSnotSeekable 65413
+#define uRODECConst_sBigNumDestroy 65414
+#define uRODECConst_sIndexOutOfRange 65415
+#define uRODECConst_sBigNumAborted 65416
+#define uRODECConst_sErrGeneric 65417
+#define uRODECConst_sErrAsInteger 65418
+#define uRODECConst_sErrAsComp 65419
+#define uRODECConst_sErrAsFloat 65420
+#define uRODECConst_sNumberFormat 65421
+#define uRODECConst_sDivByZero 65422
+#define uRODECConst_sStackIndex 65423
+#define uRORes_err_UnknownMessageType 65424
+#define uRORes_err_MasterServerNeedsChannel 65425
+#define uRORes_err_StreamIsReadOnly 65426
+#define uRODECConst_sProtectionCircular 65427
+#define uRODECConst_sStringFormatExists 65428
+#define uRODECConst_sInvalidStringFormat 65429
+#define uRODECConst_sInvalidFormatString 65430
+#define uRODECConst_sFMT_COPY 65431
+#define uRODECConst_sFMT_HEX 65432
+#define uRODECConst_sFMT_HEXL 65433
+#define uRODECConst_sFMT_MIME64 65434
+#define uRODECConst_sFMT_UU 65435
+#define uRODECConst_sFMT_XX 65436
+#define uRODECConst_sInvalidKey 65437
+#define uRODECConst_sInvalidCRC 65438
+#define uRODECConst_sInvalidKeySize 65439
+#define uRORes_err_CannotLoadXMLDocument 65440
+#define uRORes_err_ErrorCreatingMsXmlDoc 65441
+#define uRORes_err_NoXMLParsersAvailable 65442
+#define uRORes_err_IDispatchMarshalingNotSupported 65443
+#define uRORes_err_UnsupportedVariantType 65444
+#define uRORes_err_InvalidBinaryFormat 65445
+#define uRORes_err_VariantIsNotArray 65446
+#define uRORes_err_InvalidVarArrayDimCount 65447
+#define uRORes_err_CannotFindParameter 65448
+#define uRORes_err_CannotFindService 65449
+#define uRORes_err_RODLResourceNotLoaded 65450
+#define uRORes_err_MayNotAddResult 65451
+#define uRORes_err_OperationNameNeedsServiceName 65452
+#define uRORes_err_ServiceNameIsNotSet 65453
+#define uRORes_err_EventReceivedNotConnectedToMessage 65454
+#define uRORes_err_MessageNotAssigned 65455
+#define uRORes_err_MessagePropertyMustBeSet 65456
+#define uRORes_err_WinMessageFailed 65457
+#define uRORes_err_UnexpectedWinINetProblem 65458
+#define uRORes_err_CommunicationWithServerTimedOut 65459
+#define uRORes_err_CannotConnectToServer 65460
+#define uRORes_err_ConnectionError 65461
+#define uRORes_err_PoolSizeMustBe1orHigher 65462
+#define uRORes_err_NoFreeObjectsInPool 65463
+#define uRORes_msg_NoMultipleDispatchers 65464
+#define uRORes_err_InvalidStorage 65465
+#define uRORes_err_ErrorConvertingFloat 65466
+#define uRORes_err_SessionNotFound 65467
+#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65468
+#define uRORes_err_TooManySessions 65469
+#define uRORes_err_DOMElementIsNIL 65470
+#define uRORes_err_IndexOutOfBounds 65471
+#define uRORes_err_CannotAssignClass 65472
+#define uRORes_err_ChannelBusy 65473
+#define uRORes_err_DesignTimeProperty 65474
+#define uRORes_err_ExpectedParameterNotFound 65475
+#define uRORes_err_AmbigousResponse 65476
+#define uRORes_err_InvalidEnvelope 65477
+#define uRORes_err_InvalidData 65478
+#define uRORes_inf_InvalidEnvelopeNode 65479
+#define uRORes_inf_AbsentBody 65480
+#define uRORes_inf_AbsentMessage 65481
+#define uRORes_err_ArrayIndexOutOfBounds 65482
+#define uRORes_err_InvalidHeader 65483
+#define uRORes_err_UnknownClassInStream 65484
+#define uRORes_err_UnexpectedClassInStream 65485
+#define uRORes_err_InvalidDateTimeReadFromStream 65486
+#define uRORes_err_CannotFindServer 65487
+#define uRORes_err_ParameterNotFound 65488
+#define uRORes_err_NotImplemented 65489
+#define uRORes_err_TypeNotSupported 65490
+#define uRORes_err_ClassFactoryNotFound 65491
+#define uRORes_err_UnspecifiedTargetURL 65492
+#define uRORes_err_IROMessageNotSupported 65493
+#define uRORes_err_ClassAlreadyRegistered 65494
+#define uRORes_err_UnknownClass 65495
+#define uRORes_err_UnknownProxyInterface 65496
+#define uRORes_err_UnknownTransportChannelClass 65497
+#define uRORes_err_UnknownMessageClass 65498
+#define uRORes_err_DispatcherAlreadyAssigned 65499
+#define uRORes_err_CannotFindMessageDispatcher 65500
+#define uRORes_err_ServerOnlySupportsOneDispatcher 65501
+#define uRORes_err_UnhandledException 65502
+#define uRORes_err_CannotReadRODLWithoutChannel 65503
+#define uRORes_err_RodlNoStructElementsDefined 65504
+#define uRORes_err_RodlNoOperationsDefined 65505
+#define uRORes_err_RodlUsedFileDoesNotExist 65506
+#define uRORes_err_RodlInvalidDataType 65507
+#define uRORes_err_RodlStructCannotBeNested 65508
+#define uRORes_err_RodlInvalidAncestorType 65509
+#define uRORes_err_UnspecifiedRODLLocation 65510
+#define uRORes_str_ExceptionOnServer 65511
+#define uRORes_str_ExceptionReraisedFromServer 65512
+#define uRORes_err_AssignError 65513
+#define uRORes_err_InvalidRequestStream 65514
+#define uRORes_err_NILMessage 65515
+#define uRORes_err_UnspecifiedInterface 65516
+#define uRORes_err_UnspecifiedMessage 65517
+#define uRORes_err_UnknownMethod 65518
+#define uRORes_err_ClassFactoryDidNotReturnInstance 65519
+#define uRORes_err_InvalidIndex 65520
+#define uRORes_err_InvalidType 65521
+#define uRORes_err_InvalidLibrary 65522
+#define uRORes_err_InvalidStream 65523
+#define uRORes_err_InvalidTargetEntity 65524
+#define uRORes_err_InvalidParamFlag 65525
+#define uRORes_err_InvalidStringLength 65526
+#define uRORes_err_InvalidBinaryLength 65527
+#define uRORes_str_InvalidClassTypeInStream 65528
+#define uRORes_err_ObjectExpectedInStream 65529
+#define uRORes_err_UnexpectedEndOfStream 65530
+#define uRORes_err_MessageClassMustImplementAssign 65531
+#define uRORes_err_InvalidInfo 65532
+#define uRORes_err_RodlDuplicateName 65533
+#define uRORes_err_RodlNoDataTypeSpecified 65534
+#define uRORes_err_RodlNoEnumValues 65535
+STRINGTABLE
+BEGIN
+	uDARes_err_ExecuteSQLCommandNotAllowed,	"ExecuteSQLCommand is not enabled for this server."
+	uDARes_err_FieldIsNotBound,	"Field is not bound"
+	uDARes_err_CannotFindField,	"Cannot find field %s"
+	uDARes_err_LoadPackageFailed,	"LoadPackage failed for file %s"
+	uDARes_err_InvalidDriverReference,	"The driver in %s could not be loaded"
+	uDARes_err_CannotFindStatement,	"Cannot find statement %s for connection %s"
+	uDARes_err_CannotFindDefaultItem,	"Cannot find default %s"
+	uDARes_err_PoolIsNotEmpty,	"Cannot perform this operation when connections are pooled"
+	uDARes_err_MaxPoolSizeReached,	"Maximum pool size reached. Cannot create a new connection"
+	uDARes_err_CannotAccessThisProperty,	"Cannot access this property with the current DataType value"
+	uDARes_err_LAMEDataset,	"%s does not implement IProviderSupport or implements it incorrectly"
+	uDARes_err_DARDMInvalidSchema,	"Schema must be assigned and must point to a ConnectionManager"
+	uDARes_err_DARDMMissingConnectionName,	"Cannot acquire a connection without a ConnectionName or a OnBeforeAcquireConnection event handler"
+	uDARes_err_DARDMUnassignedAdapter,	"DataAdapter is not assigned"
+	uDARes_err_DARDMConnectionIsNotAssigned,	"Connection is not assigned"
+	uDARes_err_DARDMCannotFindProxessorForDelta,	"Cannot find a business processor for delta \"%s\""
+	uDARes_err_NeedShareMem,	"To use dynamically loaded drivers, you must build your application with ShareMem."
+	uDARes_err_DriverManagerNotAssigned,	"Driver Manager is not assigned"
+	uDARes_err_ConnectionManagerNotAssigned,	"Connection Manager is not assigned"
+	uDARes_err_FieldTypeNotSupported,	"FieldType %s (%d) is not supported"
+	uDARes_err_NotSupported,	"Not supported"
+	uDARes_err_DataTypeNotSupportedByRemoteRequest,	"DataType is not supported by RemoteRequest"
+	uDARes_err_InvalidDataset,	"Invalid or NIL dataset"
+	uDARes_err_CannotMakeNILDefault,	"Cannot set NIL"
+	uDARes_err_DifferentOwnerCollection,	"The connection definition is not owned by this collection"
+	uDARes_err_CannotFindItem,	"Cannot find %s \"%s\" in collection of type %s"
+	uDARes_err_InvalidCollectionType,	"Invalid collection type"
+	uDARes_err_InvalidOwner,	"Invalid owner"
+	uDARes_err_DriverAlreadyLoaded,	"Driver %s is already loaded"
+	uDARes_err_DriverIsNotLoaded,	"Driver %s was not loaded"
+	uDARes_err_InvalidDLL,	"%s is not a valid Data Abstract driver"
+	uDARes_err_UnknownDriver,	"Unknown driver %s"
+	uDARes_err_UnknownParameter,	"Unknown parameter %s"
+	uRODECConst_sInvalidCalc,	"Invalid Parameters in OTPCalc."
+	uRODECConst_sInvalidDictionary,	"Used Dictionary in %s is invalid."
+	uRODECConst_sOTPIdent,	"otp-"
+	uRODECConst_sOTPExt,	"ext"
+	uRODECConst_sOTPWord,	"word:"
+	uRODECConst_sOTPHex,	"hex:"
+	uRODECConst_sSKeyIdent,	"s/key"
+	uDARes_err_ChangeLogAlreadyStarted,	"StartChange has already been called; cannot log more than one change at a time."
+	uDARes_err_NotAttachedToDataTable,	"Delta is not attached to a DataTable"
+	uDARes_err_DeltaAttachedToDataTable,	"Cannot perform this operation on a delta that is attached to a DataTable"
+	uDARes_err_DriverProcAlreadyRegistered,	"DriverProc 0x%0.8x is already registered"
+	uDARes_err_DriverManagerNotCreated,	"A Data Abstract DriverManager is not currently instantiated"
+	uDARes_err_DriverManagerAlreadyCreated,	"An instance of a TDADriverManager was already initialized. Only one driver manager per module is allowed"
+	uDARes_err_DatasetNotAssigned,	"Dataset is not assigned"
+	uDARes_err_VariantNotSupported,	"Variant type %d is not supported"
+	uDARes_err_InvalidDestination,	"Invalid destination"
+	uRODECConst_sLoadFail,	"BigNum invalid data format."
+	uRODECConst_sParams,	"BigNum parameter error.\r\n%s."
+	uRODECConst_sJacobi,	"BigNum Jacobi(A, B), B must be >= 3, Odd and B < A"
+	uRODECConst_sSPPrime,	"BigNum IsSPPrime(A, Base), |Base| must be > 1, |A| > |Base| and |A| >= 3"
+	uRODECConst_sSetPrime,	"BigNum SetPrime(Base, Residue, Modulus), Invalid Parameter.\r\n%s."
+	uRODECConst_sSetPrimeSize,	"Value must be greater 32767"
+	uRODECConst_sSetPrimeParam,	"GCD(Residue, Modulus) must be 1 and Residue < Modulus"
+	uRODECConst_sSqrt,	"BigNum Sqrt(A) A must be position"
+	uRODECConst_sExpMod,	"BigNum ExpMod(E, M) M must be positive"
+	uRODECConst_sCalcName,	"Calculation No %d"
+	uRODECConst_sInvalidState,	"Invalid Protector State detected."
+	uRODECConst_sIDOutOfRange,	"Protector Error: ID is out of Range."
+	uRODECConst_sInvalidZIPData,	"Invalid compressed Data detected."
+	uRODECConst_sInvalidChallenge,	"Challenge is not an RO_RFC2289 Format."
+	uRODECConst_sInvalidPassword,	"Invalid Passphraselength, must be more than 9 Chars."
+	uRODECConst_sInvalidSeed,	"Invalid Seed Value in OTPCalc."
+	uRODECConst_sNotInitialized,	"%s is not initialized call Init() or InitKey() before."
+	uRODECConst_sInvalidMACMode,	"Invalid Ciphermode selected to produce a MAC.\r\nPlease use Modes cmCBC, cmCTS, cmCFB, cmCBCMAC, cmCFBMAC or cmCTSMAC for CalcMAC."
+	uRODECConst_sCantCalc,	"Invalid Ciphermode selected."
+	uRODECConst_sInvalidRandomStream,	"Invalid Random Data detected."
+	uRODECConst_sRandomDataProtected,	"Random Data are protected."
+	uRODECConst_sBBSnotSeekable,	"BBS Generator is not seekable."
+	uRODECConst_sBigNumDestroy,	"Used Bignums in a BBS Generator can be not destroy."
+	uRODECConst_sIndexOutOfRange,	"BBS Error: Index out of Range."
+	uRODECConst_sBigNumAborted,	"BigNum aborted by User."
+	uRODECConst_sErrGeneric,	"Bignum Generic Error."
+	uRODECConst_sErrAsInteger,	"BigNum overflow in AsInteger."
+	uRODECConst_sErrAsComp,	"BigNum overflow in AsComp."
+	uRODECConst_sErrAsFloat,	"BigNum overflow in AsFloat."
+	uRODECConst_sNumberFormat,	"BigNum invalid Numberformat for Base %d.\r\nValue: %s"
+	uRODECConst_sDivByZero,	"BigNum division by Zero."
+	uRODECConst_sStackIndex,	"BigNum Stackindex out of range."
+	uRORes_err_UnknownMessageType,	"Unknown message type \"%s\""
+	uRORes_err_MasterServerNeedsChannel,	"No Channel assigned to %s."
+	uRORes_err_StreamIsReadOnly,	"Stream is read-only."
+	uRODECConst_sProtectionCircular,	"Circular Protection detected, Protection Object is invalid."
+	uRODECConst_sStringFormatExists,	"String Format \"%d\" not exists."
+	uRODECConst_sInvalidStringFormat,	"Input is not an valid %s Format."
+	uRODECConst_sInvalidFormatString,	"Input can not be convert to %s Format."
+	uRODECConst_sFMT_COPY,	"copy Input to Output"
+	uRODECConst_sFMT_HEX,	"Hexadecimal"
+	uRODECConst_sFMT_HEXL,	"Hexadecimal lowercase"
+	uRODECConst_sFMT_MIME64,	"MIME Base 64"
+	uRODECConst_sFMT_UU,	"UU Coding"
+	uRODECConst_sFMT_XX,	"XX Coding"
+	uRODECConst_sInvalidKey,	"Encryptionkey is invalid"
+	uRODECConst_sInvalidCRC,	"Encrypted Data is corrupt, invalid Checksum"
+	uRODECConst_sInvalidKeySize,	"Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
+	uRORes_err_CannotLoadXMLDocument,	"Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d"
+	uRORes_err_ErrorCreatingMsXmlDoc,	"Error creating MSXML Document class\r\r%s: %s"
+	uRORes_err_NoXMLParsersAvailable,	"MSXML is not installed"
+	uRORes_err_IDispatchMarshalingNotSupported,	"Marshaling of IDispatch (%d) type variants is not supported."
+	uRORes_err_UnsupportedVariantType,	"Unsupported variant type \"%d\""
+	uRORes_err_InvalidBinaryFormat,	"Invalid binary format for a variant"
+	uRORes_err_VariantIsNotArray,	"Variant must be Array, but is %d"
+	uRORes_err_InvalidVarArrayDimCount,	"Variant Array DimCount must be 1 but is %d"
+	uRORes_err_CannotFindParameter,	"Cannot find parameter %s"
+	uRORes_err_CannotFindService,	"Cannot find service %s"
+	uRORes_err_RODLResourceNotLoaded,	"RODL resource has not been loaded"
+	uRORes_err_MayNotAddResult,	"Cannot add Result parameter to collection. Use AddResult instead"
+	uRORes_err_OperationNameNeedsServiceName,	"Cannot set the OperationName without a ServiceName"
+	uRORes_err_ServiceNameIsNotSet,	"ServiceName is not set"
+	uRORes_err_EventReceivedNotConnectedToMessage,	"The event receiver must be connected to a message component first"
+	uRORes_err_MessageNotAssigned,	"Message is NIL"
+	uRORes_err_MessagePropertyMustBeSet,	"Message property must be assigned for the server to be active"
+	uRORes_err_WinMessageFailed,	"Communication with the WinMessage Server failed or timed out (Error Code %d)"
+	uRORes_err_UnexpectedWinINetProblem,	"Unexpected error in WinInet HTTP Channel (%d)"
+	uRORes_err_CommunicationWithServerTimedOut,	"Communication with the server timed out (after %sms)"
+	uRORes_err_CannotConnectToServer,	"Cannot connect to server \"%s\""
+	uRORes_err_ConnectionError,	"Connection error"
+	uRORes_err_PoolSizeMustBe1orHigher,	"Pool Size must be 1 or higher"
+	uRORes_err_NoFreeObjectsInPool,	"There are no Free Objects in the Pool. Try again later."
+	uRORes_msg_NoMultipleDispatchers,	"Multiple message dispatchers not supported"
+	uRORes_err_InvalidStorage,	"Invalid storage"
+	uRORes_err_ErrorConvertingFloat,	"Error converting float \"%s\" at byte %d"
+	uRORes_err_SessionNotFound,	"Session %s could not be found"
+	uRORes_err_ChannelDoesntSupportIROMetadataReader,	"Channel does not support IROMetadataReader"
+	uRORes_err_TooManySessions,	"Too many sessions. Try again in %d minute(s)"
+	uRORes_err_DOMElementIsNIL,	"DOMElement is NIL"
+	uRORes_err_IndexOutOfBounds,	"Index out of bounds"
+	uRORes_err_CannotAssignClass,	"Cannot Assign a \"%s\" to a \"%s\"."
+	uRORes_err_ChannelBusy,	"Channel is busy. Try again later."
+	uRORes_err_DesignTimeProperty,	"%s is a designtime-only property"
+	uRORes_err_ExpectedParameterNotFound,	"Expected parameter \"%s\" was not found."
+	uRORes_err_AmbigousResponse,	"Ambigous response. Expected one \"%s\" but %d were received"
+	uRORes_err_InvalidEnvelope,	"Invalid SOAP Envelope. %s"
+	uRORes_err_InvalidData,	"Cannot convert data for parameter \"%s\"\rException was \"%s\"\rData was \"%s\"."
+	uRORes_inf_InvalidEnvelopeNode,	"SOAP Envelope node missing or not root."
+	uRORes_inf_AbsentBody,	"SOAP envelope does not contain a Body."
+	uRORes_inf_AbsentMessage,	"SOAP Body does not contain a message nor a fault"
+	uRORes_err_ArrayIndexOutOfBounds,	"Array index out of bounds (%d)."
+	uRORes_err_InvalidHeader,	"Invalid binary header. Either incompatible or not a binary message."
+	uRORes_err_UnknownClassInStream,	"Unknown class \"%s\" found in stream."
+	uRORes_err_UnexpectedClassInStream,	"Unexpected class found in stream; class \"%s\" does not descend from \"%s\"."
+	uRORes_err_InvalidDateTimeReadFromStream,	"Invalid DateTime read from Stream."
+	uRORes_err_CannotFindServer,	"Cannot find server \"%s\""
+	uRORes_err_ParameterNotFound,	"Parameter \"%s\" was not found"
+	uRORes_err_NotImplemented,	"Not implemented"
+	uRORes_err_TypeNotSupported,	"Type \"%s\" not supported"
+	uRORes_err_ClassFactoryNotFound,	"Class factory for interface %s not found"
+	uRORes_err_UnspecifiedTargetURL,	"Unspecified TargetURL"
+	uRORes_err_IROMessageNotSupported,	"Class \"%s\" does not support IROMessage"
+	uRORes_err_ClassAlreadyRegistered,	"Class \"%s\" is already registered"
+	uRORes_err_UnknownClass,	"Unknown class \"%s\""
+	uRORes_err_UnknownProxyInterface,	"Unknown proxy interface \"%s\""
+	uRORes_err_UnknownTransportChannelClass,	"Unknown transport channel class \"%s\""
+	uRORes_err_UnknownMessageClass,	"Unknown message class \"%s\""
+	uRORes_err_DispatcherAlreadyAssigned,	"Dispatcher for %s already assigned"
+	uRORes_err_CannotFindMessageDispatcher,	"Cannot find message dispatcher. Maybe there is no message component configured for  for the requested path?"
+	uRORes_err_ServerOnlySupportsOneDispatcher,	"%s servers only support one dispatcher"
+	uRORes_err_UnhandledException,	"Unhandled exception"
+	uRORes_err_CannotReadRODLWithoutChannel,	"Cannot read RODL information without a channel"
+	uRORes_err_RodlNoStructElementsDefined,	"Struct does not contain any elements."
+	uRORes_err_RodlNoOperationsDefined,	"Service interface does not contain any elements."
+	uRORes_err_RodlUsedFileDoesNotExist,	"The referenced RODL file \"%s\" could not be found."
+	uRORes_err_RodlInvalidDataType,	"Invalid or undefined data type \"%s\"."
+	uRORes_err_RodlStructCannotBeNested,	"Structs cannot recursively contain themselves."
+	uRORes_err_RodlInvalidAncestorType,	"Invalid or undefined ancestor type \"%s\"."
+	uRORes_err_UnspecifiedRODLLocation,	"Unspecified RODL location"
+	uRORes_str_ExceptionOnServer,	"An exception of type %s was raised on the server: %s"
+	uRORes_str_ExceptionReraisedFromServer,	"An exception was raised on the server: %s"
+	uRORes_err_AssignError,	"Cannot assign a \"%s\" to a \"%s\"."
+	uRORes_err_InvalidRequestStream,	"Invalid request stream (%d bytes)"
+	uRORes_err_NILMessage,	"Message is NIL"
+	uRORes_err_UnspecifiedInterface,	"The message does not have an interface name"
+	uRORes_err_UnspecifiedMessage,	"The message does not have a name"
+	uRORes_err_UnknownMethod,	"Unknown method %s for interface %s"
+	uRORes_err_ClassFactoryDidNotReturnInstance,	"Class factory did not return an instance of \"%s\""
+	uRORes_err_InvalidIndex,	"Invalid index %d"
+	uRORes_err_InvalidType,	"Invalid type \"%s. Expected \"%s\"\""
+	uRORes_err_InvalidLibrary,	"Invalid library"
+	uRORes_err_InvalidStream,	"Invalid stream"
+	uRORes_err_InvalidTargetEntity,	"Invalid TargetEntity \"%s\""
+	uRORes_err_InvalidParamFlag,	"Invalid Parameter Flag \"%s\""
+	uRORes_err_InvalidStringLength,	"Stream read error: Invalid string length \"%d\""
+	uRORes_err_InvalidBinaryLength,	"Stream read error: Invalid binary length \"%d\""
+	uRORes_str_InvalidClassTypeInStream,	"Stream read error: Invalid class type encountered: \"%s\""
+	uRORes_err_ObjectExpectedInStream,	"Stream read error: Object expected, but nil found."
+	uRORes_err_UnexpectedEndOfStream,	"Unexpected end of stream."
+	uRORes_err_MessageClassMustImplementAssign,	"Please implement Assign() for your custom message class."
+	uRORes_err_InvalidInfo,	"Invalid or incomplete info."
+	uRORes_err_RodlDuplicateName,	"Duplicate name."
+	uRORes_err_RodlNoDataTypeSpecified,	"No data type specified."
+	uRORes_err_RodlNoEnumValues,	"Enum does not contain any values."
+END
+

Modulos/Contactos/Cliente/Contactos.dof

@@ -144,23 +144,24 @@ Item0=D:\Proyectos\Componentes\GUISDK\Sources\;D:\Proyectos\Componentes\PluginSD
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=16
+Count=17
-Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
+Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente;..\..\Documentos asociados;..\..\Almacenes\Cliente;..\..\Montajes\Cliente;..\..\Presupuestos\Cliente
-Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
-Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
+Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
-Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
+Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
-Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
+Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
-Item5=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente
+Item5=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
-Item6=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
+Item6=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente
-Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
+Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
-Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
+Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
-Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
+Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
-Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
+Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
-Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
+Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
-Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
+Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
-Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
+Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
-Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
-Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
+Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=.\

Modulos/Contactos/Cliente/Contactos.dpk

@@ -46,7 +46,8 @@ requires
   dxLayoutControlD7,
   dbrtl,
   dsnap,
-  adortl;
+  adortl,
+  dxPSdxLCLnkD7;
 
 {%ToDo 'Contactos.todo'}
 

Modulos/Contactos/Cliente/uEditorComisiones.dfm

@@ -1,6 +1,6 @@
 inherited fEditorComisiones: TfEditorComisiones
-  Left = 241
+  Left = 577
-  Top = 117
+  Top = 170
   Width = 851
   Height = 662
   Caption = 'C'#225'lculo de comisiones de vendedores'
@@ -53,8 +53,12 @@ inherited fEditorComisiones: TfEditorComisiones
   end
   inherited TBXDock: TTBXDock
     Width = 843
-    inherited tbxMenu: TTBXToolbar
+    inherited tbxFiltro: TTBXToolbar
-      Visible = False
+      Left = 185
+      DockPos = 184
+      inherited TBXItem37: TTBXItem
+        Visible = False
+      end
     end
   end
   inherited StatusBar: TStatusBar
@@ -428,8 +432,20 @@ inherited fEditorComisiones: TfEditorComisiones
   inherited EditorActionList: TActionList
     Left = 456
     Top = 88
-    inherited actPrevisualizar: TAction
+    inherited actNuevo: TAction
-      OnExecute = actPrevisualizarExecute
+      Visible = False
+    end
+    inherited actModificar: TAction
+      Visible = False
+    end
+    inherited actEliminar: TAction
+      Visible = False
+    end
+    inherited actRefrescar: TAction
+      Visible = False
+    end
+    inherited actDuplicar: TAction
+      Visible = False
     end
   end
   object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
@@ -463,61 +479,54 @@ inherited fEditorComisiones: TfEditorComisiones
       Color = clHighlight
       TextColor = clHighlightText
     end
+    object cxStyle1: TcxStyle
+      AssignedValues = [svFont]
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clGray
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = [fsStrikeOut]
+    end
   end
   object DADataSource2: TDADataSource
     Left = 40
     Top = 456
   end
   object dxComponentPrinter: TdxComponentPrinter
-    CurrentLink = dxComponentPrinterLink5
+    CurrentLink = dxComponentPrinterLink2
     PreviewOptions.EnableOptions = [peoCanChangeMargins, peoPageBackground, peoPageSetup, peoPreferences, peoPrint]
     PreviewOptions.VisibleOptions = [pvoPageBackground, pvoPageSetup, pvoPreferences, pvoPrint, pvoPrintStyles, pvoReportFileOperations, pvoPageMargins]
     PreviewOptions.WindowState = wsMaximized
     Version = 0
     Left = 688
     Top = 208
-    object dxComponentPrinterLink1: TdxGridReportLink
-      Active = True
-      Component = cxGrid1
-      PrinterPage.DMPaper = 9
-      PrinterPage.Footer = 6350
-      PrinterPage.Header = 6350
-      PrinterPage.Margins.Bottom = 12700
-      PrinterPage.Margins.Left = 12700
-      PrinterPage.Margins.Right = 12700
-      PrinterPage.Margins.Top = 12700
-      PrinterPage.PageSize.X = 210000
-      PrinterPage.PageSize.Y = 297000
-      PrinterPage._dxMeasurementUnits_ = 0
-      PrinterPage._dxLastMU_ = 2
-      ReportDocument.CreationDate = 39238.569511527780000000
-      OptionsDetails.StartFromFocusedView = True
-      OptionsExpanding.ExpandCards = True
-      OptionsExpanding.ExpandGroupRows = True
-      OptionsExpanding.ExpandMasterRows = True
-      OptionsSelection.ProcessSelection = True
-      OptionsSize.AutoWidth = True
-      BuiltInReportLink = True
-    end
     object dxComponentPrinterLink2: TdxCompositionReportLink
       Active = True
       PrinterPage.DMPaper = 9
       PrinterPage.Footer = 6350
-      PrinterPage.Header = 6350
+      PrinterPage.Header = 6100
       PrinterPage.Margins.Bottom = 12700
       PrinterPage.Margins.Left = 12700
       PrinterPage.Margins.Right = 12700
-      PrinterPage.Margins.Top = 12700
+      PrinterPage.Margins.Top = 24100
+      PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
+      PrinterPage.PageHeader.Font.Color = clBlack
+      PrinterPage.PageHeader.Font.Height = -13
+      PrinterPage.PageHeader.Font.Name = 'Tahoma'
+      PrinterPage.PageHeader.Font.Style = [fsBold]
+      PrinterPage.PageHeader.LeftTitle.Strings = (
+        'Informe de Comisiones de Vendedores')
       PrinterPage.PageSize.X = 210000
       PrinterPage.PageSize.Y = 297000
+      PrinterPage.ScaleMode = smFit
       PrinterPage._dxMeasurementUnits_ = 0
       PrinterPage._dxLastMU_ = 2
-      ReportDocument.Caption = 'NewReport'
+      ReportDocument.CreationDate = 39393.710588645830000000
-      ReportDocument.CreationDate = 39238.590108136580000000
+      ReportDocument.IsCaptionAssigned = True
-      ReportDocument.IsDescriptionAssigned = True
+      ShrinkToPageWidth = True
       Items = <
         item
-          ReportLink = dxComponentPrinterLink4
+          ReportLink = dxComponentPrinterLink1
           BuiltInCompositionItem = True
         end
         item
@@ -526,6 +535,43 @@ inherited fEditorComisiones: TfEditorComisiones
         end>
       BuiltInReportLink = True
     end
+    object dxComponentPrinterLink1: TdxGridReportLink
+      Active = True
+      Component = cxGrid1
+      PrinterPage.DMPaper = 9
+      PrinterPage.Footer = 6350
+      PrinterPage.Header = 35500
+      PrinterPage.Margins.Bottom = 12700
+      PrinterPage.Margins.Left = 12700
+      PrinterPage.Margins.Right = 12700
+      PrinterPage.Margins.Top = 35500
+      PrinterPage.PageHeader.CenterTitle.Strings = (
+        'Lista de cobros')
+      PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
+      PrinterPage.PageHeader.Font.Color = clBlack
+      PrinterPage.PageHeader.Font.Height = -16
+      PrinterPage.PageHeader.Font.Name = 'Tahoma'
+      PrinterPage.PageHeader.Font.Style = [fsItalic, fsUnderline]
+      PrinterPage.PageSize.X = 210000
+      PrinterPage.PageSize.Y = 297000
+      PrinterPage.ScaleMode = smFit
+      PrinterPage._dxMeasurementUnits_ = 0
+      PrinterPage._dxLastMU_ = 2
+      ReportDocument.CreationDate = 39393.710588645830000000
+      ReportTitle.Font.Charset = DEFAULT_CHARSET
+      ReportTitle.Font.Color = clBlack
+      ReportTitle.Font.Height = -16
+      ReportTitle.Font.Name = 'Times New Roman'
+      ReportTitle.Font.Style = [fsItalic, fsUnderline]
+      ReportTitle.Text = 'Lista de cobros'
+      ShrinkToPageWidth = True
+      OptionsFormatting.UseNativeStyles = True
+      OptionsOnEveryPage.FilterBar = False
+      OptionsSize.AutoWidth = True
+      OptionsView.FilterBar = False
+      StyleRepository = cxStyleRepository1
+      BuiltInReportLink = True
+    end
     object dxComponentPrinterLink3: TdxGridReportLink
       Active = True
       Component = cxGrid
@@ -536,63 +582,30 @@ inherited fEditorComisiones: TfEditorComisiones
       PrinterPage.Margins.Left = 12700
       PrinterPage.Margins.Right = 12700
       PrinterPage.Margins.Top = 12700
+      PrinterPage.PageHeader.CenterTitle.Strings = (
+        '')
+      PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
+      PrinterPage.PageHeader.Font.Color = clBlack
+      PrinterPage.PageHeader.Font.Height = -16
+      PrinterPage.PageHeader.Font.Name = 'Tahoma'
+      PrinterPage.PageHeader.Font.Style = [fsItalic, fsUnderline]
       PrinterPage.PageSize.X = 210000
       PrinterPage.PageSize.Y = 297000
+      PrinterPage.ScaleMode = smFit
       PrinterPage._dxMeasurementUnits_ = 0
       PrinterPage._dxLastMU_ = 2
-      ReportDocument.CreationDate = 39238.590108136580000000
+      ReportDocument.CreationDate = 39393.710588645830000000
+      ReportTitle.Font.Charset = DEFAULT_CHARSET
+      ReportTitle.Font.Color = clBlack
+      ReportTitle.Font.Height = -16
+      ReportTitle.Font.Name = 'Times New Roman'
+      ReportTitle.Font.Style = [fsItalic, fsUnderline]
+      ReportTitle.Text = 'Lista de comisiones'
+      ShrinkToPageWidth = True
+      OptionsOnEveryPage.FilterBar = False
+      OptionsSize.AutoWidth = True
+      OptionsView.FilterBar = False
       BuiltInReportLink = True
     end
-    object dxComponentPrinterLink4: TdxLayoutControlReportLink
-      Active = True
-      Component = dxLayoutControl1
-      PrinterPage.DMPaper = 9
-      PrinterPage.Footer = 6350
-      PrinterPage.Header = 6350
-      PrinterPage.Margins.Bottom = 12700
-      PrinterPage.Margins.Left = 12700
-      PrinterPage.Margins.Right = 12700
-      PrinterPage.Margins.Top = 12700
-      PrinterPage.PageSize.X = 210000
-      PrinterPage.PageSize.Y = 297000
-      PrinterPage._dxMeasurementUnits_ = 0
-      PrinterPage._dxLastMU_ = 2
-      ReportDocument.CreationDate = 39238.590108136580000000
-      OptionsPagination.Controls = False
-      BuiltInReportLink = True
-      HiddenComponents = {}
-      ExcludedComponents = {
-        64784C61796F7574436F6E74726F6C314974656D330D0A64784C61796F757443
-        6F6E74726F6C314974656D340D0A}
-      AggregatedReportLinks = {6478436F6D706F6E656E745072696E7465724C696E6B310D0A}
-    end
-    object dxComponentPrinterLink5: TdxCustomContainerReportLink
-      Active = True
-      Component = Owner
-      PrinterPage.DMPaper = 9
-      PrinterPage.Footer = 6350
-      PrinterPage.Header = 6350
-      PrinterPage.Margins.Bottom = 12700
-      PrinterPage.Margins.Left = 12700
-      PrinterPage.Margins.Right = 12700
-      PrinterPage.Margins.Top = 12700
-      PrinterPage.PageSize.X = 210000
-      PrinterPage.PageSize.Y = 297000
-      PrinterPage._dxMeasurementUnits_ = 0
-      PrinterPage._dxLastMU_ = 2
-      ReportDocument.CreationDate = 39238.600628252310000000
-      BuiltInReportLink = True
-      HiddenComponents = {}
-      ExcludedComponents = {
-        4A764E617650616E656C4865616465720D0A496D616765310D0A544258446F63
-        6B0D0A7462784D61696E0D0A7462784D656E750D0A5374617475734261720D0A
-        64784C61796F7574436F6E74726F6C310D0A6564744665636861496E690D0A65
-        6474466563686146696E0D0A427574746F6E310D0A6378477269640D0A656474
-        496D706F727465436F62726F730D0A637847726964310D0A637853706C697474
-        6572310D0A}
-      AggregatedReportLinks = {
-        6478436F6D706F6E656E745072696E7465724C696E6B310D0A6478436F6D706F
-        6E656E745072696E7465724C696E6B330D0A}
-    end
   end
 end

Modulos/Contactos/Cliente/uEditorComisiones.pas

@@ -17,14 +17,15 @@ uses
   JvComponentBase, JvExExtCtrls, JvSplitter, JvSplit, dxPSGlbl, dxPSUtl,
   dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
   dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk,
-  dxPSContainerLnk, dxPSdxLCLnk;
+  dxPSContainerLnk, dxPSdxLCLnk, uEditorGrid, Menus, TB2ExtItems,
+  TBXExtItems;
 
 type
-  IEditorComisiones = interface(IEditorBase)
+  IEditorComisiones = interface(IEditorGrid)
   ['{C3894FB2-9030-466C-B2D9-5CF3CF5EA1B8}']
   end;
   
-  TfEditorComisiones = class(TfEditorBase, IEditorComisiones)
+  TfEditorComisiones = class(TfEditorGrid, IEditorComisiones)
     Button1: TButton;
     dxLayoutControl1Group_Root: TdxLayoutGroup;
     dxLayoutControl1: TdxLayoutControl;
@@ -69,10 +70,9 @@ type
     cxGridDBTableView1DESCRIPCION: TcxGridDBColumn;
     dxComponentPrinter: TdxComponentPrinter;
     dxComponentPrinterLink1: TdxGridReportLink;
-    dxComponentPrinterLink2: TdxCompositionReportLink;
     dxComponentPrinterLink3: TdxGridReportLink;
-    dxComponentPrinterLink4: TdxLayoutControlReportLink;
+    dxComponentPrinterLink2: TdxCompositionReportLink;
-    dxComponentPrinterLink5: TdxCustomContainerReportLink;
+    cxStyle1: TcxStyle;
     procedure Button1Click(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure edtFechaIniPropertiesValidate(Sender: TObject;
@@ -84,12 +84,14 @@ type
       Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
       AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
     procedure actPrevisualizarExecute(Sender: TObject);
+    procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
+    procedure actQuitarFiltroExecute(Sender: TObject);
+    procedure actAnchoAutoExecute(Sender: TObject);
+    procedure actPrevisualizarUpdate(Sender: TObject);
   private
     FComisiones : TDADataTable;
     FCobrosComision : IBizCobrosComision;
     procedure OnTotalChanged(Sender : TObject);
-  public
-    { Public declarations }
   end;
 
 var
@@ -120,6 +122,8 @@ begin
   inherited;
   edtFechaIni.Date := DateOf(StartOfTheMonth(Now));
   edtFechaFin.Date := DateOf(EndOfTheMonth(Now));
+
+  ViewGrid
 end;
 
 procedure TfEditorComisiones.edtFechaIniPropertiesValidate(Sender: TObject;
@@ -149,8 +153,9 @@ begin
   IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_CobrosCOMISIONSELECCION).Index;
   if UPPERCASE(AViewInfo.GridRecord.DisplayTexts[IndiceCol]) = 'FALSE' then
   begin
-    ACanvas.Canvas.Font.Style := [fsStrikeOut];
+    ACanvas.Canvas.Font := cxStyle1.Font;
-    ACanvas.Canvas.Font.Color := clGray;
+//    ACanvas.Canvas.Font.Style := [fsStrikeOut];
+//    ACanvas.Canvas.Font.Color := clGray;
   end;
 end;
 
@@ -161,8 +166,84 @@ end;
 
 procedure TfEditorComisiones.actPrevisualizarExecute(Sender: TObject);
 begin
-  inherited;
+//  inherited;
+
+  dxComponentPrinterLink2.PrinterPage.PageHeader.RightTitle.Clear;
+  dxComponentPrinterLink2.PrinterPage.PageHeader.RightTitle.Add('Desde ' + edtFechaIni.Text + ' hasta ' + edtFechaFin.Text);
+  if (tbxEditFiltro.Text <> '') then
+     dxComponentPrinterLink2.PrinterPage.PageHeader.RightTitle.Add('Filtrado por: ' + tbxEditFiltro.Text);
   dxComponentPrinter.Preview;
 end;
 
+procedure TfEditorComisiones.tbxEditFiltroChange(Sender: TObject; const Text: String);
+var
+  Columna: TcxGridDBColumn;
+  i: Integer;
+  AItemList: TcxFilterCriteriaItemList;
+  AItemList2: TcxFilterCriteriaItemList;
+  EsPrimera: Boolean;
+begin
+//Sobre escribimos el evento para saltarnos toda la lógica del ViewGrid, ya que
+//lo hacemos directamente sobre el grid del editor que nos interesa. 
+//  inherited;
+
+  with cxGrid1.ActiveView.DataController.Filter do
+  begin
+    BeginUpdate;
+    try
+      Options := [fcoCaseInsensitive, fcoSoftCompare];
+      Root.Clear;
+      if Length(Text) > 0 then
+      begin
+        EsPrimera := True;
+        for i:=0 to (cxGrid1.ActiveView as TcxGridDBTableView).ColumnCount - 1 do
+        begin
+          Columna := (cxGrid1.ActiveView as TcxGridDBTableView).Columns[i];
+          if Columna.Visible then
+          begin
+            if EsPrimera then
+            begin
+              AItemList := Root;
+              AItemList.BoolOperatorKind := fboAnd;
+              AItemList2 := AItemList.AddItemList(fboAnd);
+              AItemList := AItemList2;
+              AItemList2 := AItemList.AddItemList(fboOr);
+              AItemList := AItemList2;
+              AItemList.AddItem(Columna, foLike, '%'+Text+'%', IntToStr(i));
+              EsPrimera := False;
+            end
+            else begin
+              AItemList2 := AItemList.AddItemList(fboOr);
+              AItemList2.AddItem(Columna, foLike, '%'+Text+'%', IntToStr(i));
+              AItemList := AItemList2;
+            end;
+          end;
+        end;
+        Active := True;
+      end
+      else
+        Active := False;
+    finally
+      EndUpdate;
+    end;
+  end;
+end;
+
+procedure TfEditorComisiones.actQuitarFiltroExecute(Sender: TObject);
+begin
+//  inherited;
+  tbxEditFiltro.Text := '';
+end;
+
+procedure TfEditorComisiones.actAnchoAutoExecute(Sender: TObject);
+begin
+//  inherited;
+  cxGridDBTableView1.ApplyBestFit;
+end;
+
+procedure TfEditorComisiones.actPrevisualizarUpdate(Sender: TObject);
+begin
+//  inherited;
+end;
+
 end.

Modulos/Facturas de cliente/Cliente/uEditorFacturaCliente.dfm

@@ -106,6 +106,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
           inherited edtCalle: TcxDBTextEdit
             DataBinding.DataSource = frViewFacturaCliente1.DADataSource
           end
+          inherited ToolBar2: TToolBar
+            Width = 182
+          end
           inherited edtCodigoPostal: TcxDBTextEdit
             DataBinding.DataSource = frViewFacturaCliente1.DADataSource
           end

Modulos/Facturas de cliente/Reglas/uBizFacturasCliente.pas

@@ -637,7 +637,8 @@ var
   aIVA : Double;
   ACursor: TCursor;
 begin
-  aIVA := Self.IVA;
+  if (Self.IVA = 0) then
+     aIVA := 16;
 
   if PreguntarIVA(aIVA) then
   begin

Modulos/Pagos/Cliente/Pagos.cfg

@@ -35,10 +35,10 @@
 -N".\"
 -LE"..\..\..\Output\Cliente"
 -LN".\"
--U"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente;..\..\Documentos asociados;..\..\Almacenes\Cliente;..\..\Montajes\Cliente"
+-U"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente;..\..\Documentos asociados;..\..\Almacenes\Cliente;..\..\Montajes\Cliente;..\..\Presupuestos\Cliente"
--O"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente;..\..\Documentos asociados;..\..\Almacenes\Cliente;..\..\Montajes\Cliente"
+-O"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente;..\..\Documentos asociados;..\..\Almacenes\Cliente;..\..\Montajes\Cliente;..\..\Presupuestos\Cliente"
--I"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente;..\..\Documentos asociados;..\..\Almacenes\Cliente;..\..\Montajes\Cliente"
+-I"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente;..\..\Documentos asociados;..\..\Almacenes\Cliente;..\..\Montajes\Cliente;..\..\Presupuestos\Cliente"
--R"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente;..\..\Documentos asociados;..\..\Almacenes\Cliente;..\..\Montajes\Cliente"
+-R"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente;..\..\Documentos asociados;..\..\Almacenes\Cliente;..\..\Montajes\Cliente;..\..\Presupuestos\Cliente"
 -Z
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE

Modulos/Pagos/Cliente/Pagos.dof

@@ -94,7 +94,7 @@ OutputDir=
 UnitOutputDir=.\
 PackageDLLOutputDir=..\..\..\Output\Cliente
 PackageDCPOutputDir=.\
-SearchPath=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente;..\..\Documentos asociados;..\..\Almacenes\Cliente;..\..\Montajes\Cliente
+SearchPath=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente;..\..\Documentos asociados;..\..\Almacenes\Cliente;..\..\Montajes\Cliente;..\..\Presupuestos\Cliente
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;PluginSDK_D7R;DJcl;JvStdCtrlsD7R;JvAppFrmD7R;JvCoreD7R;JvBandsD7R;JvBDED7R;JvDBD7R;JvDlgsD7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDockingD7R;JvDotNetCtrlsD7R;JvEDID7R;qrpt;JvGlobusD7R;JvHMID7R;JvInspectorD7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvNetD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvSystemD7R;JvTimeFrameworkD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;GUISDK_D7;RemObjects_WebBroker_D7;RemObjects_Indy_D7;RemObjects_RODX_D7;RemObjects_BPDX_D7;PascalScript_RO_D7;DataAbstract_Core_D7;DataAbstract_IDE_D7;DataAbstract_DBXDriver_D7;DataAbstract_Scripting_D7;dxBarD7;dxComnD7;cxLibraryVCLD7;cxEditorsVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;cxTreeListVCLD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxNavBarD7;dxPSCoreD7;dxsbD7;dxPSLnksD7;dxPSTeeChartD7;EPCOTAUtils70;PNG_D7;PngComponentsD7;tb2k_d7;tbx_d7;UserControlD7_RT;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fs7;fsADO7;fsBDE7;fsDB7;fsIBX7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;dxPScxCommonD7;dxPScxExtCommonD7;dxPScxGridLnkD7;dxPScxPCProdD7;dxPScxTLLnkD7;dxPSDBTeeChartD7;dxPsPrVwAdvD7
 Conditionals=
 DebugSourceDirs=
@@ -162,7 +162,6 @@ C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\Compare
 C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\ComparerDBXD7.bpl=Database Comparer VCL DBX
 C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\ComparerIbxD7.bpl=Database Comparer VCL IBX
 C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\ComparerAdoD7.bpl=Database Comparer VCL ADO
-C:\Archivos de programa\EurekaLog 5\Delphi7\ExceptionExpert7.bpl=EurekaLog 5.1.9
 C:\WINDOWS\system32\dclShX_Namespace_V3D7.bpl=(untitled)
 C:\WINDOWS\system32\vclShX_Namespace_v3D7.bpl=(untitled)
 [HistoryLists\hlDebugSourcePath]
@@ -172,26 +171,24 @@ Item0=D:\Proyectos\Componentes\GUISDK\Sources\;D:\Proyectos\Componentes\PluginSD
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=19
+Count=17
-Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente;..\..\Documentos asociados;..\..\Almacenes\Cliente;..\..\Montajes\Cliente
+Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente;..\..\Documentos asociados;..\..\Almacenes\Cliente;..\..\Montajes\Cliente;..\..\Presupuestos\Cliente
-Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente;..\..\Almacenes\Cliente;..\..\Montajes\Cliente
+Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
-Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente;..\..\Almacenes\Cliente;..\..\Montajes\Cliente
+Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
 Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
 Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
 Item5=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
 Item6=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente
-Item7=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
+Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
-Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
-Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
+Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
-Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
+Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
-Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
+Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
-Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
+Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
-Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
+Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
-Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
+Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
-Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
+Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
-Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
+Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
-Item17=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
-Item18=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=.\
@@ -207,3 +204,320 @@ Item2=..\..\Output\Cliente
 [HistoryLists\hlDCPOutput]
 Count=1
 Item0=.\
+[Exception Log]
+EurekaLog Version=519
+Activate=1
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=0
+Freeze Message=The application seems to be frozen.
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+Show TerminateBtn=1
+TerminateBtn Operation=1
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=1
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesSection=1
+loSaveCPUSection=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soExcDate=1
+soExcAddress=1
+soExcModule=1
+soExcType=1
+soExcMessage=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpUser=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=0
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndCompressAllFiles=0
+edoShowExceptionDialog=1
+edoSendEmailChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=1
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoShowProcedureOffset=0
+boActivateCrashDetection=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error."
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_CustomDataCaption=1
+mtDialog_CustomDataCaption0="Other"
+Count mtDialog_CustomDataHeader=1
+mtDialog_CustomDataHeader0="Other Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModule=1
+mtLog_ExcModule0="Module"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpUser=1
+mtLog_CmpUser0="User"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+
+

Modulos/Presupuestos/Cliente/uDataModulePresupuestos.pas

@@ -21,6 +21,11 @@
     26-09-2006    Se ha modificado la lógica al seleccionar un presupuesto para
                   generar un albarán, ahora un albarán se podrá generar a partir
                   de un presupuesto aunque no tenga asignado ningún montaje
+
+    07-10-2007    PETICION DE RAQUEL - Así podrán crear montajes de presupuestos
+                  que todavia no estan aceptados el proceso deberá cambiar de
+                  situación el presupuesto elegido (SetReferencia, GetPresupuestosSinMontaje)
+
 ===============================================================================
 }
 
@@ -231,10 +236,13 @@ begin
     OpenBraket;
     AddText(fld_PresupuestosCODIGO + ' not in (select CODIGOPRESUPUESTO from MONTAJES where CODIGOEMPRESA = ' + IntToStr(dmBase.CodigoEmpresa) + ' and CODIGOPRESUPUESTO is not null)', False);
     CloseBraket;
-    AddOperator(opAND);
+
-    OpenBraket;
+//Así podrán crear montajes de presupuestos que todavia no estan aceptados
-    AddText(fld_PresupuestosSITUACION + '=' + '''' + SITUACION_ACEPTADO + '''', False);
+//el proceso deberá cambiar de situación el presupuesto elegido
-    CloseBraket;
+//    AddOperator(opAND);
+//    OpenBraket;
+//    AddText(fld_PresupuestosSITUACION + '=' + '''' + SITUACION_ACEPTADO + '''', False);
+//    CloseBraket;
 
 
     {    AddOperator(opAND);
@@ -290,6 +298,13 @@ begin
     if not (APresupuesto.DataTable.State in dsEditModes) then
       APresupuesto.DataTable.Edit;
     APresupuesto.DataTable.FieldByName(fld_PresupuestosREFERENCIA).AsVariant := Referencia;
+
+    //Si el presupuesto al que se la asigna la nueva referencia del montaje esta pendiente lo
+    //pasamos a aceptado
+    if not VarIsNull(Referencia)
+    and (APresupuesto.DataTable.FieldByName(fld_PresupuestosSITUACION).AsString = SITUACION_PENDIENTE) then
+       APresupuesto.DataTable.FieldByName(fld_PresupuestosSITUACION).AsString := SITUACION_ACEPTADO;
+
     APresupuesto.Post;
     Result:= True;
   except