AcotaCocinas/AlonsoYSal_FactuGES
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@8 9a1d36f3-7752-2d40-8ccb-50eb49674c68
This commit is contained in:
roberto 2007-11-07 16:56:36 +00:00
parent 992c3efd09
commit c5ecc492dc
18 changed files with 1721 additions and 862 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Base/BaseD7.dcp
View File

Binary file not shown.

8
Base/BaseD7.dof
View File

@ -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
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
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=..\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
Item1=..\Output\Cliente
Item0=..\Output\Cliente
Item1=..\Output\Servidor
[HistoryLists\hlBPLOutput]
Count=3
Item0=..\..\..\Output\Cliente

12
Cliente/FactuGES.dof
View File

@ -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
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
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=..\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
Item1=..\Output\Cliente
Item0=..\Output\Cliente
Item1=..\Output\Servidor
[HistoryLists\hlBPLOutput]
Count=3
Item0=..\..\..\Output\Cliente

4
Cliente/FactuGES.dpr
View File

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

BIN
Cliente/FactuGES.res
View File

Binary file not shown.

390
DataAbstract_D7/DataAbstract_D7.drc
View File

@ -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

35
Modulos/Contactos/Cliente/Contactos.dof
View File

@ -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
Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\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
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
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
Item6=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
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;..\..\Presupuestos\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;..\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=$(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;..\..\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
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
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;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\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;..\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=.\

3
Modulos/Contactos/Cliente/Contactos.dpk
View File

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

189
Modulos/Contactos/Cliente/uEditorComisiones.dfm
View File

@ -1,6 +1,6 @@
inherited fEditorComisiones: TfEditorComisiones
Left = 241
Top = 117
Left = 577
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
Visible = False
inherited tbxFiltro: TTBXToolbar
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
OnExecute = actPrevisualizarExecute
inherited actNuevo: TAction
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 = 39238.590108136580000000
ReportDocument.IsDescriptionAssigned = True
ReportDocument.CreationDate = 39393.710588645830000000
ReportDocument.IsCaptionAssigned = 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

103
Modulos/Contactos/Cliente/uEditorComisiones.pas
View File

@ -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;
dxComponentPrinterLink5: TdxCustomContainerReportLink;
dxComponentPrinterLink2: TdxCompositionReportLink;
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.Color := clGray;
ACanvas.Canvas.Font := cxStyle1.Font;
// 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.

3
Modulos/Facturas de cliente/Cliente/uEditorFacturaCliente.dfm
View File

@ -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

3
Modulos/Facturas de cliente/Reglas/uBizFacturasCliente.pas
View File

@ -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

8
Modulos/Pagos/Cliente/Pagos.cfg
View File

@ -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"
-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"
-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"
-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"
-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;..\..\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;..\..\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;..\..\Presupuestos\Cliente"
-Z
-w-UNSAFE_TYPE
-w-UNSAFE_CODE

350
Modulos/Pagos/Cliente/Pagos.dof
View File

@ -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
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
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
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
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;..\..\Presupuestos\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;..\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
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
Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\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
Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
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
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;..\..\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
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
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;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\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;..\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=.\
@ -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."

23
Modulos/Presupuestos/Cliente/uDataModulePresupuestos.pas
View File

@ -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;
AddText(fld_PresupuestosSITUACION + '=' + '''' + SITUACION_ACEPTADO + '''', False);
CloseBraket;
//Así podrán crear montajes de presupuestos que todavia no estan aceptados
//el proceso deberá cambiar de situación el presupuesto elegido
// 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

BIN
Output/Cliente/FactuGES.exe
View File

Binary file not shown.

BIN
Output/Servidor/FactuGES_Server.exe
View File

Binary file not shown.

1452
Servidor/FactuGES_Server.drc
View File

File diff suppressed because it is too large Load Diff