Cambio LOPD en presupuestos

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

BD/BaseDatos.sql

@@ -21,7 +21,7 @@ CREATE DOMAIN "CORREOS" AS VARCHAR(60);
 CREATE DOMAIN "DESCRIPCIONES" AS VARCHAR(2000);
 CREATE DOMAIN "FAMILIAS" AS VARCHAR(50);
 CREATE DOMAIN "FECHAS" AS DATE;
-CREATE DOMAIN "FORMASPAGO" AS VARCHAR(50);
+CREATE DOMAIN "FORMASPAGO" AS VARCHAR(200);
 CREATE DOMAIN "IMPORTES2" AS NUMERIC(11,2) DEFAULT 0;
 CREATE DOMAIN "IMPORTES4" AS NUMERIC(13,4) DEFAULT 0;
 CREATE DOMAIN "IMPORTES6" AS NUMERIC(15,6) DEFAULT 0;

BD/serverlog.txt

@@ -1,93 +0,0 @@
-[07/04/2007 15:26:32]
-[Application: ]
-: [Connect]
-
-
>
-[07/04/2007 15:26:32]
-[Application: ]
-: [Prepare] SELECT
-    ID
-  FROM
-    USUARIOS
-  WHERE USUARIO = :USUARIO AND
-        PASS = :PASS AND
-        ACTIVO = 1
-
-  Plan: PLAN (USUARIOS NATURAL)
-
-
>
-[07/04/2007 15:26:32]
-[Application: ]
-: [Start transaction]
-
-
>
-[07/04/2007 15:26:32]
-[Application: ]
-: [Prepare] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
-
-  Plan: PLAN JOIN (R INDEX (RDB$INDEX_4), F INDEX (RDB$INDEX_2))
-
-
>
-[07/04/2007 15:26:32]
-[Application: ]
-: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
-
-  RELATION = USUARIOS
-
-
>
-[07/04/2007 15:26:32]
-[Application: ]
-: [Prepare] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
-
-  Plan: PLAN SORT (JOIN (RR INDEX (RDB$INDEX_42), RI INDEX (RDB$INDEX_6)))
-
-
>
-[07/04/2007 15:26:32]
-[Application: ]
-: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
-
-  RELATION_NAME = USUARIOS
-
-
>
-[07/04/2007 15:26:32]
-[Application: ]
-: [Commit (Hard commit)]
-
-
>
-[07/04/2007 15:26:32]
-[Application: ]
-: [Execute] SELECT
-    ID
-  FROM
-    USUARIOS
-  WHERE USUARIO = :USUARIO AND
-        PASS = :PASS AND
-        ACTIVO = 1
-
-  USUARIO = admin
-  PASS = 1
-
-
>
-[07/04/2007 15:26:57]
-[Application: ]
-: [Connect]
-
-
>
-[07/04/2007 15:26:57]
-[Application: ]
-[Error] -206 335544569 Dynamic SQL Error
-SQL error code = -206
-Column unknown
-USUARIO
-At line 5, column 9
-
-
>
-[07/04/2007 15:27:04]
-[Application: ]
-[Error] -206 335544569 Dynamic SQL Error
-SQL error code = -206
-Column unknown
-USUARIO
-At line 5, column 9
-
-
>

Base/BaseD7.dof

@@ -200,22 +200,20 @@ Item2=..\..\Output\Cliente
 Count=1
 Item0=.\
 [Exception Log]
-EurekaLog Version=519
-Activate=1
+EurekaLog Version=6006
+Activate=0
 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
+TerminateBtn Operation=2
 Errors Number=32
 Errors Terminate=3
 Email Address=
@@ -242,7 +240,7 @@ HTMLLine11="      %3C/tr%3E"
 HTMLLine12="    %3C/table%3E"
 HTMLLine13="  %3C/body%3E"
 HTMLLine14="%3C/html%3E"
-AutoCrashOperation=1
+AutoCrashOperation=2
 AutoCrashNumber=10
 AutoCrashMinutes=1
 WebURL=
@@ -250,30 +248,55 @@ WebUserID=
 WebPassword=
 WebPort=0
 AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
 Count=0
 EMail Message Line Count=0
 loNoDuplicateErrors=0
 loAppendReproduceText=0
 loDeleteLogAtVersionChange=0
 loAddComputerNameInLogFileName=0
-loSaveModulesSection=1
-loSaveCPUSection=1
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
 soAppStartDate=1
 soAppName=1
 soAppVersionNumber=1
 soAppParameters=1
 soAppCompilationDate=1
+soAppUpTime=1
 soExcDate=1
 soExcAddress=1
-soExcModule=1
+soExcModuleName=1
+soExcModuleVersion=1
 soExcType=1
 soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
 soActCtlsFormClass=1
 soActCtlsFormText=1
 soActCtlsControlClass=1
 soActCtlsControlText=1
 soCmpName=1
-soCmpUser=1
 soCmpTotalMemory=1
 soCmpFreeMemory=1
 soCmpTotalDisk=1
@@ -281,52 +304,70 @@ soCmpFreeDisk=1
 soCmpSysUpTime=1
 soCmpProcessor=1
 soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
 soOSType=1
 soOSBuildN=1
 soOSUpdate=1
 soOSLanguage=1
+soOSCharset=1
 soNetIP=1
 soNetSubmask=1
 soNetGateway=1
 soNetDNS1=1
 soNetDNS2=1
 soNetDHCP=1
+soCustomData=1
 sndShowSendDialog=1
 sndShowSuccessFailureMsg=0
 sndSendEntireLog=0
 sndSendXMLLogCopy=0
-sndSendScreenshot=0
+sndSendScreenshot=1
 sndUseOnlyActiveWindow=0
 sndSendLastHTMLPage=1
 sndSendInSeparatedThread=0
 sndAddDateInFileName=0
-sndCompressAllFiles=0
-edoShowExceptionDialog=1
-edoSendEmailChecked=1
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
 edoAttachScreenshotChecked=1
 edoShowCopyToClipOption=1
 edoShowDetailsButton=1
 edoShowInDetailedMode=0
 edoShowInTopMostMode=0
-edoUseEurekaLogLookAndFeel=1
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
 csoShowDLLs=1
 csoShowBPLs=1
 csoShowBorlandThreads=1
 csoShowWindowsThreads=1
-csoShowProcedureOffset=0
-boActivateCrashDetection=0
+csoDoNotStoreProcNames=0
 boPauseBorlandThreads=0
 boDoNotPauseMainThread=0
 boPauseWindowsThreads=0
 boUseMainModuleOptions=1
 boCopyLogInCaseOfError=1
 boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
 Count mtInformationMsgCaption=1
 mtInformationMsgCaption0="Information."
 Count mtQuestionMsgCaption=1
 mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
 Count mtDialog_Caption=1
-mtDialog_Caption0="Error."
+mtDialog_Caption0="Error occurred"
 Count mtDialog_ErrorMsgCaption=2
 mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
 mtDialog_ErrorMsgCaption1="Please read the following information for further details."
@@ -342,14 +383,18 @@ Count mtDialog_ModulesCaption=1
 mtDialog_ModulesCaption0="Modules"
 Count mtDialog_ModulesHeader=1
 mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler 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
@@ -358,6 +403,8 @@ Count mtDialog_RestartButtonCaption=1
 mtDialog_RestartButtonCaption0="%26Restart"
 Count mtDialog_DetailsButtonCaption=1
 mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
 Count mtDialog_SendMessage=1
 mtDialog_SendMessage0="%26Send this error via Internet"
 Count mtDialog_ScreenshotMessage=1
@@ -366,6 +413,28 @@ Count mtDialog_CopyMessage=1
 mtDialog_CopyMessage0="%26Copy to Clipboard"
 Count mtDialog_SupportMessage=1
 mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
 Count mtLog_AppHeader=1
 mtLog_AppHeader0="Application"
 Count mtLog_AppStartDate=1
@@ -378,18 +447,42 @@ Count mtLog_AppParameters=1
 mtLog_AppParameters0="Parameters"
 Count mtLog_AppCompilationDate=1
 mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
 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_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
 Count mtLog_ExcType=1
 mtLog_ExcType0="Type"
 Count mtLog_ExcMessage=1
 mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
 Count mtLog_ActCtrlsHeader=1
 mtLog_ActCtrlsHeader0="Active Controls"
 Count mtLog_ActCtrlsFormClass=1
@@ -404,8 +497,6 @@ 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
@@ -420,6 +511,12 @@ Count mtLog_CmpProcessor=1
 mtLog_CmpProcessor0="Processor"
 Count mtLog_CmpDisplayMode=1
 mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
 Count mtLog_OSHeader=1
 mtLog_OSHeader0="Operating System"
 Count mtLog_OSType=1
@@ -430,6 +527,8 @@ Count mtLog_OSUpdate=1
 mtLog_OSUpdate0="Update"
 Count mtLog_OSLanguage=1
 mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
 Count mtLog_NetHeader=1
 mtLog_NetHeader0="Network"
 Count mtLog_NetIP=1
@@ -472,18 +571,42 @@ Count mtCallStack_ThreadPriority=1
 mtCallStack_ThreadPriority0="Priority"
 Count mtCallStack_ThreadClass=1
 mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
 Count mtSendDialog_Caption=1
 mtSendDialog_Caption0="Send."
 Count mtSendDialog_Message=1
 mtSendDialog_Message0="Message"
 Count mtSendDialog_Resolving=1
 mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
 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 mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
 Count mtReproduceDialog_Caption=1
 mtReproduceDialog_Caption0="Request"
 Count mtReproduceDialog_Request=1
@@ -504,6 +627,22 @@ Count mtModules_LastModified=1
 mtModules_LastModified0="Modified"
 Count mtModules_Path=1
 mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
 Count mtCPU_Registers=1
 mtCPU_Registers0="Registers"
 Count mtCPU_Stack=1
@@ -514,5 +653,32 @@ Count mtSend_SuccessMsg=1
 mtSend_SuccessMsg0="The message was sent successfully."
 Count mtSend_FailureMsg=1
 mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
 
 

Base/uBizImportesDetalleBase.pas

@@ -13,6 +13,9 @@ const
   VISIBLE_TRUE = 'S';
   VISIBLE_FALSE = 'N';
 
+  VALORADO_TRUE = 'S';
+  VALORADO_FALSE = 'N';
+
   fld_NUMCONCEPTO = 'NUMCONCEPTO';
   fld_POSICION = 'POSICION';
   fld_TIPODETALLE = 'TIPO';
@@ -23,6 +26,7 @@ const
   fld_DESCRIPCION = 'DESCRIPCION';
   fld_PUNTOS = 'PUNTOS';
   fld_IMPORTEPUNTOS = 'IMPORTEPUNTOS';
+  fld_VALORADO = 'VALORADO';
 
 type
   { IMPORTANTE **********************************************************
@@ -53,6 +57,10 @@ type
     ['{6BA5B3BF-2E92-4465-A328-60F90F7EA3D2}']
   end;
 
+  IBizValoradoDetalle = interface(IDAStronglyTypedDataTable)
+    ['{4529F4B3-DD56-4CDC-8E40-84F5BA26E886}']
+  end;
+
   TBizCantidadFieldRules = class(TDAFieldRules)
   protected
     procedure OnChange(Sender: TDACustomField); override;
@@ -83,6 +91,11 @@ type
     procedure OnChange(Sender: TDACustomField); override;
   end;
 
+  TBizValoradoFieldRules = class(TDAFieldRules)
+  protected
+    procedure OnChange(Sender: TDACustomField); override;
+  end;
+
 function DarMaximoNumConcepto(aDataTable : TDADataTable): integer;
 function DarMaximaPosicion(aDataTable : TDADataTable): integer;
 procedure IntercambiarPosiciones(aDataTable : TDADataTable; Pos1, Pos2 : Integer);
@@ -98,6 +111,7 @@ function DarTotalDetalles(aDataTable : TDADataTable; TieneSubtotales : Boolean;
 procedure RellenarImportePuntosEnCapitulo(aDataTable : TDADataTable);
 
 procedure RellenarVisibleEnCapitulo(aDataTable : TDADataTable);
+procedure RellenarValoradoEnCapitulo(aDataTable : TDADataTable);
 
 procedure RecalcularTodo(aDataTable : TDADataTable);
 
@@ -862,6 +876,84 @@ begin
   end;
 end;
 
+procedure RellenarValoradoEnCapitulo(aDataTable : TDADataTable);
+{ Rellena VALORADO de todos los conceptos de un capítulo. El cursor
+  está puesto en la fila que es el título. }
+var
+  ABookmark : Pointer;
+  APosicion : Integer;
+  MaxPos : Integer;
+  TipoField : TDAField;
+  PosicionField : TDAField;
+  ValoradoField : TDAField;
+  ACursor: TCursor;
+  EnEdicion : Boolean;
+  EsValorado : String;
+begin
+  if not Assigned(aDataTable) then
+    raise Exception.Create('Tabla no asignada (RellenarVisibleEnCapitulo)');
+
+  if aDataTable.RecordCount < 1 then
+    Exit;
+
+  PosicionField := aDataTable.FindField(fld_POSICION);
+  if not Assigned(PosicionField) then
+    raise Exception.Create('Campo POSICION no encontrado (RellenarValoradoEnCapitulo)');
+
+  TipoField := aDataTable.FindField(fld_TIPODETALLE);
+  if not Assigned(TipoField) then
+    raise Exception.Create('Campo TIPO no encontrado (RellenarValoradoEnCapitulo)');
+
+  ValoradoField := aDataTable.FindField(fld_VALORADO);
+  if not Assigned(ValoradoField) then
+    raise Exception.Create('Campo VALORADO no encontrado (RellenarValoradoEnCapitulo)');
+
+  ABookmark := aDataTable.GetBookMark;
+  ACursor := Screen.Cursor;
+  Screen.Cursor := crHourGlass;
+  aDataTable.DisableControls;
+
+  EnEdicion := (aDataTable.State in dsEditModes);
+
+  if EnEdicion then
+    aDataTable.Post;
+
+  APosicion := PosicionField.Value + 1; // La posición siguiente a la fila de TITULO
+  EsValorado := ValoradoField.AsString;  // Valor de VALORADO de la fila de TITULO
+
+  try
+    MaxPos := DarMaximaPosicion(aDataTable);
+    while (APosicion <= MaxPos) do
+    begin
+      if aDataTable.Locate(fld_POSICION, APosicion, []) then
+      begin
+        if (TipoField.AsString = TIPODETALLE_CONCEPTO) then
+        begin
+          aDataTable.Edit;
+          aDataTable.DisableEventHandlers;  // Para que no salten otros eventos
+          try
+            ValoradoField.AsString := EsValorado;
+          finally
+            aDataTable.EnableEventHandlers;
+          end;
+          aDataTable.Post;
+          Inc(APosicion);
+        end
+        else
+          break;    // Es una fila de SUBTOTAL o de TITULO
+      end
+      else
+        raise Exception.Create('Hay un hueco en la numeración de posiciones');
+    end;
+  finally
+    aDataTable.GotoBookmark(ABookmark);
+    aDataTable.EnableControls;
+    Screen.Cursor := ACursor;
+    if EnEdicion then
+      aDataTable.Edit;
+  end;
+end;
+
 { TBizCantidadFieldRules }
 
 procedure TBizCantidadFieldRules.OnChange(Sender: TDACustomField);
@@ -1019,6 +1111,28 @@ begin
   end;
 end;
 
+{ TBizValoradoFieldRules }
+
+procedure TBizValoradoFieldRules.OnChange(Sender: TDACustomField);
+var
+  aDetalle : IBizValoradoDetalle;
+  aParche : IParche;
+begin
+  inherited;
+
+  { PARCHE ********************************** }
+  if Supports(DataTable, IParche, aParche) and
+    not (aParche.PuedoLanzarEvento) then
+    Exit;
+
+  if Supports(DataTable, IBizValoradoDetalle, aDetalle) then
+  begin
+    if Assigned(aDetalle.DataTable.FindField(fld_TIPODETALLE)) then
+      if (aDetalle.DataTable.FindField(fld_TIPODETALLE).AsString = TIPODETALLE_TITULO) then
+        RellenarValoradoEnCapitulo(aDetalle.DataTable);
+  end;
+end;
+
 initialization
   RegisterFieldRules('Client.Field.Cantidad', TBizCantidadFieldRules);
   RegisterFieldRules('Client.Field.ImporteUnidad', TBizImporteUnidadFieldRules);
@@ -1028,6 +1142,7 @@ initialization
   RegisterFieldRules('Client.Field.Puntos', TBizPuntosFieldRules);
 
   RegisterFieldRules('Client.Field.Visible', TBizVisibleFieldRules);
+  RegisterFieldRules('Client.Field.Valorado', TBizValoradoFieldRules);
 
 finalization
 

Base/uBizInformesBase.pas

@@ -5,8 +5,8 @@ interface
 type
   IBizInformesAware = interface
   ['{98AD6541-199F-4155-B394-ED0316298759}']
-    procedure Preview;
-    procedure Print;
+    procedure Preview; overload;
+    procedure Print; overload;
   end;
 
 implementation

Base/uDataModuleBase.dfm

@@ -1,8 +1,8 @@
 object dmBase: TdmBase
   OldCreateOrder = True
   OnCreate = DAClientDataModuleCreate
-  Left = 616
-  Top = 230
+  Left = 1377
+  Top = 310
   Height = 368
   Width = 494
   object SmallImages: TPngImageList

Base/uEditorBase.dfm

@@ -1,6 +1,6 @@
 object fEditorBase: TfEditorBase
-  Left = 482
-  Top = 318
+  Left = 587
+  Top = 137
   Width = 670
   Height = 512
   Caption = 'EditorBase'
@@ -77,7 +77,7 @@ object fEditorBase: TfEditorBase
       Caption = 'tbxMain'
       ChevronHint = 'M'#225's botones|'
       DockMode = dmCannotFloatOrChangeDocks
-      DockPos = -23
+      DockPos = -200
       DockRow = 1
       DragHandleStyle = dhNone
       Images = SmallImages

Base/uEditorDBBase.dfm

@@ -1,5 +1,4 @@
 inherited fEditorDBBase: TfEditorDBBase
-  Left = 310
   Caption = 'fEditorDBBase'
   PixelsPerInch = 96
   TextHeight = 13

Base/uEditorDBBase.pas

@@ -57,24 +57,31 @@ begin
   inherited;
   if Assigned(dsDataTable.DataTable) then
   begin
-    if (dsDataTable.DataTable.IsEmpty) or (not ModifiedQuery) then
-      Exit; // No continuar con el refresco
-
-    ABookmark := dsDataTable.DataTable.GetBookMark;
-//    dsDataTable.DataTable.DisableControls;  <- No descomentar
+    if (not ModifiedQuery) then
+       Exit; // No continuar con el refresco
 
     ACursor := Screen.Cursor;
     Screen.Cursor := crHourGlass;
     try
-      dsDataTable.DataTable.Refresh;
-
-      if dsDataTable.DataTable.Dataset.BookmarkValid(ABookmark) then
-        dsDataTable.DataTable.GotoBookmark(ABookmark);
+      if dsDataTable.DataTable.IsEmpty then
+      begin
+        dsDataTable.DataTable.Refresh;
+      end
+      else
+      begin
+        ABookmark := dsDataTable.DataTable.GetBookMark;
+    //    dsDataTable.DataTable.DisableControls;  <- No descomentar
+        dsDataTable.DataTable.Refresh;
+        if dsDataTable.DataTable.Dataset.BookmarkValid(ABookmark) then
+           dsDataTable.DataTable.GotoBookmark(ABookmark);
+        dsDataTable.DataTable.FreeBookmark(ABookmark);
+  //      dsDataTable.DataTable.EnableControls;   <- No descomentar
+      end;
     finally
-      dsDataTable.DataTable.FreeBookmark(ABookmark);
-//      dsDataTable.DataTable.EnableControls;   <- No descomentar
       Screen.Cursor := ACursor;
     end;
+
+
   end;
 end;
 

Base/uEditorDBItem.dfm

@@ -1,6 +1,5 @@
 inherited fEditorDBItem: TfEditorDBItem
-  Left = 482
-  Top = 315
+  Left = 675
   Caption = 'fEditorDBItem'
   PixelsPerInch = 96
   TextHeight = 13

Base/uEditorGrid.dfm

@@ -1,19 +1,20 @@
 inherited fEditorGrid: TfEditorGrid
-  Left = 208
-  Top = 182
-  Width = 893
+  Left = 387
+  Top = 175
+  Width = 714
   Height = 485
   Caption = 'fEditorGrid'
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 885
+    Width = 706
     inherited Image1: TImage
-      Left = 858
+      Left = 679
     end
   end
   inherited TBXDock: TTBXDock
-    Width = 885
+    Width = 706
+    Height = 75
     inherited tbxMain: TTBXToolbar
       DefaultDock = TBXDock
       inherited TBXItem29: TTBXItem
@@ -28,13 +29,21 @@ inherited fEditorGrid: TfEditorGrid
         Action = actDuplicar
         DisplayMode = nbdmImageAndText
       end
+      object TBXItem41: TTBXItem [9]
+        Action = actPrevisualizarDocumento
+        DisplayMode = nbdmImageAndText
+      end
+      object TBXItem42: TTBXItem [13]
+        Action = actImprimirDocumento
+        DisplayMode = nbdmImageAndText
+      end
       inherited TBXItem26: TTBXItem
         Visible = False
       end
       inherited TBXItem25: TTBXItem
         Visible = False
       end
-      object TBXItem35: TTBXItem [17]
+      object TBXItem35: TTBXItem [18]
         Action = actAnchoAuto
       end
       inherited TBXItem28: TTBXItem
@@ -52,21 +61,27 @@ inherited fEditorGrid: TfEditorGrid
       end
     end
     object tbxFiltro: TTBXToolbar
-      Left = 465
-      Top = 23
+      Left = 0
+      Top = 49
       Align = alRight
-      CloseButton = False
       DefaultDock = TBXDock
       DockMode = dmCannotFloatOrChangeDocks
-      DockPos = 392
-      DockRow = 1
-      DragHandleStyle = dhNone
+      DockPos = -12
+      DockRow = 2
       Images = SmallImages
       ParentShowHint = False
-      Resizable = False
       ShowHint = True
-      ShrinkMode = tbsmNone
       TabOrder = 2
+      object lblAno: TTBXLabelItem
+        Caption = 'A'#241'o:'
+        Visible = False
+      end
+      object cbxListaAnos: TTBXComboBoxItem
+        Visible = False
+      end
+      object sepAno: TTBXSeparatorItem
+        Visible = False
+      end
       object TBXLabelItem1: TTBXLabelItem
         Caption = 'Filtrar:'
       end
@@ -91,7 +106,7 @@ inherited fEditorGrid: TfEditorGrid
   end
   inherited StatusBar: TStatusBar
     Top = 432
-    Width = 885
+    Width = 706
   end
   inherited EditorActionList: TActionList
     Left = 72
@@ -109,11 +124,27 @@ inherited fEditorGrid: TfEditorGrid
       OnExecute = actConfPaginaExecute
     end
     inherited actPrevisualizar: TAction
+      Caption = 'Previsualizar &lista actual'
       OnExecute = actPrevisualizarExecute
     end
+    object actPrevisualizarDocumento: TAction [7]
+      Category = 'Archivo'
+      Caption = '&Previsualizar Documento'
+      ImageIndex = 6
+      OnExecute = actPrevisualizarDocumentoExecute
+      OnUpdate = actPrevisualizarDocumentoUpdate
+    end
     inherited actImprimir: TAction
+      Caption = 'Imprimir &lista actual'
       OnExecute = actImprimirExecute
     end
+    object actImprimirDocumento: TAction [11]
+      Category = 'Archivo'
+      Caption = '&Imprimir documento'
+      ImageIndex = 7
+      OnExecute = actImprimirDocumentoExecute
+      OnUpdate = actImprimirDocumentoUpdate
+    end
     inherited actCerrar: TAction
       Enabled = False
     end
@@ -652,6 +683,8 @@ inherited fEditorGrid: TfEditorGrid
         Name = 'PngImage21'
         Background = clWindow
       end>
+    Left = 323
+    Top = 120
     Bitmap = {}
   end
   inherited LargeImages: TPngImageList
@@ -1422,6 +1455,8 @@ inherited fEditorGrid: TfEditorGrid
         Name = 'PngImage20'
         Background = clWindow
       end>
+    Left = 443
+    Top = 128
     Bitmap = {}
   end
   inherited JvFormStorage: TJvFormStorage

Base/uEditorGrid.pas

@@ -41,11 +41,16 @@ type
     TBXItem35: TTBXItem;
     actFiltrar: TAction;
     TBXItem37: TTBXItem;
+    lblAno: TTBXLabelItem;
+    cbxListaAnos: TTBXComboBoxItem;
+    sepAno: TTBXSeparatorItem;
+    actPrevisualizarDocumento: TAction;
+    TBXItem41: TTBXItem;
+    actImprimirDocumento: TAction;
+    TBXItem42: TTBXItem;
     procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
     procedure FormShow(Sender: TObject);
-    procedure actPrevisualizarExecute(Sender: TObject);
     procedure actConfPaginaExecute(Sender: TObject);
-    procedure actImprimirExecute(Sender: TObject);
     procedure actQuitarFiltroExecute(Sender: TObject);
     procedure actModificarExecute(Sender: TObject);
     procedure actEliminarExecute(Sender: TObject);
@@ -57,22 +62,43 @@ type
     procedure actAnchoAutoExecute(Sender: TObject);
     procedure actFiltrarExecute(Sender: TObject);
     procedure actFiltrarUpdate(Sender: TObject);
+
+    procedure actPrevisualizarExecute(Sender: TObject);
+    procedure actPrevisualizarDocumentoExecute(Sender: TObject);
+    procedure actPrevisualizarDocumentoUpdate(Sender: TObject);
+
+    procedure actImprimirExecute(Sender: TObject);
+    procedure actImprimirDocumentoExecute(Sender: TObject);
+    procedure actImprimirDocumentoUpdate(Sender: TObject);
+
   private
+    FListaAnos: TStringList;
     FViewGrid : IViewGrid;
+    FWhereDataTable: WideString;
+
+    function GetListaAnos: TStringList;
+    procedure SetListaAnos(const Value: TStringList);
+
+    function GetWhereDataTable: String;
+    procedure SetWhereDataTable(const Value: String);
+
   protected
     procedure SetViewGrid(const Value : IViewGrid); virtual;
     function GetViewGrid: IViewGrid;
+
   public
+    property ListaAnos: TStringList read GetListaAnos write SetListaAnos;
+    property WhereDataTable: String read GetWhereDataTable write SetWhereDataTable;
     property ViewGrid: IViewGrid read GetViewGrid write SetViewGrid;
     constructor Create(AOwner : TComponent); override;
-    
     destructor Destroy; override;
+
   end;
 
 implementation
 
 uses
-  uDataModuleBase, uCustomEditor, cxGridTableView;
+  uDataModuleBase, uCustomEditor, cxGridTableView, uBizInformesBase;
 
 {$R *.dfm}
 
@@ -81,7 +107,11 @@ uses
 }
 destructor TfEditorGrid.Destroy;
 begin
+  FWhereDataTable := '';
   FViewGrid := NIL;
+  if Assigned(FListaAnos) then
+     FlistaAnos.Free;
+
   inherited;
 end;
 
@@ -109,6 +139,8 @@ end;
 procedure TfEditorGrid.FormShow(Sender: TObject);
 begin
   inherited;
+  cbxListaAnos.ItemIndex := 0;  //OJO EL ORDEN PORQUE EL ShowEmbedded hace el open de la tabla
+
   if Assigned(ViewGrid) then
      ViewGrid.ShowEmbedded(Self);
 end;
@@ -239,6 +271,103 @@ begin
     (Sender as TAction).Checked := ViewGrid.EstanFiltrosVisible
 end;
 
+function TfEditorGrid.GetListaAnos: TStringList;
+begin
+  Result := FListaAnos;
+end;
+
+function TfEditorGrid.GetWhereDataTable: String;
+begin
+  Result := FWhereDataTable;
+end;
+
+procedure TfEditorGrid.SetListaAnos(const Value: TStringList);
+var
+  i: Integer;
+  AStringAnterior: String;
+
+begin
+  AStringAnterior := '';
+  if Assigned(FListaAnos) then
+  begin
+     AStringAnterior := FListaAnos.ValueFromIndex[cbxListaAnos.ItemIndex];
+     FListaAnos.Free;
+  end;
+
+  //Se asigna el nuevo TStringList
+  FListaAnos := Value;
+
+  if Assigned(FListaAnos) then
+  begin
+    cbxListaAnos.Strings.BeginUpdate;
+    cbxListaAnos.Strings.Clear;
+    for i := 0 to FListaAnos.Count - 1 do
+        cbxListaAnos.Strings.Append(FListaAnos.Names[i]);
+
+    //Se posiciona en el elemento que habia anteriormente
+    if Length(AStringAnterior) > 0 then
+    begin
+      if FListaAnos.IndexOfName(AStringAnterior) <> -1 then
+         cbxListaAnos.ItemIndex := FListaAnos.IndexOfName(AStringAnterior)
+      else
+         cbxListaAnos.ItemIndex := 0;
+    end;
+
+    cbxListaAnos.Strings.EndUpdate;
+  end;
+end;
+
+procedure TfEditorGrid.SetWhereDataTable(const Value: String);
+begin
+  FWhereDataTable := Value;
+end;
+
+procedure TfEditorGrid.actPrevisualizarDocumentoExecute(Sender: TObject);
+var
+  aInf : IBizInformesAware;
+
+begin
+  inherited;
+  ViewGrid.SyncFocusedRecordsFromGrid;
+
+  if Assigned(dsDataTable.DataTable) and
+    Supports(dsDataTable.DataTable, IBizInformesAware, aInf) then
+    aInf.Preview;
+end;
+
+procedure TfEditorGrid.actPrevisualizarDocumentoUpdate(Sender: TObject);
+begin
+  inherited;
+  if Assigned(dsDataTable.DataTable) then
+    (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty)
+      and not (dsDataTable.DataTable.State = dsInsert)
+  else
+    (Sender as TAction).Enabled := False;
+end;
+
+procedure TfEditorGrid.actImprimirDocumentoExecute(Sender: TObject);
+var
+  aInf : IBizInformesAware;
+
+begin
+  inherited;
+  ViewGrid.SyncFocusedRecordsFromGrid;
+
+  if Assigned(dsDataTable.DataTable) and
+    Supports(dsDataTable.DataTable, IBizInformesAware, aInf) then
+    aInf.Print;
+end;
+
+procedure TfEditorGrid.actImprimirDocumentoUpdate(Sender: TObject);
+begin
+  inherited;
+  if Assigned(dsDataTable.DataTable) then
+    (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty)
+      and not (dsDataTable.DataTable.State = dsInsert)
+  else
+    (Sender as TAction).Enabled := False;
+end;
+
 initialization
   RegisterClass(TfEditorGrid);
 

Base/uEditorPreview.dfm

@@ -1,6 +1,6 @@
 inherited fEditorPreview: TfEditorPreview
-  Left = 248
-  Top = 277
+  Left = 249
+  Top = 278
   Caption = 'Previsualizar'
   WindowState = wsMaximized
   OnDestroy = FormDestroy

Base/uViewBarraSeleccion.dfm

@@ -1,5 +1,5 @@
 inherited frViewBarraSeleccion: TfrViewBarraSeleccion
-  Width = 439
+  Width = 443
   Height = 19
   Align = alBottom
   AutoScroll = False
@@ -7,14 +7,14 @@ inherited frViewBarraSeleccion: TfrViewBarraSeleccion
   object pnlSeleccion: TPanel
     Left = 0
     Top = -18
-    Width = 439
+    Width = 443
     Height = 37
     Align = alBottom
     BevelOuter = bvNone
     ParentBackground = True
     TabOrder = 0
     DesignSize = (
-      439
+      443
       37)
     object bSeleccionar: TButton
       Left = 264

Base/uViewContenido.dfm

@@ -9,8 +9,8 @@ inherited frViewContenido: TfrViewContenido
     Height = 245
     Align = alClient
     TabOrder = 0
-    LookAndFeel.Kind = lfOffice11
-    LookAndFeel.NativeStyle = True
+    LookAndFeel.Kind = lfFlat
+    LookAndFeel.NativeStyle = False
     object cxGridView: TcxGridDBTableView
       NavigatorButtons.ConfirmDelete = False
       FilterBox.Visible = fvNever

Base/uViewDetallesFamilias.dfm

@@ -1,8 +1,6 @@
 inherited frViewDetallesFamilias: TfrViewDetallesFamilias
-  Width = 638
   inherited cxGrid: TcxGrid
     Top = 22
-    Width = 638
     Height = 248
     inherited cxGridView: TcxGridDBTableView
       OnEditing = cxGridViewEditing
@@ -117,10 +115,74 @@ inherited frViewDetallesFamilias: TfrViewDetallesFamilias
         Properties.ValueChecked = 'S'
         Properties.ValueUnchecked = 'N'
       end
+      object cxGridViewVALORADO: TcxGridDBColumn
+        Caption = 'Valorado'
+        DataBinding.FieldName = 'VALORADO'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.DisplayChecked = 'S'
+        Properties.DisplayUnchecked = 'N'
+        Properties.Glyph.Data = {
+          76060000424D7606000000000000360000002800000021000000100000000100
+          18000000000040060000120B0000120B00000000000000000000FFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDBDBDB9393934A4A4A4A4A4A4949494A4A
+          4AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB5
+          D6EC2184C6084263084263084263084263FFFFFFFFFFFFFFFFFFFFFFFF00FFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF929292E9E9E9FCFCFCCECECE93
+          93934A4A4ADBDBDBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFF2184C69CE7FFBDFFFF52C6F72184C6084263B5D6ECFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDBDBDB939393494949
+          4949494A4A4A494949494949484848DBDBDBFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFB5D6EC2184C6084263084263084263084263084263084263B5
+          D6ECFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF939393E9E9
+          E9FCFCFCCECECE9393934A4A4ACECECE939393494949FFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFF2184C69CE7FFBDFFFF52C6F72184C608426352C6F7
+          2184C6084263FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDB
+          DBDB7373734949494A4A4A4A4A4A4A4A4A484848494949DBDBDBFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB5D6EC476F870842630842630842630842
+          63084263084263B5D6ECFFFFFF00FFFFFFB3B3B3464646454545464646454545
+          464646939393E8E8E8FCFCFCCDCDCD939393494949CECECE9393934A4A4AFFFF
+          FFCAB4A66947316947316947316947316947312184C69CE7FFBDFFFF52C6F721
+          84C608426352C6F72184C6084263FFFFFF00FFFFFFB2B2B2F2F2F2B1B1B1ACAC
+          ACA7A7A7A2A2A29D9D9D93939393939393939393939393939393939393939345
+          4545FFFFFFCAB4A6CDFFCD30C8602BC35626BE4D21B9431CB4392184C62184C6
+          2184C62184C62184C62184C62184C6694731FFFFFF00FFFFFFB3B3B3B1B1B1B2
+          B2B2B1B1B1ACACACFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE8F8F8F8B8B8B878787
+          838383454545FFFFFFCAB4A630C86030C86030C8602BC356FEFEFDFEFEFDFEFE
+          FDFEFEFDFEFEFD0EA61D09A113049C09009800694731FFFFFF00FFFFFFB4B4B4
+          B1B1B1B1B1B1B2B2B2FDFDFDFDFDFDADADAD878787878787FDFDFDFDFDFD9090
+          908B8B8B868686464646FFFFFFCAB4A630C86030C86030C860FEFEFDFEFEFD00
+          C800009D00009D00FEFEFDFEFEFD0EA61D09A113049C09694731FFFFFF00FFFF
+          FFB3B3B3B1B1B1B2B2B2B1B1B1FEFEFEFEFEFEACACACACACAC878787FEFEFEFE
+          FEFE9595959090908B8B8B464646FFFFFFCAB4A630C86030C86030C860FEFEFD
+          FEFEFD00C80000C800009D00FEFEFDFEFEFD13AB260EA61D09A113694731FFFF
+          FF00FFFFFFB2B2B2F2F2F2F2F2F2B1B1B1B2B2B2FDFDFDFEFEFEFEFEFEFEFEFE
+          FDFDFD9C9C9C999999F3F3F3F2F2F2454545FFFFFFCAB4A6CDFFCDCDFFCD30C8
+          6030C860FEFEFDFEFEFDFEFEFDFEFEFDFEFEFD1CB43918B030CDFFCDCDFFCD69
+          4731FFFFFF00FFFFFFB2B2B2F2F2F2B1B1B1B0B0B0B0B0B0B1B1B1B2B2B2B0B0
+          B0AEAEAEAAAAAAA5A5A59D9D9D999999F2F2F2464646FFFFFFCAB4A6CDFFCD30
+          C86030C86030C86030C86030C86030C8602DC55B29C15224BC481CB43918B030
+          CDFFCD694731FFFFFF00FFFFFFB2B2B2B2B2B2B3B3B3B2B2B2B2B2B2B2B2B2B3
+          B3B3B3B3B3B3B3B3B2B2B2B2B2B2B3B3B3B3B3B3B2B2B2B3B3B3FFFFFFCAB4A6
+          CAB4A6CAB4A6CAB4A6CAB4A6CAB4A6CAB4A6CAB4A6CAB4A6CAB4A6CAB4A6CAB4
+          A6CAB4A6CAB4A6CAB4A6FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00}
+        Properties.GlyphCount = 2
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        Properties.ValueChecked = 'S'
+        Properties.ValueUnchecked = 'N'
+      end
     end
   end
   inherited ToolBar1: TToolBar
-    Width = 638
     Height = 22
     ButtonWidth = 105
     object ToolButton1: TToolButton
@@ -339,29 +401,34 @@ inherited frViewDetallesFamilias: TfrViewDetallesFamilias
     Left = 264
     Top = 80
     object cxStyle_IMPORTETOTAL: TcxStyle
-      AssignedValues = [svColor, svTextColor]
-      Color = clInactiveCaptionText
-      TextColor = clHotLight
+      AssignedValues = [svColor, svFont, svTextColor]
+      Color = 16644082
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clBlack
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      TextColor = clBlack
     end
     object cxStyle_SUBTOTAL: TcxStyle
       AssignedValues = [svColor, svFont, svTextColor]
-      Color = clInactiveCaptionText
+      Color = 16644082
       Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
+      Font.Color = clBlack
       Font.Height = -11
       Font.Name = 'MS Sans Serif'
       Font.Style = [fsBold]
-      TextColor = clHotLight
+      TextColor = clBlack
     end
     object cxStyle_TITULO: TcxStyle
       AssignedValues = [svColor, svFont, svTextColor]
-      Color = clInactiveCaption
+      Color = 16644082
       Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
+      Font.Color = clBlack
       Font.Height = -11
       Font.Name = 'MS Sans Serif'
       Font.Style = [fsBold]
-      TextColor = clHighlightText
+      TextColor = clBlack
     end
   end
   object TipoPngImageList: TPngImageList

Base/uViewDetallesFamilias.pas

@@ -42,6 +42,7 @@ type
     ToolButton8: TToolButton;
     ToolButton9: TToolButton;
     actRecalcular: TAction;
+    cxGridViewVALORADO: TcxGridDBColumn;
     procedure cxGridViewEditing(Sender: TcxCustomGridTableView;
       AItem: TcxCustomGridTableItem; var AAllow: Boolean);
     procedure cxGridViewTIPOStylesGetContentStyle(
@@ -64,7 +65,8 @@ procedure TfrViewDetallesFamilias.cxGridViewEditing(
   Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem;
   var AAllow: Boolean);
 var
-  IndiceCol : Integer;
+  IndiceCol, IndiceCol2 : Integer;
+
 begin
   IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_DESCRIPCION).Index;
   if AItem.Index <= IndiceCol then
@@ -77,10 +79,11 @@ begin
       if (UpperCase(AItem.GridView.Items[IndiceCol].EditValue) = TIPODETALLE_TITULO) then
       begin
         IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_VISIBLE).Index;
-        if AItem.Index = IndiceCol then
+        IndiceCol2 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_VALORADO).Index;
+        if ((AItem.Index = IndiceCol) or (AItem.Index = IndiceCol2)) then
           AAllow := True
         else
-          AAllow := False
+          AAllow := False;
       end;
     end;
   end;

Base/uViewGrid.dfm

@@ -6,11 +6,11 @@ inherited frViewGrid: TfrViewGrid
     Left = 0
     Top = 102
     Width = 443
-    Height = 168
+    Height = 142
     Align = alClient
     TabOrder = 0
-    LookAndFeel.Kind = lfOffice11
-    LookAndFeel.NativeStyle = True
+    LookAndFeel.Kind = lfFlat
+    LookAndFeel.NativeStyle = False
     object cxGridView: TcxGridDBTableView
       OnDblClick = cxGridViewDblClick
       NavigatorButtons.ConfirmDelete = False
@@ -84,6 +84,41 @@ inherited frViewGrid: TfrViewGrid
       end
     end
   end
+  object pnlAgrupaciones: TTBXDockablePanel
+    Left = 0
+    Top = 244
+    MinClientHeight = 8
+    Align = alBottom
+    Caption = 'pnlAgrupaciones'
+    DockedHeight = 26
+    FloatingWidth = 128
+    FloatingHeight = 26
+    SupportedDocks = [dkStandardDock, dkMultiDock]
+    TabOrder = 2
+    Visible = False
+    object TBXAlignmentPanel1: TTBXAlignmentPanel
+      Left = 0
+      Top = 0
+      Width = 443
+      Height = 26
+      Align = alTop
+      Margins.Left = 10
+      TabOrder = 0
+      object TBXToolbar1: TTBXToolbar
+        Left = 10
+        Top = 0
+        Width = 433
+        Height = 26
+        Align = alTop
+        AutoResize = False
+        Caption = 'TBXToolbar1'
+        TabOrder = 0
+        object TBXItem1: TTBXItem
+          Action = actQuitarAgrupaciones
+        end
+      end
+    end
+  end
   object DADataSource: TDADataSource
     Left = 368
     Top = 96
@@ -114,7 +149,7 @@ inherited frViewGrid: TfrViewGrid
       PrinterPage.PageSize.Y = 297000
       PrinterPage._dxMeasurementUnits_ = 0
       PrinterPage._dxLastMU_ = 2
-      ReportDocument.CreationDate = 39213.688278530090000000
+      ReportDocument.CreationDate = 43647.535044629630000000
       OptionsCharts.Transparent = True
       OptionsFormatting.SuppressBackgroundBitmaps = True
       OptionsOnEveryPage.Caption = False
@@ -140,7 +175,7 @@ inherited frViewGrid: TfrViewGrid
     end
     object cxStyleOdd: TcxStyle
       AssignedValues = [svColor]
-      Color = clInactiveCaptionText
+      Color = 15724785
     end
     object cxStyleSelection: TcxStyle
       AssignedValues = [svColor, svTextColor]
@@ -148,4 +183,11 @@ inherited frViewGrid: TfrViewGrid
       TextColor = clHighlightText
     end
   end
+  object ActionList2: TActionList
+    Left = 400
+    Top = 360
+    object actQuitarAgrupaciones: TAction
+      Caption = 'Quitar agrupaciones'
+    end
+  end
 end

Base/uViewGrid.pas

@@ -11,7 +11,8 @@ uses
   DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
   dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
   dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg,
-  cxIntlPrintSys3, dxPSPrvwAdv, uViewFiltroBase;
+  cxIntlPrintSys3, dxPSPrvwAdv, uViewFiltroBase, TB2Item, TBX, TB2Toolbar,
+  TBXDkPanels, TB2Dock;
 
 type
   IViewGrid = interface(IViewBase)
@@ -59,6 +60,12 @@ type
     cxStyleOdd: TcxStyle;
     cxStyleSelection: TcxStyle;
     frViewFiltroBase1: TfrViewFiltroBase;
+    pnlAgrupaciones: TTBXDockablePanel;
+    TBXAlignmentPanel1: TTBXAlignmentPanel;
+    TBXToolbar1: TTBXToolbar;
+    TBXItem1: TTBXItem;
+    ActionList2: TActionList;
+    actQuitarAgrupaciones: TAction;
     procedure cxGridViewDblClick(Sender: TObject);
     procedure cxGridViewDataControllerSortingChanged(Sender: TObject);
     procedure SelectionChanged(Sender: TcxCustomGridTableView); virtual; abstract;

Base/uViewObservaciones.dfm

@@ -3,7 +3,7 @@ inherited frViewObservaciones: TfrViewObservaciones
   Constraints.MinWidth = 300
   DesignSize = (
     300
-    226)
+    222)
   object Label5: TLabel
     Left = 8
     Top = 8

Base/uViewPlazoEntrega.dfm

@@ -3,7 +3,7 @@ inherited frViewPlazoEntrega: TfrViewPlazoEntrega
   Constraints.MinWidth = 300
   DesignSize = (
     300
-    240)
+    222)
   object Label5: TLabel
     Left = 8
     Top = 8

Base/uViewTotales.dfm

@@ -122,6 +122,7 @@ inherited frViewTotales: TfrViewTotales
         Style.Font.Style = []
         Style.LookAndFeel.NativeStyle = True
         Style.TextColor = clWindowText
+        Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.NativeStyle = True
         StyleDisabled.TextColor = clWindowText
         StyleFocused.LookAndFeel.NativeStyle = True
@@ -149,6 +150,7 @@ inherited frViewTotales: TfrViewTotales
         Style.Font.Style = []
         Style.LookAndFeel.NativeStyle = True
         Style.TextColor = clWindowText
+        Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.NativeStyle = True
         StyleDisabled.TextColor = clWindowText
         StyleFocused.LookAndFeel.NativeStyle = True
@@ -176,6 +178,7 @@ inherited frViewTotales: TfrViewTotales
         Style.Font.Style = []
         Style.LookAndFeel.NativeStyle = True
         Style.TextColor = clWindowText
+        Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.NativeStyle = True
         StyleDisabled.TextColor = clWindowText
         StyleFocused.LookAndFeel.NativeStyle = True
@@ -204,6 +207,7 @@ inherited frViewTotales: TfrViewTotales
         Style.LookAndFeel.NativeStyle = True
         Style.TextColor = clActiveCaption
         Style.TextStyle = [fsBold]
+        Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.NativeStyle = True
         StyleDisabled.TextColor = clWindowText
         StyleFocused.LookAndFeel.NativeStyle = True
@@ -230,6 +234,7 @@ inherited frViewTotales: TfrViewTotales
         Style.Font.Style = []
         Style.LookAndFeel.NativeStyle = True
         Style.TextColor = clWindowText
+        Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.NativeStyle = True
         StyleFocused.LookAndFeel.NativeStyle = True
         StyleHot.LookAndFeel.NativeStyle = True
@@ -256,6 +261,7 @@ inherited frViewTotales: TfrViewTotales
         Style.Font.Style = []
         Style.LookAndFeel.NativeStyle = True
         Style.TextColor = clWindowText
+        Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.NativeStyle = True
         StyleFocused.LookAndFeel.NativeStyle = True
         StyleHot.LookAndFeel.NativeStyle = True

Cliente/FactuGES.cfg

@@ -40,6 +40,7 @@
 -O"c:\archivos de programa\borland\delphi7\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"
 -I"c:\archivos de programa\borland\delphi7\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"
 -R"c:\archivos de programa\borland\delphi7\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"
+-DEUREKALOG;EUREKALOG_VER6
 -LUPluginSDK_D7R;GUISDK_D7;BaseD7;Configuracion;Usuarios
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE

Cliente/FactuGES.dof

@@ -96,7 +96,7 @@ PackageDLLOutputDir=
 PackageDCPOutputDir=
 SearchPath=$(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
 Packages=PluginSDK_D7R;GUISDK_D7;BaseD7;Configuracion;Usuarios
-Conditionals=
+Conditionals=EUREKALOG;EUREKALOG_VER6
 DebugSourceDirs=
 UsePackages=1
 [Parameters]
@@ -113,8 +113,8 @@ RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=1
-MinorVer=5
-Release=0
+MinorVer=6
+Release=6
 Build=0
 Debug=0
 PreRelease=0
@@ -126,28 +126,28 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Rodax Software S.L.
 FileDescription=
-FileVersion=1.5.0.0
+FileVersion=1.6.6.0
 InternalName=FactuGES
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=FactuGES
-ProductVersion=1.0.0.0
+ProductVersion=1.6.6.0
 Comments=
 [Excluded Packages]
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxTreeListVCLD7.bpl=ExpressQuantumTreeList 4 (VCL Edition) by Developer Express Inc.
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxThemeD7.bpl=Express XP Theme Manager by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxExportVCLD7.bpl=Express Cross Platform Export Library (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxThemeD7.bpl=Express XP Theme Manager by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxEditorsVCLD7.bpl=ExpressEditors Library 5 (VCL Edition) by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxDataD7.bpl=ExpressDataController by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxExtEditorsVCLD7.bpl=ExpressExtendedEditors Library 5 (VCL Edition) by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxGridVCLD7.bpl=ExpressQuantumGrid 5 (VCL Edition) by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxPageControlVCLD7.bpl=Express Cross Platform PageControl (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxExportVCLD7.bpl=Express Cross Platform Export Library (VCL Edition) by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxSchedulerVCLD7.bpl=ExpressScheduler 2 (VCL Edition) by Developer Express Inc.
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxsbD7.bpl=ExpressSideBar by Developer Express Inc.
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxComnD7.bpl=ExpressCommonLibrary by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxTreeListVCLD7.bpl=ExpressQuantumTreeList 4 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxVerticalGridVCLD7.bpl=ExpressVerticalGrid (VCL Edition) by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarD7.bpl=ExpressBars by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxComnD7.bpl=ExpressCommonLibrary by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarDBNavD7.bpl=ExpressBars DBNavigator by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarExtDBItemsD7.bpl=ExpressBars extended DB items by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarExtItemsD7.bpl=ExpressBars extended items by Developer Express Inc.
@@ -156,14 +156,25 @@ C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxLayoutControlD7.bpl=Expre
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxNavBarD7.bpl=ExpressNavBar by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxGDIPlusD7.bpl=ExpressGDI+ Library by Developer Express Inc.
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc.
-C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxVerticalGridVCLD7.bpl=ExpressVerticalGrid (VCL Edition) by Developer Express Inc.
-C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\ComparerD7.bpl=Database Comparer VCL
-C:\Archivos de programa\Clever Components\Database Comparer\Delphi 7\Lib\ComparerBdeD7.bpl=Database Comparer VCL BDE
-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:\WINDOWS\system32\dclShX_Namespace_V3D7.bpl=(untitled)
-C:\WINDOWS\system32\vclShX_Namespace_v3D7.bpl=(untitled)
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxsbD7.bpl=ExpressSideBar by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\VirtualTreesD7.bpl=Virtual Treeview runtime package
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\EPCOTAUtils70.bpl=EPC Open Tools API utilities
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\Jcl70.bpl=JEDI Code Library RTL package
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JclVcl70.bpl=JEDI Code Library VCL package
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\PluginSDK_D7R.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxADO7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsADO7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsDB7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fs7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxDB7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frx7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxBDE7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsBDE7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxDBX7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxe7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxIBX7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsIBX7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxTee7.bpl=(untitled)
 [HistoryLists\hlDebugSourcePath]
 Count=1
 Item0=D:\Proyectos\Componentes\GUISDK\Sources\;D:\Proyectos\Componentes\PluginSDK\Source\;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Cliente;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Reglas
@@ -172,8 +183,8 @@ Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
 Count=16
-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
+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
@@ -193,8 +204,8 @@ Count=1
 Item0=.\
 [HistoryLists\hlOutputDirectorry]
 Count=2
-Item0=..\Output\Cliente
-Item1=..\Output\Servidor
+Item0=..\Output\Servidor
+Item1=..\Output\Cliente
 [HistoryLists\hlBPLOutput]
 Count=3
 Item0=..\..\..\Output\Cliente
@@ -204,22 +215,20 @@ Item2=..\..\Output\Cliente
 Count=1
 Item0=.\
 [Exception Log]
-EurekaLog Version=519
-Activate=0
+EurekaLog Version=6006
+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
+TerminateBtn Operation=2
 Errors Number=32
 Errors Terminate=3
 Email Address=
@@ -246,7 +255,7 @@ HTMLLine11="      %3C/tr%3E"
 HTMLLine12="    %3C/table%3E"
 HTMLLine13="  %3C/body%3E"
 HTMLLine14="%3C/html%3E"
-AutoCrashOperation=1
+AutoCrashOperation=2
 AutoCrashNumber=10
 AutoCrashMinutes=1
 WebURL=
@@ -254,30 +263,55 @@ WebUserID=
 WebPassword=
 WebPort=0
 AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
 Count=0
 EMail Message Line Count=0
 loNoDuplicateErrors=0
 loAppendReproduceText=0
 loDeleteLogAtVersionChange=0
 loAddComputerNameInLogFileName=0
-loSaveModulesSection=1
-loSaveCPUSection=1
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
 soAppStartDate=1
 soAppName=1
 soAppVersionNumber=1
 soAppParameters=1
 soAppCompilationDate=1
+soAppUpTime=1
 soExcDate=1
 soExcAddress=1
-soExcModule=1
+soExcModuleName=1
+soExcModuleVersion=1
 soExcType=1
 soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
 soActCtlsFormClass=1
 soActCtlsFormText=1
 soActCtlsControlClass=1
 soActCtlsControlText=1
 soCmpName=1
-soCmpUser=1
 soCmpTotalMemory=1
 soCmpFreeMemory=1
 soCmpTotalDisk=1
@@ -285,52 +319,70 @@ soCmpFreeDisk=1
 soCmpSysUpTime=1
 soCmpProcessor=1
 soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
 soOSType=1
 soOSBuildN=1
 soOSUpdate=1
 soOSLanguage=1
+soOSCharset=1
 soNetIP=1
 soNetSubmask=1
 soNetGateway=1
 soNetDNS1=1
 soNetDNS2=1
 soNetDHCP=1
+soCustomData=1
 sndShowSendDialog=1
 sndShowSuccessFailureMsg=0
 sndSendEntireLog=0
 sndSendXMLLogCopy=0
-sndSendScreenshot=0
+sndSendScreenshot=1
 sndUseOnlyActiveWindow=0
 sndSendLastHTMLPage=1
 sndSendInSeparatedThread=0
 sndAddDateInFileName=0
-sndCompressAllFiles=0
-edoShowExceptionDialog=1
-edoSendEmailChecked=1
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
 edoAttachScreenshotChecked=1
 edoShowCopyToClipOption=1
 edoShowDetailsButton=1
 edoShowInDetailedMode=0
 edoShowInTopMostMode=0
-edoUseEurekaLogLookAndFeel=1
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
 csoShowDLLs=1
 csoShowBPLs=1
 csoShowBorlandThreads=1
 csoShowWindowsThreads=1
-csoShowProcedureOffset=0
-boActivateCrashDetection=0
+csoDoNotStoreProcNames=0
 boPauseBorlandThreads=0
 boDoNotPauseMainThread=0
 boPauseWindowsThreads=0
 boUseMainModuleOptions=1
 boCopyLogInCaseOfError=1
 boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
 Count mtInformationMsgCaption=1
 mtInformationMsgCaption0="Information."
 Count mtQuestionMsgCaption=1
 mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
 Count mtDialog_Caption=1
-mtDialog_Caption0="Error."
+mtDialog_Caption0="Error occurred"
 Count mtDialog_ErrorMsgCaption=2
 mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
 mtDialog_ErrorMsgCaption1="Please read the following information for further details."
@@ -346,14 +398,18 @@ Count mtDialog_ModulesCaption=1
 mtDialog_ModulesCaption0="Modules"
 Count mtDialog_ModulesHeader=1
 mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler 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
@@ -362,6 +418,8 @@ Count mtDialog_RestartButtonCaption=1
 mtDialog_RestartButtonCaption0="%26Restart"
 Count mtDialog_DetailsButtonCaption=1
 mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
 Count mtDialog_SendMessage=1
 mtDialog_SendMessage0="%26Send this error via Internet"
 Count mtDialog_ScreenshotMessage=1
@@ -370,6 +428,28 @@ Count mtDialog_CopyMessage=1
 mtDialog_CopyMessage0="%26Copy to Clipboard"
 Count mtDialog_SupportMessage=1
 mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
 Count mtLog_AppHeader=1
 mtLog_AppHeader0="Application"
 Count mtLog_AppStartDate=1
@@ -382,18 +462,42 @@ Count mtLog_AppParameters=1
 mtLog_AppParameters0="Parameters"
 Count mtLog_AppCompilationDate=1
 mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
 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_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
 Count mtLog_ExcType=1
 mtLog_ExcType0="Type"
 Count mtLog_ExcMessage=1
 mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
 Count mtLog_ActCtrlsHeader=1
 mtLog_ActCtrlsHeader0="Active Controls"
 Count mtLog_ActCtrlsFormClass=1
@@ -408,8 +512,6 @@ 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
@@ -424,6 +526,12 @@ Count mtLog_CmpProcessor=1
 mtLog_CmpProcessor0="Processor"
 Count mtLog_CmpDisplayMode=1
 mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
 Count mtLog_OSHeader=1
 mtLog_OSHeader0="Operating System"
 Count mtLog_OSType=1
@@ -434,6 +542,8 @@ Count mtLog_OSUpdate=1
 mtLog_OSUpdate0="Update"
 Count mtLog_OSLanguage=1
 mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
 Count mtLog_NetHeader=1
 mtLog_NetHeader0="Network"
 Count mtLog_NetIP=1
@@ -476,18 +586,42 @@ Count mtCallStack_ThreadPriority=1
 mtCallStack_ThreadPriority0="Priority"
 Count mtCallStack_ThreadClass=1
 mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
 Count mtSendDialog_Caption=1
 mtSendDialog_Caption0="Send."
 Count mtSendDialog_Message=1
 mtSendDialog_Message0="Message"
 Count mtSendDialog_Resolving=1
 mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
 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 mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
 Count mtReproduceDialog_Caption=1
 mtReproduceDialog_Caption0="Request"
 Count mtReproduceDialog_Request=1
@@ -508,6 +642,22 @@ Count mtModules_LastModified=1
 mtModules_LastModified0="Modified"
 Count mtModules_Path=1
 mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
 Count mtCPU_Registers=1
 mtCPU_Registers0="Registers"
 Count mtCPU_Stack=1
@@ -518,5 +668,32 @@ Count mtSend_SuccessMsg=1
 mtSend_SuccessMsg0="The message was sent successfully."
 Count mtSend_FailureMsg=1
 mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=
 
 

Cliente/FactuGES.dpr

@@ -1,6 +1,7 @@
 program FactuGES;
 
 uses
+  ExceptionLog,
   Forms,
   uLoginForm,
   uPantallaPrincipal in 'uPantallaPrincipal.pas' {fPantallaPrincipal},

Cliente/uPantallaPrincipal.dfm

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

Cliente/uPantallaPrincipal.pas

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

Configuracion/Configuracion.dof

@@ -152,12 +152,12 @@ Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
 Count=16
-Item0=$(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
-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
-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
-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
-Item4=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
-Item5=$(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=..\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
@@ -183,3 +183,486 @@ Item2=..\..\Output\Cliente
 [HistoryLists\hlDCPOutput]
 Count=1
 Item0=.\
+[Exception Log]
+EurekaLog Version=6006
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=0
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+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=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+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_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU 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_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+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 mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+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_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+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_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_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+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_OSCharset=1
+mtLog_OSCharset0="Charset"
+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 mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+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 mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+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 mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_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."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+
+

DataAbstract_D7/DataAbstract_D7.dof

@@ -153,12 +153,12 @@ Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
 Count=16
-Item0=$(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
-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
-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
-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
-Item4=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
-Item5=$(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=..\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
@@ -184,3 +184,486 @@ Item2=..\..\Output\Cliente
 [HistoryLists\hlDCPOutput]
 Count=1
 Item0=.\
+[Exception Log]
+EurekaLog Version=6006
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=0
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+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=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+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_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU 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_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+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 mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+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_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+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_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_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+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_OSCharset=1
+mtLog_OSCharset0="Charset"
+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 mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+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 mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+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 mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_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."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+
+

FactuGES.inc

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

FactuGES_D7.bpg

@@ -11,10 +11,10 @@ BRCC = $(ROOT)\bin\brcc32.exe $**
 #------------------------------------------------------------------------------
 PROJECTS = DataAbstract_D7.bpl BaseD7.bpl Usuarios.bpl Configuracion.bpl \
   Contactos.bpl Intervalos.bpl DocumentosAsociados.bpl Cuentas.bpl Almacenes.bpl \
-  Presupuestos_Intf.bpl Montajes_Intf.bpl Presupuestos.bpl AlbaranesCliente.bpl \
-  PedidosProveedor.bpl PedidosMontaje.bpl Articulos.bpl ArticulosMontaje.bpl \
-  Montajes_Impl.bpl FacturasCliente.bpl FacturasProveedor.bpl Asientos.bpl \
-  Pagos.bpl Calendarios.bpl FactuGES.exe FactuGES_Server.exe
+  Presupuestos_Intf.bpl Montajes_Intf.bpl Asientos.bpl Pagos.bpl Presupuestos.bpl \
+  AlbaranesCliente.bpl PedidosProveedor.bpl PedidosMontaje.bpl Articulos.bpl \
+  ArticulosMontaje.bpl Montajes_Impl.bpl FacturasCliente.bpl \
+  FacturasProveedor.bpl Calendarios.bpl FactuGES.exe FactuGES_Server.exe
 #------------------------------------------------------------------------------
 default: $(PROJECTS)
 #------------------------------------------------------------------------------

Modulos/Albaranes de cliente/Cliente/AlbaranesCliente.dof

@@ -205,21 +205,19 @@ Item2=..\..\Output\Cliente
 Count=1
 Item0=.\
 [Exception Log]
-EurekaLog Version=519
+EurekaLog Version=6006
 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
@@ -255,30 +253,55 @@ WebUserID=
 WebPassword=
 WebPort=0
 AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
 Count=0
 EMail Message Line Count=0
 loNoDuplicateErrors=0
 loAppendReproduceText=0
 loDeleteLogAtVersionChange=0
 loAddComputerNameInLogFileName=0
-loSaveModulesSection=1
-loSaveCPUSection=1
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
 soAppStartDate=1
 soAppName=1
 soAppVersionNumber=1
 soAppParameters=1
 soAppCompilationDate=1
+soAppUpTime=1
 soExcDate=1
 soExcAddress=1
-soExcModule=1
+soExcModuleName=1
+soExcModuleVersion=1
 soExcType=1
 soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
 soActCtlsFormClass=1
 soActCtlsFormText=1
 soActCtlsControlClass=1
 soActCtlsControlText=1
 soCmpName=1
-soCmpUser=1
 soCmpTotalMemory=1
 soCmpFreeMemory=1
 soCmpTotalDisk=1
@@ -286,16 +309,21 @@ soCmpFreeDisk=1
 soCmpSysUpTime=1
 soCmpProcessor=1
 soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
 soOSType=1
 soOSBuildN=1
 soOSUpdate=1
 soOSLanguage=1
+soOSCharset=1
 soNetIP=1
 soNetSubmask=1
 soNetGateway=1
 soNetDNS1=1
 soNetDNS2=1
 soNetDHCP=1
+soCustomData=1
 sndShowSendDialog=1
 sndShowSuccessFailureMsg=0
 sndSendEntireLog=0
@@ -305,31 +333,44 @@ sndUseOnlyActiveWindow=0
 sndSendLastHTMLPage=1
 sndSendInSeparatedThread=0
 sndAddDateInFileName=0
-sndCompressAllFiles=0
-edoShowExceptionDialog=1
-edoSendEmailChecked=1
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
 edoAttachScreenshotChecked=1
 edoShowCopyToClipOption=1
 edoShowDetailsButton=1
 edoShowInDetailedMode=0
 edoShowInTopMostMode=0
 edoUseEurekaLogLookAndFeel=1
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
 csoShowDLLs=1
 csoShowBPLs=1
 csoShowBorlandThreads=1
 csoShowWindowsThreads=1
-csoShowProcedureOffset=0
-boActivateCrashDetection=0
+csoDoNotStoreProcNames=0
 boPauseBorlandThreads=0
 boDoNotPauseMainThread=0
 boPauseWindowsThreads=0
 boUseMainModuleOptions=1
 boCopyLogInCaseOfError=1
 boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
 Count mtInformationMsgCaption=1
 mtInformationMsgCaption0="Information."
 Count mtQuestionMsgCaption=1
 mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
 Count mtDialog_Caption=1
 mtDialog_Caption0="Error."
 Count mtDialog_ErrorMsgCaption=2
@@ -347,14 +388,18 @@ Count mtDialog_ModulesCaption=1
 mtDialog_ModulesCaption0="Modules"
 Count mtDialog_ModulesHeader=1
 mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler 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
@@ -363,6 +408,8 @@ Count mtDialog_RestartButtonCaption=1
 mtDialog_RestartButtonCaption0="%26Restart"
 Count mtDialog_DetailsButtonCaption=1
 mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
 Count mtDialog_SendMessage=1
 mtDialog_SendMessage0="%26Send this error via Internet"
 Count mtDialog_ScreenshotMessage=1
@@ -371,6 +418,28 @@ Count mtDialog_CopyMessage=1
 mtDialog_CopyMessage0="%26Copy to Clipboard"
 Count mtDialog_SupportMessage=1
 mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
 Count mtLog_AppHeader=1
 mtLog_AppHeader0="Application"
 Count mtLog_AppStartDate=1
@@ -383,18 +452,42 @@ Count mtLog_AppParameters=1
 mtLog_AppParameters0="Parameters"
 Count mtLog_AppCompilationDate=1
 mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
 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_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
 Count mtLog_ExcType=1
 mtLog_ExcType0="Type"
 Count mtLog_ExcMessage=1
 mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
 Count mtLog_ActCtrlsHeader=1
 mtLog_ActCtrlsHeader0="Active Controls"
 Count mtLog_ActCtrlsFormClass=1
@@ -409,8 +502,6 @@ 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
@@ -425,6 +516,12 @@ Count mtLog_CmpProcessor=1
 mtLog_CmpProcessor0="Processor"
 Count mtLog_CmpDisplayMode=1
 mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
 Count mtLog_OSHeader=1
 mtLog_OSHeader0="Operating System"
 Count mtLog_OSType=1
@@ -435,6 +532,8 @@ Count mtLog_OSUpdate=1
 mtLog_OSUpdate0="Update"
 Count mtLog_OSLanguage=1
 mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
 Count mtLog_NetHeader=1
 mtLog_NetHeader0="Network"
 Count mtLog_NetIP=1
@@ -477,18 +576,42 @@ Count mtCallStack_ThreadPriority=1
 mtCallStack_ThreadPriority0="Priority"
 Count mtCallStack_ThreadClass=1
 mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
 Count mtSendDialog_Caption=1
 mtSendDialog_Caption0="Send."
 Count mtSendDialog_Message=1
 mtSendDialog_Message0="Message"
 Count mtSendDialog_Resolving=1
 mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
 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 mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
 Count mtReproduceDialog_Caption=1
 mtReproduceDialog_Caption0="Request"
 Count mtReproduceDialog_Request=1
@@ -509,6 +632,22 @@ Count mtModules_LastModified=1
 mtModules_LastModified0="Modified"
 Count mtModules_Path=1
 mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
 Count mtCPU_Registers=1
 mtCPU_Registers0="Registers"
 Count mtCPU_Stack=1
@@ -519,5 +658,32 @@ Count mtSend_SuccessMsg=1
 mtSend_SuccessMsg0="The message was sent successfully."
 Count mtSend_FailureMsg=1
 mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
 
 

Modulos/Albaranes de cliente/Cliente/uDataModuleAlbaranesCliente.dfm

@@ -683,4 +683,113 @@ object dmAlbaranesCliente: TdmAlbaranesCliente
     Left = 48
     Top = 152
   end
+  object tbl_ListaAnosAlbaranes: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ANO'
+        DataType = datString
+        Size = 254
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    SchemaCall.MethodName = 'GetDatasetSchema'
+    SchemaCall.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtBinary
+      end
+      item
+        Name = 'aDatasetName'
+        ParamType = fIn
+        DataType = rtString
+        Value = 'ListaAnosAlbaranes'
+      end>
+    DataRequestCall.MethodName = 'GetDatasetDataEx'
+    DataRequestCall.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtBinary
+      end
+      item
+        Name = 'DatasetName'
+        ParamType = fIn
+        DataType = rtString
+        Value = 'ListaAnosAlbaranes'
+      end
+      item
+        Name = 'Params'
+        ParamType = fIn
+        DataType = rtUserDefined
+        UserClassName = 'TDADatasetParamArray'
+      end
+      item
+        Name = 'UserFilter'
+        ParamType = fIn
+        DataType = rtString
+        Value = ''
+      end
+      item
+        Name = 'IncludeSchema'
+        ParamType = fIn
+        DataType = rtBoolean
+        Value = False
+      end
+      item
+        Name = 'MaxRecords'
+        ParamType = fIn
+        DataType = rtInteger
+        Value = -1
+      end>
+    DataUpdateCall.MethodName = 'UpdateData'
+    DataUpdateCall.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtBinary
+      end
+      item
+        Name = 'Delta'
+        ParamType = fIn
+        DataType = rtBinary
+      end>
+    ScriptCall.MethodName = 'GetDatasetScripts'
+    ScriptCall.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtString
+        Value = ''
+      end
+      item
+        Name = 'DatasetNames'
+        ParamType = fIn
+        DataType = rtString
+        Value = 'ListaAnosAlbaranes'
+      end>
+    ReadOnly = False
+    RemoteService = RORemoteService
+    Adapter = dmBase.DABINAdapter
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'ListaAnosAlbaranes'
+    IndexDefs = <>
+    Left = 184
+    Top = 200
+  end
+  object ds_ListaAnosAlbaranes: TDADataSource
+    DataTable = tbl_ListaAnosAlbaranes
+    Left = 184
+    Top = 152
+  end
 end

Modulos/Albaranes de cliente/Cliente/uDataModuleAlbaranesCliente.pas

@@ -17,6 +17,8 @@ type
     ds_DetallesAlbaranCliente: TDADataSource;
     DADesigntimeCall1: TDADesigntimeCall;
     RORemoteService2: TRORemoteService;
+    tbl_ListaAnosAlbaranes: TDACDSDataTable;
+    ds_ListaAnosAlbaranes: TDADataSource;
     procedure DAClientDataModuleCreate(Sender: TObject);
   private
     { Private declarations }
@@ -31,6 +33,9 @@ type
     function PuedoEliminarAlbaran (CodigoAlbaran : Integer) : Boolean;
     function GetItemsSeleccionados(ASource : IBizAlbaranesCliente): IBizAlbaranesCliente;
     procedure CambiarSituacion(AAlbaran: IBizAlbaranesCliente);
+
+    function DarListaAnosAlbaranes: TStringList;
+    procedure FiltrarAno(AAlbaranes: IBizAlbaranesCliente; AWhereDataTable: String; const Ano: String);
   end;
 
 var
@@ -41,7 +46,7 @@ implementation
 {$R *.DFM}
 
 uses
-  Forms, Controls, uDataTableUtils, uBizContacto, uDataModulePagos,
+  Forms, Controls, cxControls, uDataTableUtils, uBizContacto, uDataModulePagos,
   uDataModuleContactos, uDataModuleBase, schAlbaranesClienteClient_Intf,
   uEditorPreview, uROTypes, uDBSelectionList, uDAInterfaces;
 
@@ -80,6 +85,7 @@ begin
       FieldByName(fld_DetallesAlbaranClienteIMPORTEPUNTOS).BusinessRulesID := 'Client.Field.ImportePuntos';
 
       FieldByName(fld_DetallesAlbaranClienteVISIBLE).BusinessRulesID := 'Client.Field.Visible';
+      FieldByName(fld_DetallesAlbaranClienteVALORADO).BusinessRulesID := 'Client.Field.Valorado';
     end;
     (dtAlbaranes as IBizAlbaranesCliente).Detalles := (dtDetalles as IBizDetallesAlbaranCliente);
 
@@ -246,6 +252,55 @@ begin
   end;
 end;
 
+function TdmAlbaranesCliente.DarListaAnosAlbaranes: TStringList;
+var
+  AListaAnos: TStringList;
+begin
+  AListaAnos := TStringList.Create;
+  ShowHourglassCursor;
+  try
+    with tbl_ListaAnosAlbaranes do
+    begin
+      Open;
+      First;
+      while not eof do
+      begin
+        AListaAnos.Add(Format('%s=%s', [Fields[0].AsString, Fields[0].AsString]));
+        Next;
+      end;
+      Close;
+    end;
+    Result := AListaAnos;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TdmAlbaranesCliente.FiltrarAno(AAlbaranes: IBizAlbaranesCliente; AWhereDataTable: String; const Ano: String);
+var
+  FechaIni: String;
+  FechaFin: String;
+
+begin
+  AAlbaranes.DataTable.Where.Clear;
+  AAlbaranes.DataTable.Where.AddText(AWhereDataTable);
+
+  if (Ano <> 'Todos') then
+  begin
+    // Filtrar los presupuestos actuales por años
+    FechaIni := '01.01.' + Ano;
+    FechaFin := '31.12.' + Ano;
+    with AAlbaranes.DataTable.Where do
+    begin
+      if NotEmpty then
+         AddOperator(opAND);
+      AddCondition(fld_AlbaranClienteFECHAALBARAN, cMajorOrEqual, FechaIni);
+      AddOperator(opAND);
+      AddCondition(fld_AlbaranClienteFECHAALBARAN, cLessOrEqual, FechaFin);
+    end;
+  end;
+end;
+
 initialization
   dmAlbaranesCliente := TdmAlbaranesCliente.Create(nil);
 

Modulos/Albaranes de cliente/Cliente/uEditorAlbaranCliente.dfm

@@ -50,7 +50,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
   inherited pgPaginas: TPageControl
     Width = 763
     Height = 328
-    ActivePage = pagContenido
     inherited pagGeneral: TTabSheet
       inline frViewAlbaranCliente1: TfrViewAlbaranCliente
         Left = 0
@@ -160,6 +159,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
     end
   end
   inherited EditorActionList: TActionList [5]
+    inherited actEliminar: TAction
+      Enabled = False
+    end
   end
   inherited SmallImages: TPngImageList [6]
   end

Modulos/Albaranes de cliente/Cliente/uEditorAlbaranCliente.pas

@@ -30,6 +30,7 @@ type
     procedure FormShow(Sender: TObject); override;
     procedure frViewDatosYSeleccionContacto1edtlNombrePropertiesChange(
       Sender: TObject);
+    procedure actEliminarUpdate(Sender: TObject);
   private
     FAlbaranCliente: IBizAlbaranesCliente;
     FViewAlbaranCliente: IViewAlbaranCliente;
@@ -158,6 +159,11 @@ begin
   Caption := JvNavPanelHeader.Caption;
 end;
 
+procedure TfEditorAlbaranCliente.actEliminarUpdate(Sender: TObject);
+begin
+//  inherited;
+end;
+
 initialization
   RegisterEditor(IBizAlbaranesCliente, ShowEditorAlbaranCliente, etItem);
 

Modulos/Albaranes de cliente/Cliente/uEditorAlbaranesCliente.dfm

@@ -48,7 +48,15 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
       end
     end
     inherited tbxFiltro: TTBXToolbar
-      Left = 505
+      inherited lblAno: TTBXLabelItem
+        Visible = True
+      end
+      inherited cbxListaAnos: TTBXComboBoxItem
+        Visible = True
+      end
+      inherited sepAno: TTBXSeparatorItem
+        Visible = True
+      end
     end
   end
   inherited StatusBar: TStatusBar
@@ -91,15 +99,77 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
   end
   inherited EditorActionList: TActionList [4]
     inherited actNuevo: TAction
+      Enabled = False
       ImageIndex = 22
       OnExecute = actNuevoExecute
     end
+    inherited actModificar: TAction
+      Enabled = False
+    end
+    inherited actEliminar: TAction
+      Enabled = False
+    end
+    inherited actConfPagina: TAction
+      Enabled = False
+    end
+    inherited actPrevisualizar: TAction
+      Enabled = False
+    end
+    inherited actPrevisualizarDocumento: TAction
+      Enabled = False
+    end
+    inherited actImprimir: TAction
+      Enabled = False
+    end
+    inherited actDeshacer: TEditUndo
+      Enabled = False
+    end
+    inherited actCortar: TEditCut
+      Enabled = False
+    end
+    inherited actImprimirDocumento: TAction
+      Enabled = False
+    end
+    inherited actCopiar: TEditCopy
+      Enabled = False
+    end
+    inherited actPegar: TEditPaste
+      Enabled = False
+    end
+    inherited actSeleccionarTodo: TEditSelectAll
+      Enabled = False
+    end
+    inherited actLimpiar: TEditDelete
+      Enabled = False
+    end
+    inherited actRefrescar: TAction
+      Enabled = False
+    end
+    inherited actAcercaDe: TAction
+      Enabled = False
+    end
+    inherited actBuscar: TAction
+      Enabled = False
+    end
+    inherited actQuitarFiltro: TAction
+      Enabled = False
+    end
     object actPagar: TAction [24]
       Category = 'Archivo'
       Caption = 'Generar cobro'
+      Enabled = False
       ImageIndex = 23
       OnExecute = actPagarExecute
     end
+    inherited actDuplicar: TAction
+      Enabled = False
+    end
+    inherited actAnchoAuto: TAction
+      Enabled = False
+    end
+    inherited actFiltrar: TAction
+      Enabled = False
+    end
   end
   inherited SmallImages: TPngImageList [5]
     PngImages = <

Modulos/Albaranes de cliente/Cliente/uEditorAlbaranesCliente.pas

@@ -34,14 +34,20 @@ type
     procedure frViewBarraSeleccionactCancelarExecute(Sender: TObject);
     procedure actPagarExecute(Sender: TObject);
     procedure edtFechaFiltro1PropertiesEditValueChanged(Sender: TObject);
+    procedure OnListaAnosChange(Sender: TObject; const Text: string);
+    procedure FormShow(Sender: TObject);
+    procedure actEliminarUpdate(Sender: TObject);
+
   private
     FAlbaranesCliente: IBizAlbaranesCliente;
+
   protected
     function GetAlbaranesCliente: IBizAlbaranesCliente;
     procedure SetAlbaranesCliente(const Value: IBizAlbaranesCliente);
     procedure SetViewGrid(const Value: IViewGrid); override;
     function GetSelectionBarVisible: Boolean;
     procedure SetSelectionBarVisible(const Value: Boolean);
+
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -53,7 +59,9 @@ type
 
 implementation
 
-uses uDataModuleAlbaranesCliente, uViewAlbaranesCliente, uEditorUtils;
+uses
+  uDataModuleAlbaranesCliente, uViewAlbaranesCliente, uEditorUtils,
+  uDBSelectionList;
 
 {$R *.dfm}
 
@@ -130,13 +138,20 @@ begin
   Result := FAlbaranesCliente;
 end;
 
-procedure TfEditorAlbaranesCliente.SetAlbaranesCliente(const Value:
-        IBizAlbaranesCliente);
+procedure TfEditorAlbaranesCliente.SetAlbaranesCliente(const Value: IBizAlbaranesCliente);
 begin
   FAlbaranesCliente := Value;
-  dsDataTable.DataTable := FAlbaranesCliente.DataTable;
-  if Assigned(ViewGrid) then
-    (ViewGrid as IViewAlbaranesCliente).AlbaranesCliente := AlbaranesCliente;
+
+  if Assigned(FAlbaranesCliente) then
+  begin
+    //Se guarda el where de la sentencia origen, por si el editor tiene filtros que
+    //afecten a este where y en un futuro se desea volver al where origen (filtro de año))
+    WhereDataTable := FAlbaranesCliente.DataTable.Where.Clause;
+
+    dsDataTable.DataTable := FAlbaranesCliente.DataTable;
+    if Assigned(ViewGrid) then
+      (ViewGrid as IViewAlbaranesCliente).AlbaranesCliente := AlbaranesCliente;
+  end;
 end;
 
 procedure TfEditorAlbaranesCliente.SetViewGrid(const Value: IViewGrid);
@@ -201,6 +216,33 @@ begin
 }  
 end;
 
+procedure TfEditorAlbaranesCliente.FormShow(Sender: TObject);
+begin
+  ListaAnos := dmAlbaranesCliente.DarListaAnosAlbaranes;
+  cbxListaAnos.OnChange := OnListaAnosChange; //OJO SIEMPRE ANTES DEL INHERITED
+  
+  inherited;
+end;
+
+procedure TfEditorAlbaranesCliente.OnListaAnosChange(Sender: TObject; const Text: string);
+var
+  aAux : ISelectedRowList;
+begin
+  dmAlbaranesCliente.FiltrarAno(AlbaranesCliente, WhereDataTable, Text);
+  if AlbaranesCliente.DataTable.Active then
+     actRefrescar.Execute;
+
+  // Quitar las selecciones que hubiera anteriormente porque ya no valen
+  if Supports(AlbaranesCliente, ISelectedRowList, aAux) then
+    if (aAux.SelectedRows.Count > 0) then
+      aAux.SelectedRows.Clear;
+end;
+
+procedure TfEditorAlbaranesCliente.actEliminarUpdate(Sender: TObject);
+begin
+//  inherited;
+end;
+
 initialization
   RegisterEditor(IBizAlbaranesCliente, ShowEditorAlbaranesCliente, etItems);
   RegisterEditor(IBizAlbaranesCliente, ShowSelectEditorAlbaranesCliente, etSelectItems);

Modulos/Albaranes de cliente/Cliente/uPluginControllerAlbaranesCliente.dfm

@@ -93,6 +93,8 @@ object ModuleAlbaranesCliente: TModuleAlbaranesCliente
       object MenuItem5: TMenuItem
         Tag = 3000
         Action = actAlbaranesCliente
+        Enabled = False
+        Visible = False
       end
     end
   end

Modulos/Albaranes de cliente/Cliente/uViewAlbaranCliente.dfm

@@ -40,37 +40,33 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
     inherited edtlNombre: TcxDBTextEdit
       StyleDisabled.BorderStyle = ebsNone
       StyleDisabled.TextColor = clActiveCaption
-      Height = 21
       Width = 296
     end
     inherited edtPoblacion: TcxDBTextEdit
       StyleDisabled.BorderStyle = ebsNone
       StyleDisabled.TextColor = clActiveCaption
       TabOrder = 4
-      Height = 21
       Width = 296
     end
     inherited edtProvincia: TcxDBTextEdit
       StyleDisabled.BorderStyle = ebsNone
       StyleDisabled.TextColor = clActiveCaption
       TabOrder = 3
-      Height = 21
       Width = 152
     end
     inherited edtNIFCIF: TcxDBTextEdit
       StyleDisabled.BorderStyle = ebsNone
       StyleDisabled.TextColor = clActiveCaption
-      Height = 21
       Width = 296
     end
     inherited edtCalle: TcxDBTextEdit
       StyleDisabled.BorderStyle = ebsNone
       StyleDisabled.TextColor = clActiveCaption
-      Height = 21
       Width = 296
     end
     inherited ToolBar2: TToolBar
       Left = 181
+      Width = 182
       ButtonWidth = 178
       inherited ToolButton4: TToolButton
         Caption = 'Ver ficha completa del cliente...'
@@ -79,7 +75,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
     inherited edtCodigoPostal: TcxDBTextEdit
       StyleDisabled.BorderStyle = ebsNone
       StyleDisabled.TextColor = clActiveCaption
-      Height = 21
       Width = 105
     end
     inherited DADataSource: TDADataSource
@@ -107,15 +102,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
     ParentFont = False
     TabOrder = 1
     ReadOnly = False
-    inherited edtFecha: TcxDBDateEdit
-      Width = 245
-    end
-    inherited edtFechaPago: TcxDBDateEdit
-      Width = 245
-    end
-    inherited eReferencia: TcxDBTextEdit
-      Width = 245
-    end
   end
   inline frViewFormaPago1: TfrViewFormaPago
     Left = 0
@@ -176,10 +162,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
     ParentFont = False
     TabOrder = 4
     ReadOnly = False
-    inherited edtlReferencia: TcxDBTextEdit
-      Height = 21
-      Width = 245
-    end
   end
   object DADataSource: TDADataSource
   end

Modulos/Albaranes de cliente/Cliente/uViewAlbaranCliente.pas

@@ -65,10 +65,16 @@ procedure TfrViewAlbaranCliente.OnPresupuestoChanged(Sender: TObject);
 begin
   if not (FAlbaranCliente.DataTable.State in dsEditModes) then
     FAlbaranCliente.Edit;
-  FAlbaranCliente.CODIGOPRESUPUESTO := frViewPresupuestoAlbaran1.Presupuesto.CODIGO;
-  FAlbaranCliente.CopyFrom(frViewPresupuestoAlbaran1.Presupuesto);
-  frViewDatosYSeleccionContacto1.Contacto := FAlbaranCliente.Cliente;
-  MessageBox(0, 'Se ha copiado correctamente el presupuesto elegido en este albarán.', 'Presupuesto copiado', MB_ICONWARNING or MB_OK);
+  ShowMessage(IntToStr(frViewPresupuestoAlbaran1.Presupuesto.CODIGO));
+  try
+    FAlbaranCliente.CODIGOPRESUPUESTO := frViewPresupuestoAlbaran1.Presupuesto.CODIGO;
+    FAlbaranCliente.CopyFrom(frViewPresupuestoAlbaran1.Presupuesto);
+    frViewDatosYSeleccionContacto1.Contacto := FAlbaranCliente.Cliente;
+    MessageBox(0, 'Se ha copiado correctamente el presupuesto elegido en este albarán.', 'Presupuesto copiado', MB_ICONWARNING or MB_OK);
+  except
+    on E : Exception do
+      ShowMessage(E.ClassName+' error raised, with message : '+E.Message);
+  end;
 end;
 
 procedure TfrViewAlbaranCliente.SetAlbaranCliente(

Modulos/Albaranes de cliente/Cliente/uViewAlbaranRelacionado.dfm

@@ -84,11 +84,6 @@ inherited frViewAlbaranRelacionado: TfrViewAlbaranRelacionado
     DataBinding.DataSource = DADataSource
     Enabled = False
     ParentFont = False
-    Style.Font.Charset = DEFAULT_CHARSET
-    Style.Font.Color = clWindowText
-    Style.Font.Height = -11
-    Style.Font.Name = 'Tahoma'
-    Style.Font.Style = []
     Style.LookAndFeel.NativeStyle = True
     StyleDisabled.LookAndFeel.NativeStyle = True
     StyleDisabled.TextColor = clActiveCaption

Modulos/Albaranes de cliente/Cliente/uViewDetallesAlbaranCliente.dfm

@@ -35,6 +35,9 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
         Styles.OnGetContentStyle = cxGridViewVISIBLEStylesGetContentStyle
         Width = 76
       end
+      inherited cxGridViewVALORADO: TcxGridDBColumn
+        Styles.OnGetContentStyle = cxGridViewVALORADOStylesGetContentStyle
+      end
     end
   end
   inherited cxStyleRepository1: TcxStyleRepository

Modulos/Albaranes de cliente/Cliente/uViewDetallesAlbaranCliente.pas

@@ -24,6 +24,9 @@ type
     procedure cxGridViewVISIBLEStylesGetContentStyle(
       Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
       AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+    procedure cxGridViewVALORADOStylesGetContentStyle(
+      Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+      AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
   end;
 
 
@@ -91,4 +94,22 @@ begin
   end;
 end;
 
+procedure TfrViewDetallesAlbaranCliente.cxGridViewVALORADOStylesGetContentStyle(
+  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+var
+  IndiceCol : Integer;
+  ATipo : String;
+begin
+  if Assigned(ARecord) then
+  begin
+    IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index;
+    ATipo := VarToStr(ARecord.Values[IndiceCol]);
+    if ATipo = TIPODETALLE_SUBTOTAL then
+      AStyle := cxStyle_SUBTOTAL;
+    if ATipo = TIPODETALLE_TITULO then
+      AStyle := cxStyle_TITULO;
+  end;
+end;
+
 end.

Modulos/Albaranes de cliente/Cliente/uViewPresupuestoAlbaran.dfm

@@ -5,8 +5,6 @@ inherited frViewPresupuestoAlbaran: TfrViewPresupuestoAlbaran
   end
   inherited edtlReferencia: TcxDBTextEdit
     StyleDisabled.BorderStyle = ebsNone
-    Height = 21
-    Width = 245
   end
   inherited ActionList1: TActionList
     inherited actElegirPresupuesto: TAction

Modulos/Albaranes de cliente/Reglas/schAlbaranesClienteClient_Intf.pas

@@ -9,16 +9,18 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_DarReferenciaAlbaran = '{35F98298-F696-46BE-9D56-50D87C52A2C1}';
-  RID_AlbaranCliente = '{14578616-F521-4BA3-A7E9-BB99BA3FA09C}';
-  RID_AlbaranDePresupuesto = '{116AED58-1A39-4230-8961-B965FB7B0697}';
-  RID_DetallesAlbaranCliente = '{9C31D267-5CA0-4776-9B6A-32E4633153D9}';
-  RID_AlbaranCliente_RefreshDataset = '{22F08733-B02A-4130-84ED-B1E32F9F18DF}';
-  RID_InformeCabeceraAlbaranPago = '{D018D751-1373-4A7C-9E2F-BFD097EC6967}';
-  RID_InformeDetallesAlbaranPago = '{61D6092F-B71A-40E6-9601-980B85F71C86}';
-  RID_DarSumaImportes = '{6AD3F242-7984-41B6-8F0F-CEAEF113373A}';
+  RID_ListaAnosAlbaranes = '{917C4039-2B93-4CA7-A441-D0352569F345}';
+  RID_DarReferenciaAlbaran = '{C11AC197-E7EE-45B7-9496-D6F569F9A723}';
+  RID_AlbaranCliente = '{7677D1DA-BBBF-4FE6-99C5-785BFC601814}';
+  RID_AlbaranDePresupuesto = '{11FBB81A-08F0-454F-9F82-2D38B9283A2C}';
+  RID_DetallesAlbaranCliente = '{0E82DB60-0D2C-4BD7-B746-A3FA7B226C9C}';
+  RID_AlbaranCliente_RefreshDataset = '{1CF237D2-D61D-42F7-9977-29C60F03C4A7}';
+  RID_InformeCabeceraAlbaranPago = '{7C164B21-4993-4739-8B3F-1B5CC997D24A}';
+  RID_InformeDetallesAlbaranPago = '{A9FA5BBE-85CE-4652-9E5C-5F9BF97A3A55}';
+  RID_DarSumaImportes = '{1246AA6F-FFBC-422B-90E4-DE85DA400D86}';
 
   { Data table names }
+  nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
   nme_DarReferenciaAlbaran = 'DarReferenciaAlbaran';
   nme_AlbaranCliente = 'AlbaranCliente';
   nme_AlbaranDePresupuesto = 'AlbaranDePresupuesto';
@@ -28,6 +30,12 @@ const
   nme_InformeDetallesAlbaranPago = 'InformeDetallesAlbaranPago';
   nme_DarSumaImportes = 'DarSumaImportes';
 
+  { ListaAnosAlbaranes fields }
+  fld_ListaAnosAlbaranesANO = 'ANO';
+
+  { ListaAnosAlbaranes field indexes }
+  idx_ListaAnosAlbaranesANO = 0;
+
   { DarReferenciaAlbaran fields }
   fld_DarReferenciaAlbaranREFERENCIA = 'REFERENCIA';
 
@@ -96,6 +104,7 @@ const
   fld_DetallesAlbaranClienteVISIBLE = 'VISIBLE';
   fld_DetallesAlbaranClientePUNTOS = 'PUNTOS';
   fld_DetallesAlbaranClienteIMPORTEPUNTOS = 'IMPORTEPUNTOS';
+  fld_DetallesAlbaranClienteVALORADO = 'VALORADO';
 
   { DetallesAlbaranCliente field indexes }
   idx_DetallesAlbaranClienteCODIGOALBARAN = 0;
@@ -109,6 +118,7 @@ const
   idx_DetallesAlbaranClienteVISIBLE = 8;
   idx_DetallesAlbaranClientePUNTOS = 9;
   idx_DetallesAlbaranClienteIMPORTEPUNTOS = 10;
+  idx_DetallesAlbaranClienteVALORADO = 11;
 
   { AlbaranCliente_RefreshDataset fields }
   fld_AlbaranCliente_RefreshDatasetCODIGO = 'CODIGO';
@@ -189,6 +199,7 @@ const
   fld_InformeDetallesAlbaranPagoIMPORTETOTAL = 'IMPORTETOTAL';
   fld_InformeDetallesAlbaranPagoTIPO = 'TIPO';
   fld_InformeDetallesAlbaranPagoPOSICION = 'POSICION';
+  fld_InformeDetallesAlbaranPagoVALORADO = 'VALORADO';
 
   { InformeDetallesAlbaranPago field indexes }
   idx_InformeDetallesAlbaranPagoCODIGOALBARAN = 0;
@@ -199,6 +210,7 @@ const
   idx_InformeDetallesAlbaranPagoIMPORTETOTAL = 5;
   idx_InformeDetallesAlbaranPagoTIPO = 6;
   idx_InformeDetallesAlbaranPagoPOSICION = 7;
+  idx_InformeDetallesAlbaranPagoVALORADO = 8;
 
   { DarSumaImportes fields }
   fld_DarSumaImportesBASEIMPONIBLE = 'BASEIMPONIBLE';
@@ -211,9 +223,38 @@ const
   idx_DarSumaImportesIMPORTETOTAL = 2;
 
 type
+  { IListaAnosAlbaranes }
+  IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
+  ['{D0E73EE9-26F5-4A80-97A1-D26923F15F21}']
+    { Property getters and setters }
+    function GetANOValue: String;
+    procedure SetANOValue(const aValue: String);
+
+
+    { Properties }
+    property ANO: String read GetANOValue write SetANOValue;
+  end;
+
+  { TListaAnosAlbaranesDataTableRules }
+  TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes)
+  private
+  protected
+    { Property getters and setters }
+    function GetANOValue: String; virtual;
+    procedure SetANOValue(const aValue: String); virtual;
+
+    { Properties }
+    property ANO: String read GetANOValue write SetANOValue;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
   { IDarReferenciaAlbaran }
   IDarReferenciaAlbaran = interface(IDAStronglyTypedDataTable)
-  ['{C6FEC801-58D9-4332-B152-41E118F9B63A}']
+  ['{B552B707-0E8A-4134-94E4-1608D2F8AE7E}']
     { Property getters and setters }
     function GetREFERENCIAValue: String;
     procedure SetREFERENCIAValue(const aValue: String);
@@ -242,7 +283,7 @@ type
 
   { IAlbaranCliente }
   IAlbaranCliente = interface(IDAStronglyTypedDataTable)
-  ['{642833FA-4649-486C-89C8-B9728500F01D}']
+  ['{93E66932-9E6D-463A-B890-D22380A55B15}']
     { Property getters and setters }
     function GetCODIGOEMPRESAValue: Integer;
     procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@@ -385,7 +426,7 @@ type
 
   { IAlbaranDePresupuesto }
   IAlbaranDePresupuesto = interface(IDAStronglyTypedDataTable)
-  ['{78FBFEFF-5738-4B40-819A-3F70EED86124}']
+  ['{EC189EA9-7AED-4BA8-8453-8BA1C887FA89}']
     { Property getters and setters }
     function GetCODIGOValue: Integer;
     procedure SetCODIGOValue(const aValue: Integer);
@@ -414,7 +455,7 @@ type
 
   { IDetallesAlbaranCliente }
   IDetallesAlbaranCliente = interface(IDAStronglyTypedDataTable)
-  ['{D9E720C6-134F-4020-975B-7EF111D57933}']
+  ['{A3DBA442-E018-4366-BEA9-CBDCC2638642}']
     { Property getters and setters }
     function GetCODIGOALBARANValue: Integer;
     procedure SetCODIGOALBARANValue(const aValue: Integer);
@@ -438,6 +479,8 @@ type
     procedure SetPUNTOSValue(const aValue: Integer);
     function GetIMPORTEPUNTOSValue: Currency;
     procedure SetIMPORTEPUNTOSValue(const aValue: Currency);
+    function GetVALORADOValue: String;
+    procedure SetVALORADOValue(const aValue: String);
 
 
     { Properties }
@@ -452,6 +495,7 @@ type
     property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue;
     property PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue;
     property IMPORTEPUNTOS: Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
   end;
 
   { TDetallesAlbaranClienteDataTableRules }
@@ -481,6 +525,8 @@ type
     procedure SetPUNTOSValue(const aValue: Integer); virtual;
     function GetIMPORTEPUNTOSValue: Currency; virtual;
     procedure SetIMPORTEPUNTOSValue(const aValue: Currency); virtual;
+    function GetVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
@@ -494,6 +540,7 @@ type
     property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue;
     property PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue;
     property IMPORTEPUNTOS: Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -503,7 +550,7 @@ type
 
   { IAlbaranCliente_RefreshDataset }
   IAlbaranCliente_RefreshDataset = interface(IDAStronglyTypedDataTable)
-  ['{3832562D-0F4D-4243-A963-3B59CB9D2B05}']
+  ['{9264A499-6FFC-4612-8A7C-4A718EED39B8}']
     { Property getters and setters }
     function GetCODIGOValue: Integer;
     procedure SetCODIGOValue(const aValue: Integer);
@@ -550,7 +597,7 @@ type
 
   { IInformeCabeceraAlbaranPago }
   IInformeCabeceraAlbaranPago = interface(IDAStronglyTypedDataTable)
-  ['{7CEBCE95-FD7B-46D1-844E-70F47FC60D0E}']
+  ['{D89475DD-59B9-4905-A028-189252D573D6}']
     { Property getters and setters }
     function GetCODIGOEMPRESAValue: Integer;
     procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@@ -735,7 +782,7 @@ type
 
   { IInformeDetallesAlbaranPago }
   IInformeDetallesAlbaranPago = interface(IDAStronglyTypedDataTable)
-  ['{2C1837CB-F884-46C6-BD8E-59A6AD8670A8}']
+  ['{5DDBF241-3C71-4B5A-848C-31D3C1984727}']
     { Property getters and setters }
     function GetCODIGOALBARANValue: Integer;
     procedure SetCODIGOALBARANValue(const aValue: Integer);
@@ -743,8 +790,8 @@ type
     procedure SetNUMCONCEPTOValue(const aValue: Integer);
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
-    function GetCANTIDADValue: Float;
-    procedure SetCANTIDADValue(const aValue: Float);
+    function GetCANTIDADValue: Integer;
+    procedure SetCANTIDADValue(const aValue: Integer);
     function GetIMPORTEUNIDADValue: Float;
     procedure SetIMPORTEUNIDADValue(const aValue: Float);
     function GetIMPORTETOTALValue: Float;
@@ -753,17 +800,20 @@ type
     procedure SetTIPOValue(const aValue: String);
     function GetPOSICIONValue: Integer;
     procedure SetPOSICIONValue(const aValue: Integer);
+    function GetVALORADOValue: String;
+    procedure SetVALORADOValue(const aValue: String);
 
 
     { Properties }
     property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
     property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
-    property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
     property IMPORTEUNIDAD: Float read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
     property IMPORTETOTAL: Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
     property TIPO: String read GetTIPOValue write SetTIPOValue;
     property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
   end;
 
   { TInformeDetallesAlbaranPagoDataTableRules }
@@ -777,8 +827,8 @@ type
     procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual;
     function GetDESCRIPCIONValue: String; virtual;
     procedure SetDESCRIPCIONValue(const aValue: String); virtual;
-    function GetCANTIDADValue: Float; virtual;
-    procedure SetCANTIDADValue(const aValue: Float); virtual;
+    function GetCANTIDADValue: Integer; virtual;
+    procedure SetCANTIDADValue(const aValue: Integer); virtual;
     function GetIMPORTEUNIDADValue: Float; virtual;
     procedure SetIMPORTEUNIDADValue(const aValue: Float); virtual;
     function GetIMPORTETOTALValue: Float; virtual;
@@ -787,16 +837,19 @@ type
     procedure SetTIPOValue(const aValue: String); virtual;
     function GetPOSICIONValue: Integer; virtual;
     procedure SetPOSICIONValue(const aValue: Integer); virtual;
+    function GetVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
     property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
-    property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
     property IMPORTEUNIDAD: Float read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
     property IMPORTETOTAL: Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
     property TIPO: String read GetTIPOValue write SetTIPOValue;
     property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -809,7 +862,7 @@ type
   }
   { IDarSumaImportes }
   IDarSumaImportes = interface(IDAStronglyTypedDataTable)
-  ['{C49AE35E-D0D0-4D17-80C9-9E996E212A8D}']
+  ['{5DF4D82E-2806-4F9F-BC96-46922630BD69}']
     { Property getters and setters }
     function GetBASEIMPONIBLEValue: Float;
     procedure SetBASEIMPONIBLEValue(const aValue: Float);
@@ -852,6 +905,28 @@ implementation
 
 uses Variants;
 
+{ TListaAnosAlbaranesDataTableRules }
+constructor TListaAnosAlbaranesDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TListaAnosAlbaranesDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TListaAnosAlbaranesDataTableRules.GetANOValue: String;
+begin
+  result := DataTable.Fields[idx_ListaAnosAlbaranesANO].AsString;
+end;
+
+procedure TListaAnosAlbaranesDataTableRules.SetANOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ListaAnosAlbaranesANO].AsString := aValue;
+end;
+
+
 { TDarReferenciaAlbaranDataTableRules }
 constructor TDarReferenciaAlbaranDataTableRules.Create(aDataTable: TDADataTable);
 begin
@@ -1231,6 +1306,16 @@ begin
   DataTable.Fields[idx_DetallesAlbaranClienteIMPORTEPUNTOS].AsCurrency := aValue;
 end;
 
+function TDetallesAlbaranClienteDataTableRules.GetVALORADOValue: String;
+begin
+  result := DataTable.Fields[idx_DetallesAlbaranClienteVALORADO].AsString;
+end;
+
+procedure TDetallesAlbaranClienteDataTableRules.SetVALORADOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_DetallesAlbaranClienteVALORADO].AsString := aValue;
+end;
+
 
 { TAlbaranCliente_RefreshDatasetDataTableRules }
 constructor TAlbaranCliente_RefreshDatasetDataTableRules.Create(aDataTable: TDADataTable);
@@ -1609,14 +1694,14 @@ begin
   DataTable.Fields[idx_InformeDetallesAlbaranPagoDESCRIPCION].AsString := aValue;
 end;
 
-function TInformeDetallesAlbaranPagoDataTableRules.GetCANTIDADValue: Float;
+function TInformeDetallesAlbaranPagoDataTableRules.GetCANTIDADValue: Integer;
 begin
-  result := DataTable.Fields[idx_InformeDetallesAlbaranPagoCANTIDAD].AsFloat;
+  result := DataTable.Fields[idx_InformeDetallesAlbaranPagoCANTIDAD].AsInteger;
 end;
 
-procedure TInformeDetallesAlbaranPagoDataTableRules.SetCANTIDADValue(const aValue: Float);
+procedure TInformeDetallesAlbaranPagoDataTableRules.SetCANTIDADValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_InformeDetallesAlbaranPagoCANTIDAD].AsFloat := aValue;
+  DataTable.Fields[idx_InformeDetallesAlbaranPagoCANTIDAD].AsInteger := aValue;
 end;
 
 function TInformeDetallesAlbaranPagoDataTableRules.GetIMPORTEUNIDADValue: Float;
@@ -1659,6 +1744,16 @@ begin
   DataTable.Fields[idx_InformeDetallesAlbaranPagoPOSICION].AsInteger := aValue;
 end;
 
+function TInformeDetallesAlbaranPagoDataTableRules.GetVALORADOValue: String;
+begin
+  result := DataTable.Fields[idx_InformeDetallesAlbaranPagoVALORADO].AsString;
+end;
+
+procedure TInformeDetallesAlbaranPagoDataTableRules.SetVALORADOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_InformeDetallesAlbaranPagoVALORADO].AsString := aValue;
+end;
+
 
 { TDarSumaImportesDataTableRules }
 constructor TDarSumaImportesDataTableRules.Create(aDataTable: TDADataTable);
@@ -1703,6 +1798,7 @@ end;
 
 
 initialization
+  RegisterDataTableRules(RID_ListaAnosAlbaranes, TListaAnosAlbaranesDataTableRules);
   RegisterDataTableRules(RID_DarReferenciaAlbaran, TDarReferenciaAlbaranDataTableRules);
   RegisterDataTableRules(RID_AlbaranCliente, TAlbaranClienteDataTableRules);
   RegisterDataTableRules(RID_AlbaranDePresupuesto, TAlbaranDePresupuestoDataTableRules);

Modulos/Albaranes de cliente/Reglas/schAlbaranesClienteServer_Intf.pas

@@ -9,19 +9,49 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_DarReferenciaAlbaranDelta = '{D9EAC03F-B4A2-41B9-A2B2-7CF11F780D28}';
-  RID_AlbaranClienteDelta = '{8E3B55C2-3828-41E4-8AEA-F0D487EDD873}';
-  RID_AlbaranDePresupuestoDelta = '{1D24D93A-7A20-4DC4-ACE3-F9E644618634}';
-  RID_DetallesAlbaranClienteDelta = '{91443B47-343B-46EC-85F0-19C431B1F56B}';
-  RID_AlbaranCliente_RefreshDatasetDelta = '{7857A2CE-B06F-491A-BB36-844139B9125E}';
-  RID_InformeCabeceraAlbaranPagoDelta = '{B87026ED-31B8-4320-8908-DE7DED600AC9}';
-  RID_InformeDetallesAlbaranPagoDelta = '{0698DC8F-4317-451B-8770-F18535997036}';
-  RID_DarSumaImportesDelta = '{DFDB0CB4-85D3-449B-B350-EC3758E21B72}';
+  RID_ListaAnosAlbaranesDelta = '{13092E1E-111E-4EA9-881B-3DB5E8D7DF8B}';
+  RID_DarReferenciaAlbaranDelta = '{060883BE-0C2D-4803-80D9-9D2E675F0F71}';
+  RID_AlbaranClienteDelta = '{423E76BF-AECD-4833-9826-939D0CEAA727}';
+  RID_AlbaranDePresupuestoDelta = '{18FC44A8-B09C-42A8-8364-CBA395F2BF34}';
+  RID_DetallesAlbaranClienteDelta = '{15388383-8B5E-42C8-B067-6D2BC5B591B9}';
+  RID_AlbaranCliente_RefreshDatasetDelta = '{C27FA34C-AC2D-4258-982E-2C454BF6F451}';
+  RID_InformeCabeceraAlbaranPagoDelta = '{C19F60E8-D693-4C0F-9F23-E143B0D63CC3}';
+  RID_InformeDetallesAlbaranPagoDelta = '{8F113EFE-98EE-495C-BCFF-37E5479F27AB}';
+  RID_DarSumaImportesDelta = '{ABF43821-73BF-42CB-9086-3677C16A7153}';
 
 type
+  { IListaAnosAlbaranesDelta }
+  IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
+  ['{13092E1E-111E-4EA9-881B-3DB5E8D7DF8B}']
+    { Property getters and setters }
+    function GetOldANOValue : String;
+
+    { Properties }
+    property OldANO : String read GetOldANOValue;
+  end;
+
+  { TListaAnosAlbaranesBusinessProcessorRules }
+  TListaAnosAlbaranesBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosAlbaranes, IListaAnosAlbaranesDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetANOValue: String; virtual;
+    function GetOldANOValue: String; virtual;
+    procedure SetANOValue(const aValue: String); virtual;
+
+    { Properties }
+    property ANO : String read GetANOValue write SetANOValue;
+    property OldANO : String read GetOldANOValue;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
   { IDarReferenciaAlbaranDelta }
   IDarReferenciaAlbaranDelta = interface(IDarReferenciaAlbaran)
-  ['{D9EAC03F-B4A2-41B9-A2B2-7CF11F780D28}']
+  ['{060883BE-0C2D-4803-80D9-9D2E675F0F71}']
     { Property getters and setters }
     function GetOldREFERENCIAValue : String;
 
@@ -50,7 +80,7 @@ type
 
   { IAlbaranClienteDelta }
   IAlbaranClienteDelta = interface(IAlbaranCliente)
-  ['{8E3B55C2-3828-41E4-8AEA-F0D487EDD873}']
+  ['{423E76BF-AECD-4833-9826-939D0CEAA727}']
     { Property getters and setters }
     function GetOldCODIGOEMPRESAValue : Integer;
     function GetOldCODIGOValue : Integer;
@@ -212,7 +242,7 @@ type
 
   { IAlbaranDePresupuestoDelta }
   IAlbaranDePresupuestoDelta = interface(IAlbaranDePresupuesto)
-  ['{1D24D93A-7A20-4DC4-ACE3-F9E644618634}']
+  ['{18FC44A8-B09C-42A8-8364-CBA395F2BF34}']
     { Property getters and setters }
     function GetOldCODIGOValue : Integer;
 
@@ -241,7 +271,7 @@ type
 
   { IDetallesAlbaranClienteDelta }
   IDetallesAlbaranClienteDelta = interface(IDetallesAlbaranCliente)
-  ['{91443B47-343B-46EC-85F0-19C431B1F56B}']
+  ['{15388383-8B5E-42C8-B067-6D2BC5B591B9}']
     { Property getters and setters }
     function GetOldCODIGOALBARANValue : Integer;
     function GetOldNUMCONCEPTOValue : Integer;
@@ -254,6 +284,7 @@ type
     function GetOldVISIBLEValue : String;
     function GetOldPUNTOSValue : Integer;
     function GetOldIMPORTEPUNTOSValue : Currency;
+    function GetOldVALORADOValue : String;
 
     { Properties }
     property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
@@ -267,6 +298,7 @@ type
     property OldVISIBLE : String read GetOldVISIBLEValue;
     property OldPUNTOS : Integer read GetOldPUNTOSValue;
     property OldIMPORTEPUNTOS : Currency read GetOldIMPORTEPUNTOSValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
   end;
 
   { TDetallesAlbaranClienteBusinessProcessorRules }
@@ -307,6 +339,9 @@ type
     function GetIMPORTEPUNTOSValue: Currency; virtual;
     function GetOldIMPORTEPUNTOSValue: Currency; virtual;
     procedure SetIMPORTEPUNTOSValue(const aValue: Currency); virtual;
+    function GetVALORADOValue: String; virtual;
+    function GetOldVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOALBARAN : Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
@@ -331,6 +366,8 @@ type
     property OldPUNTOS : Integer read GetOldPUNTOSValue;
     property IMPORTEPUNTOS : Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue;
     property OldIMPORTEPUNTOS : Currency read GetOldIMPORTEPUNTOSValue;
+    property VALORADO : String read GetVALORADOValue write SetVALORADOValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -340,7 +377,7 @@ type
 
   { IAlbaranCliente_RefreshDatasetDelta }
   IAlbaranCliente_RefreshDatasetDelta = interface(IAlbaranCliente_RefreshDataset)
-  ['{7857A2CE-B06F-491A-BB36-844139B9125E}']
+  ['{C27FA34C-AC2D-4258-982E-2C454BF6F451}']
     { Property getters and setters }
     function GetOldCODIGOValue : Integer;
     function GetOldNOMBREValue : String;
@@ -390,7 +427,7 @@ type
 
   { IInformeCabeceraAlbaranPagoDelta }
   IInformeCabeceraAlbaranPagoDelta = interface(IInformeCabeceraAlbaranPago)
-  ['{B87026ED-31B8-4320-8908-DE7DED600AC9}']
+  ['{C19F60E8-D693-4C0F-9F23-E143B0D63CC3}']
     { Property getters and setters }
     function GetOldCODIGOEMPRESAValue : Integer;
     function GetOldCODIGOValue : Integer;
@@ -601,26 +638,28 @@ type
 
   { IInformeDetallesAlbaranPagoDelta }
   IInformeDetallesAlbaranPagoDelta = interface(IInformeDetallesAlbaranPago)
-  ['{0698DC8F-4317-451B-8770-F18535997036}']
+  ['{8F113EFE-98EE-495C-BCFF-37E5479F27AB}']
     { Property getters and setters }
     function GetOldCODIGOALBARANValue : Integer;
     function GetOldNUMCONCEPTOValue : Integer;
     function GetOldDESCRIPCIONValue : String;
-    function GetOldCANTIDADValue : Float;
+    function GetOldCANTIDADValue : Integer;
     function GetOldIMPORTEUNIDADValue : Float;
     function GetOldIMPORTETOTALValue : Float;
     function GetOldTIPOValue : String;
     function GetOldPOSICIONValue : Integer;
+    function GetOldVALORADOValue : String;
 
     { Properties }
     property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
     property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
-    property OldCANTIDAD : Float read GetOldCANTIDADValue;
+    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
     property OldIMPORTEUNIDAD : Float read GetOldIMPORTEUNIDADValue;
     property OldIMPORTETOTAL : Float read GetOldIMPORTETOTALValue;
     property OldTIPO : String read GetOldTIPOValue;
     property OldPOSICION : Integer read GetOldPOSICIONValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
   end;
 
   { TInformeDetallesAlbaranPagoBusinessProcessorRules }
@@ -637,9 +676,9 @@ type
     function GetDESCRIPCIONValue: String; virtual;
     function GetOldDESCRIPCIONValue: String; virtual;
     procedure SetDESCRIPCIONValue(const aValue: String); virtual;
-    function GetCANTIDADValue: Float; virtual;
-    function GetOldCANTIDADValue: Float; virtual;
-    procedure SetCANTIDADValue(const aValue: Float); virtual;
+    function GetCANTIDADValue: Integer; virtual;
+    function GetOldCANTIDADValue: Integer; virtual;
+    procedure SetCANTIDADValue(const aValue: Integer); virtual;
     function GetIMPORTEUNIDADValue: Float; virtual;
     function GetOldIMPORTEUNIDADValue: Float; virtual;
     procedure SetIMPORTEUNIDADValue(const aValue: Float); virtual;
@@ -652,6 +691,9 @@ type
     function GetPOSICIONValue: Integer; virtual;
     function GetOldPOSICIONValue: Integer; virtual;
     procedure SetPOSICIONValue(const aValue: Integer); virtual;
+    function GetVALORADOValue: String; virtual;
+    function GetOldVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOALBARAN : Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
@@ -660,8 +702,8 @@ type
     property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue;
     property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
-    property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
-    property OldCANTIDAD : Float read GetOldCANTIDADValue;
+    property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
+    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
     property IMPORTEUNIDAD : Float read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
     property OldIMPORTEUNIDAD : Float read GetOldIMPORTEUNIDADValue;
     property IMPORTETOTAL : Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
@@ -670,6 +712,8 @@ type
     property OldTIPO : String read GetOldTIPOValue;
     property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
     property OldPOSICION : Integer read GetOldPOSICIONValue;
+    property VALORADO : String read GetVALORADOValue write SetVALORADOValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -679,7 +723,7 @@ type
 
   { IDarSumaImportesDelta }
   IDarSumaImportesDelta = interface(IDarSumaImportes)
-  ['{DFDB0CB4-85D3-449B-B350-EC3758E21B72}']
+  ['{ABF43821-73BF-42CB-9086-3677C16A7153}']
     { Property getters and setters }
     function GetOldBASEIMPONIBLEValue : Float;
     function GetOldIMPORTEIVAValue : Float;
@@ -725,6 +769,33 @@ implementation
 uses
   Variants, uROBinaryHelpers;
 
+{ TListaAnosAlbaranesBusinessProcessorRules }
+constructor TListaAnosAlbaranesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TListaAnosAlbaranesBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TListaAnosAlbaranesBusinessProcessorRules.GetANOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosAlbaranesANO];
+end;
+
+function TListaAnosAlbaranesBusinessProcessorRules.GetOldANOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosAlbaranesANO];
+end;
+
+procedure TListaAnosAlbaranesBusinessProcessorRules.SetANOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosAlbaranesANO] := aValue;
+end;
+
+
 { TDarReferenciaAlbaranBusinessProcessorRules }
 constructor TDarReferenciaAlbaranBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
 begin
@@ -1271,6 +1342,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteIMPORTEPUNTOS] := aValue;
 end;
 
+function TDetallesAlbaranClienteBusinessProcessorRules.GetVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteVALORADO];
+end;
+
+function TDetallesAlbaranClienteBusinessProcessorRules.GetOldVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesAlbaranClienteVALORADO];
+end;
+
+procedure TDetallesAlbaranClienteBusinessProcessorRules.SetVALORADOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteVALORADO] := aValue;
+end;
+
 
 { TAlbaranCliente_RefreshDatasetBusinessProcessorRules }
 constructor TAlbaranCliente_RefreshDatasetBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -1821,17 +1907,17 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoDESCRIPCION] := aValue;
 end;
 
-function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetCANTIDADValue: Float;
+function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetCANTIDADValue: Integer;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoCANTIDAD];
 end;
 
-function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldCANTIDADValue: Float;
+function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldCANTIDADValue: Integer;
 begin
   result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesAlbaranPagoCANTIDAD];
 end;
 
-procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
+procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
 begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoCANTIDAD] := aValue;
 end;
@@ -1896,6 +1982,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoPOSICION] := aValue;
 end;
 
+function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoVALORADO];
+end;
+
+function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesAlbaranPagoVALORADO];
+end;
+
+procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetVALORADOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoVALORADO] := aValue;
+end;
+
 
 { TDarSumaImportesBusinessProcessorRules }
 constructor TDarSumaImportesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -1955,6 +2056,7 @@ end;
 
 
 initialization
+  RegisterBusinessProcessorRules(RID_ListaAnosAlbaranesDelta, TListaAnosAlbaranesBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_DarReferenciaAlbaranDelta, TDarReferenciaAlbaranBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_AlbaranClienteDelta, TAlbaranClienteBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_AlbaranDePresupuestoDelta, TAlbaranDePresupuestoBusinessProcessorRules);

Modulos/Albaranes de cliente/Reglas/uBizAlbaranesCliente.pas

@@ -42,6 +42,7 @@ type
                                   IBizImportesDetalle,
                                   IBizPuntosDetalle,
                                   IBizVisibleDetalle,
+                                  IBizValoradoDetalle,
                                   IParche)    // PARCHE ***********************
   private
     FIsAppend : Boolean;
@@ -105,7 +106,7 @@ type
     property Detalles: IBizDetallesAlbaranCliente read GetDetalles write
             SetDetalles;
     procedure Show;
-    function ShowForSelect : TModalResult;    
+    function ShowForSelect : TModalResult;
     procedure Preview;
     procedure Print;
     procedure CopyFrom(APresupuesto : IBizPresupuestos);
@@ -133,6 +134,9 @@ var
 
 procedure ValidarAlbaranCliente (const AAlbaranCliente : IBizAlbaranesCliente);
 begin
+//No se podrán modificar los albaranes ya que van a desaparecer
+  raise Exception.Create('No puede modificar albaranes, solo podrá consultarlos');
+
   if (FloatToStr(AAlbaranCliente.FECHAALBARAN) = '0') then
     raise Exception.Create('Debe indicar la fecha de este albarán');
 
@@ -378,6 +382,7 @@ begin
       PUNTOS := ADetallesPresupuesto.PUNTOS;
       IMPORTEPUNTOS := ADetallesPresupuesto.IMPORTEPUNTOS;
       VISIBLE := ADetallesPresupuesto.VISIBLE;
+      VALORADO := ADetallesPresupuesto.VALORADO;
     finally
       DataTable.EnableControls;
       DataTable.EnableEventHandlers;
@@ -418,6 +423,7 @@ begin
   NUMCONCEPTO := -1;
   TIPO := TIPODETALLE_CONCEPTO;
   VISIBLE := VISIBLE_TRUE;
+  VALORADO := VALORADO_TRUE;
 
   Self.DataTable.DisableEventHandlers;
   try

Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm

@@ -6,8 +6,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
   ConnectionName = 'IBX'
   ServiceSchema = schAlbaranesCliente
   ServiceAdapter = DABINAdapter
-  Left = 413
-  Top = 252
+  Left = 683
+  Top = 257
   Height = 463
   Width = 347
   object schAlbaranesCliente: TDASchema
@@ -15,6 +15,39 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
     DataDictionary = dmServer.DataDictionary
     Diagrams = dmServer.DADiagrams
     Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'IBX'
+            SQL = 
+              'select ANO from'#10'(select distinct(substr(FECHAALBARAN, 1,4)) as A' +
+              'NO'#10'from albaranpago'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select distinct' +
+              ' '#39'Todos'#39' as ANO'#10'from empresas'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ANO'
+                TableField = 'ANO'
+              end>
+          end>
+        Name = 'ListaAnosAlbaranes'
+        Fields = <
+          item
+            Name = 'ANO'
+            DataType = datString
+            Size = 254
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
       item
         Params = <>
         Statements = <
@@ -416,8 +449,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             SQL = 
               'SELECT'#10'    CODIGOALBARAN, NUMCONCEPTO, POSICION, TIPO, DESCRIPCI' +
               'ON, CANTIDAD,'#10'    IMPORTEUNIDAD, IMPORTETOTAL, VISIBLE, PUNTOS, ' +
-              'IMPORTEPUNTOS'#10'  FROM'#10'    DETALLESALBARANPAGO'#10'  WHERE CODIGOALBAR' +
-              'AN = :CODIGOALBARAN'#10'  ORDER BY POSICION'
+              'IMPORTEPUNTOS, VALORADO'#10'  FROM'#10'    DETALLESALBARANPAGO'#10'  WHERE C' +
+              'ODIGOALBARAN = :CODIGOALBARAN'#10'  ORDER BY POSICION'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -463,6 +496,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
               item
                 DatasetField = 'IMPORTEPUNTOS'
                 TableField = 'IMPORTEPUNTOS'
+              end
+              item
+                DatasetField = 'VALORADO'
+                TableField = 'VALORADO'
               end>
           end>
         Name = 'DetallesAlbaranCliente'
@@ -580,6 +617,18 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'VALORADO'
+            DataType = datString
+            Size = 1
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
@@ -1141,9 +1190,9 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             TargetTable = 'ALBARANPAGO'
             SQL = 
               'SELECT CODIGOALBARAN, NUMCONCEPTO, DESCRIPCION, CANTIDAD, IMPORT' +
-              'EUNIDAD,'#10'IMPORTETOTAL, TIPO, POSICION'#10'FROM DETALLESALBARANPAGO'#10'W' +
-              'HERE CODIGOALBARAN = :CODIGOALBARAN AND'#10'VISIBLE = '#39'S'#39#10'ORDER BY P' +
-              'OSICION;'
+              'EUNIDAD,'#10'IMPORTETOTAL, TIPO, POSICION, VALORADO'#10'FROM DETALLESALB' +
+              'ARANPAGO'#10'WHERE CODIGOALBARAN = :CODIGOALBARAN AND'#10'VISIBLE = '#39'S'#39#10 +
+              'ORDER BY POSICION;'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -1177,6 +1226,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
               item
                 DatasetField = 'POSICION'
                 TableField = 'POSICION'
+              end
+              item
+                DatasetField = 'VALORADO'
+                TableField = 'VALORADO'
               end>
           end>
         Name = 'InformeDetallesAlbaranPago'
@@ -1217,7 +1270,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
           end
           item
             Name = 'CANTIDAD'
-            DataType = datFloat
+            DataType = datInteger
             BlobType = dabtUnknown
             DisplayWidth = 0
             Alignment = taLeftJustify
@@ -1270,6 +1323,18 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'VALORADO'
+            DataType = datString
+            Size = 1
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript

Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas

@@ -29,8 +29,8 @@ type
     tbl_AlbaranPago: TDACDSDataTable;
     tbl_DetallesAlbaranPago: TDACDSDataTable;
     DABINAdapter: TDABINAdapter;
-    schAlbaranesCliente: TDASchema;
     frxReport1: TfrxReport;
+    schAlbaranesCliente: TDASchema;
   private
   protected
     function GetNextAutoinc: Integer;    

Modulos/Almacenes/Cliente/Almacenes.dof

@@ -142,12 +142,12 @@ Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
 Count=16
-Item0=$(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
-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
-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
-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
-Item4=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
-Item5=$(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=..\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
@@ -173,3 +173,486 @@ Item2=..\..\Output\Cliente
 [HistoryLists\hlDCPOutput]
 Count=1
 Item0=.\
+[Exception Log]
+EurekaLog Version=6006
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=0
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+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=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+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_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU 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_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+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 mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+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_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+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_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_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+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_OSCharset=1
+mtLog_OSCharset0="Charset"
+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 mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+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 mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+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 mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_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."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+
+

Modulos/Almacenes/Cliente/uEditorAlmacenes.dfm

@@ -30,7 +30,6 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
   end
   inherited TBXDock: TTBXDock
     inherited tbxFiltro: TTBXToolbar
-      Left = 411
       inherited tbxEditFiltro: TTBXEditItem
         EditOptions = [tboUseEditWhenVertical]
       end
@@ -42,7 +41,7 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
   inline frViewBarraSeleccion: TfrViewBarraSeleccion [3]
     Left = 0
     Top = 395
-    Width = 885
+    Width = 706
     Height = 37
     Align = alBottom
     AutoScroll = False
@@ -57,7 +56,7 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
     ReadOnly = False
     inherited pnlSeleccion: TPanel
       Top = 0
-      Width = 885
+      Width = 706
       inherited bSeleccionar: TButton
         Left = 550
       end
@@ -76,6 +75,14 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
       ImageIndex = 22
       OnExecute = actNuevoExecute
     end
+    inherited actPrevisualizarDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
+    inherited actImprimirDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
     inherited actDuplicar: TAction
       Visible = False
     end

Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm

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

Modulos/Articulos/Cliente/Articulos.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;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Montajes\Cliente;..\..\Documentos asociados"
--O"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Montajes\Cliente;..\..\Documentos asociados"
--I"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Montajes\Cliente;..\..\Documentos asociados"
--R"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Montajes\Cliente;..\..\Documentos asociados"
+-U"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Montajes\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Pagos\Cliente;..\..\..\Modulos\Intervalos\Cliente;..\..\..\Modulos\Asientos\Cliente;..\..\..\Modulos\Cuentas\Cliente"
+-O"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Montajes\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Pagos\Cliente;..\..\..\Modulos\Intervalos\Cliente;..\..\..\Modulos\Asientos\Cliente;..\..\..\Modulos\Cuentas\Cliente"
+-I"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Montajes\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Pagos\Cliente;..\..\..\Modulos\Intervalos\Cliente;..\..\..\Modulos\Asientos\Cliente;..\..\..\Modulos\Cuentas\Cliente"
+-R"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Montajes\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Pagos\Cliente;..\..\..\Modulos\Intervalos\Cliente;..\..\..\Modulos\Asientos\Cliente;..\..\..\Modulos\Cuentas\Cliente"
 -Z
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE

Modulos/Articulos/Cliente/Articulos.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;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Montajes\Cliente;..\..\Documentos asociados
+SearchPath=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Montajes\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Pagos\Cliente;..\..\..\Modulos\Intervalos\Cliente;..\..\..\Modulos\Asientos\Cliente;..\..\..\Modulos\Cuentas\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;dxPScxSchedulerLnkD7;dxPScxTLLnkD7;dxPSDBTeeChartD7;dxPsPrVwAdvD7
 Conditionals=
 DebugSourceDirs=
@@ -134,6 +134,47 @@ OriginalFilename=
 ProductName=
 ProductVersion=1.0.0.0
 Comments=
+[Excluded Packages]
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxThemeD7.bpl=Express XP Theme Manager by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxEditorsVCLD7.bpl=ExpressEditors Library 5 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxDataD7.bpl=ExpressDataController by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxExtEditorsVCLD7.bpl=ExpressExtendedEditors Library 5 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxGridVCLD7.bpl=ExpressQuantumGrid 5 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxPageControlVCLD7.bpl=Express Cross Platform PageControl (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxExportVCLD7.bpl=Express Cross Platform Export Library (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxSchedulerVCLD7.bpl=ExpressScheduler 2 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxTreeListVCLD7.bpl=ExpressQuantumTreeList 4 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxVerticalGridVCLD7.bpl=ExpressVerticalGrid (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarD7.bpl=ExpressBars by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxComnD7.bpl=ExpressCommonLibrary by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarDBNavD7.bpl=ExpressBars DBNavigator by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarExtDBItemsD7.bpl=ExpressBars extended DB items by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarExtItemsD7.bpl=ExpressBars extended items by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxDockingD7.bpl=ExpressDocking Library by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxLayoutControlD7.bpl=ExpressLayout Control by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxNavBarD7.bpl=ExpressNavBar by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxGDIPlusD7.bpl=ExpressGDI+ Library by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxsbD7.bpl=ExpressSideBar by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\VirtualTreesD7.bpl=Virtual Treeview runtime package
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\EPCOTAUtils70.bpl=EPC Open Tools API utilities
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\Jcl70.bpl=JEDI Code Library RTL package
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JclVcl70.bpl=JEDI Code Library VCL package
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\PluginSDK_D7R.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxADO7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsADO7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsDB7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fs7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxDB7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frx7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxBDE7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsBDE7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxDBX7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxe7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxIBX7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsIBX7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxTee7.bpl=(untitled)
 [HistoryLists\hlDebugSourcePath]
 Count=1
 Item0=D:\Proyectos\Componentes\GUISDK\Sources\;D:\Proyectos\Componentes\PluginSDK\Source\;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Cliente;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Reglas
@@ -141,23 +182,37 @@ 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=$(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
-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
-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
-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
-Item4=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
-Item5=$(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
-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=30
+Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Articulos\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Cuentas\Cliente;..\..\..\Modulos\Asientos\Cliente;..\..\..\Modulos\Intervalos\Cliente;..\..\..\Modulos\Pagos\Cliente
+Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Articulos\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Cuentas\Cliente;..\..\..\Modulos\Asientos\Cliente;..\..\..\Modulos\Intervalos\Cliente
+Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Articulos\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Cuentas\Cliente;..\..\..\Modulos\Asientos\Cliente
+Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Articulos\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Cuentas\Cliente
+Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Articulos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Cuentas\Cliente;..\..\..\Modulos\Asientos\Cliente;..\..\..\Modulos\Intervalos\Cliente;..\..\..\Modulos\Pagos\Cliente
+Item5=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Articulos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Cuentas\Cliente;..\..\..\Modulos\Asientos\Cliente;..\..\..\Modulos\Intervalos\Cliente
+Item6=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Articulos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Cuentas\Cliente;..\..\..\Modulos\Asientos\Cliente
+Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Articulos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Cuentas\Cliente
+Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Montajes\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Pagos\Cliente;..\..\..\Modulos\Intervalos\Cliente;..\..\..\Modulos\Asientos\Cliente;..\..\..\Modulos\Cuentas\Cliente
+Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Montajes\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Pagos\Cliente;..\..\..\Modulos\Intervalos\Cliente;..\..\..\Modulos\Asientos\Cliente
+Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Montajes\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Pagos\Cliente;..\..\..\Modulos\Intervalos\Cliente
+Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Montajes\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Pagos\Cliente
+Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Pagos\Cliente;..\..\..\Modulos\Intervalos\Cliente;..\..\..\Modulos\Asientos\Cliente;..\..\..\Modulos\Cuentas\Cliente
+Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Pagos\Cliente;..\..\..\Modulos\Intervalos\Cliente;..\..\..\Modulos\Asientos\Cliente
+Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Pagos\Cliente;..\..\..\Modulos\Intervalos\Cliente
+Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\..\..\Modulos\Presupuestos\Cliente;..\..\..\Modulos\Contactos\Cliente;..\..\..\Modulos\Pedidos a proveedor\Cliente;..\..\..\Modulos\Almacenes\Cliente;..\..\Documentos asociados;..\..\..\Modulos\Pagos\Cliente
+Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Presupuestos\Cliente;..\..\Almacenes\Cliente;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente;..\..\Pagos\Cliente
+Item17=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Presupuestos\Cliente;..\..\Almacenes\Cliente;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente
+Item18=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Presupuestos\Cliente;..\..\Almacenes\Cliente;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Cuentas\Cliente;..\..\Asientos\Cliente
+Item19=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Presupuestos\Cliente;..\..\Almacenes\Cliente;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Cuentas\Cliente
+Item20=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
+Item21=$(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
+Item22=$(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
+Item23=$(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
+Item24=$(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
+Item25=$(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
+Item26=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
+Item27=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
+Item28=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
+Item29=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=.\
@@ -173,3 +228,486 @@ Item2=..\..\Output\Cliente
 [HistoryLists\hlDCPOutput]
 Count=1
 Item0=.\
+[Exception Log]
+EurekaLog Version=6006
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=0
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+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=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+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_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU 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_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+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 mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+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_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+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_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_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+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_OSCharset=1
+mtLog_OSCharset0="Charset"
+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 mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+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 mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+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 mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_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."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+
+

Modulos/Articulos/Cliente/Articulos.dpk

@@ -71,7 +71,11 @@ requires
   bdertl,
   Almacenes,
   PedidosProveedor,
-  Montajes_Intf;
+  Montajes_Intf,
+  Pagos,
+  Intervalos,
+  Asientos,
+  Cuentas;
 
 contains
   uPluginControllerArticulos in 'uPluginControllerArticulos.pas' {ModuleArticulos: TModuleController},

Modulos/Articulos/Cliente/uDataModuleArticulos.dfm

@@ -11,7 +11,7 @@ object dmArticulos: TdmArticulos
       DataType = rtString
     end>
   Left = 328
-  Top = 337
+  Top = 294
   Height = 197
   Width = 369
   object RORemoteService: TRORemoteService

Modulos/Articulos/Cliente/uDataModuleArticulos.pas

@@ -100,8 +100,7 @@ begin
   begin
     Clear;
     OpenBraket;
-    AddText('MONTAJES.SITUACION not in (''' + SITUACION_PENDIENTEPAGO + ''', ''' + SITUACION_PAGADO + ''')', False);
-//    AddText('MONTAJES.FECHAFIN is null', False);
+    AddText('(MONTAJES.SITUACION is null) OR (MONTAJES.SITUACION not in (''' + SITUACION_PENDIENTEPAGO + ''', ''' + SITUACION_PAGADO + '''))', False);
     CloseBraket;
   end;
 

Modulos/Articulos/Cliente/uEditorArticulosAlmacen.dfm

@@ -1,6 +1,6 @@
 inherited fEditorArticulosAlmacen: TfEditorArticulosAlmacen
   Left = 162
-  Top = 243
+  Top = 212
   Caption = 'Inventario de art'#237'culos en almacenes'
   PixelsPerInch = 96
   TextHeight = 13
@@ -54,7 +54,6 @@ inherited fEditorArticulosAlmacen: TfEditorArticulosAlmacen
       end
     end
     inherited tbxFiltro: TTBXToolbar
-      Left = 655
       inherited TBXItem37: TTBXItem
         Visible = False
       end
@@ -63,7 +62,7 @@ inherited fEditorArticulosAlmacen: TfEditorArticulosAlmacen
   inline frViewBarraSeleccion: TfrViewBarraSeleccion [3]
     Left = 0
     Top = 395
-    Width = 885
+    Width = 706
     Height = 37
     Align = alBottom
     AutoScroll = False
@@ -78,7 +77,7 @@ inherited fEditorArticulosAlmacen: TfEditorArticulosAlmacen
     ReadOnly = False
     inherited pnlSeleccion: TPanel
       Top = 0
-      Width = 885
+      Width = 706
       inherited bSeleccionar: TButton
         Left = 536
       end
@@ -108,6 +107,14 @@ inherited fEditorArticulosAlmacen: TfEditorArticulosAlmacen
       Caption = 'Salida'
       ImageIndex = 22
     end
+    inherited actPrevisualizarDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
+    inherited actImprimirDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
     inherited actDuplicar: TAction
       Visible = False
     end

Modulos/Articulos/Cliente/uEditorEntradaArticulos.dfm

@@ -13,8 +13,8 @@ inherited fEditorEntradaArticulos: TfEditorEntradaArticulos
       inline frViewListaArticulos: TfrViewListaArticulos
         Left = 0
         Top = 117
-        Width = 658
-        Height = 242
+        Width = 654
+        Height = 238
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -25,8 +25,8 @@ inherited fEditorEntradaArticulos: TfEditorEntradaArticulos
         TabOrder = 0
         ReadOnly = False
         inherited cxGrid: TcxGrid
-          Width = 658
-          Height = 217
+          Width = 654
+          Height = 213
           inherited cxGridView: TcxGridDBTableView
             OptionsCustomize.ColumnSorting = True
             inherited cxGridViewCODIGOALMACEN: TcxGridDBColumn
@@ -41,13 +41,13 @@ inherited fEditorEntradaArticulos: TfEditorEntradaArticulos
           end
         end
         inherited ToolBar1: TToolBar
-          Width = 658
+          Width = 654
         end
       end
       inline frViewDatosPedido: TfrViewDatosPedido
         Left = 0
         Top = 0
-        Width = 658
+        Width = 654
         Height = 117
         Align = alTop
         Font.Charset = DEFAULT_CHARSET

Modulos/Articulos/Cliente/uEditorEntradaArticulos.pas

@@ -9,7 +9,8 @@ uses
   PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
   TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane, uCustomView,
   uViewBase, uViewContenido, uViewListaArticulos, uBizArticulos,
-  uEditorItem, pngimage, uViewDetallesNormales, uViewDatosPedido;
+  uEditorItem, pngimage, uViewDetallesNormales, uViewDatosPedido,
+  JvComponentBase;
 
 type
   TfEditorEntradaArticulos = class(TfEditorDBItem)

Modulos/Articulos/Cliente/uPluginControllerArticulos.dfm

@@ -7,8 +7,8 @@ object ModuleArticulos: TModuleArticulos
   LargeImages = LargeImages
   Author = 'Rodax Software'
   Version = '1.0.0'
-  Left = 691
-  Top = 507
+  Left = 690
+  Top = 441
   Height = 252
   Width = 401
   object LargeImages: TPngImageList

Modulos/Articulos/Servidor/srvArticulos_Impl.dfm

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

Modulos/Asientos/Cliente/Asientos.dof

@@ -144,12 +144,12 @@ Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
 Count=16
-Item0=$(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
-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
-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
-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
-Item4=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
-Item5=$(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=..\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
@@ -175,3 +175,486 @@ Item2=..\..\Output\Cliente
 [HistoryLists\hlDCPOutput]
 Count=1
 Item0=.\
+[Exception Log]
+EurekaLog Version=6006
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=0
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+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=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+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_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU 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_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+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 mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+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_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+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_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_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+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_OSCharset=1
+mtLog_OSCharset0="Charset"
+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 mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+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 mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+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 mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_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."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+
+

Modulos/Asientos/Servidor/srvAsientos_Impl.dfm

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