From 0cad7669b719e93b9e859954280d1a4b35342ade Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Tue, 20 Oct 2009 18:43:15 +0000
Subject: [PATCH] Se adapta el programa para poder facturar albaranes, poner
 correos distintos a las sucursales de la empresa y se hace bien la politica
 de restricciones con una tabla y todo. Se repasan cabeceras de informes

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@36 0a814768-cfdd-9c42-8d01-223fcc10da9d
---
 Clientes/FacturarAlbaran.dfm | 268 +++++++++++++++++++++++++
 Clientes/FacturarAlbaran.pas | 112 +++++++++++
 Factuges.dsk                 | 367 +++++++++++++++++++++++++++++++++++
 bd/ABETO.GDB                 | Bin 18030592 -> 18030592 bytes
 4 files changed, 747 insertions(+)
 create mode 100644 Clientes/FacturarAlbaran.dfm
 create mode 100644 Clientes/FacturarAlbaran.pas
 create mode 100644 Factuges.dsk

diff --git a/Clientes/FacturarAlbaran.dfm b/Clientes/FacturarAlbaran.dfm
new file mode 100644
index 0000000..9cf3960
--- /dev/null
+++ b/Clientes/FacturarAlbaran.dfm
@@ -0,0 +1,268 @@
+object frFacturarAlbaran: TfrFacturarAlbaran
+  Left = 480
+  Top = 272
+  BorderStyle = bsDialog
+  Caption = 'Facturar albar'#225'n de cliente'
+  ClientHeight = 244
+  ClientWidth = 372
+  Color = 16383743
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnCreate = FormCreate
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object eTexto: TLabel
+    Left = 8
+    Top = 33
+    Width = 369
+    Height = 32
+    AutoSize = False
+    Caption = 
+      'Se va a crear una factura de cliente para el albar'#225'n %s. Elija q' +
+      'u'#233' tipo de factura desea:'
+    WordWrap = True
+  end
+  object eEmpresa: TLabel
+    Left = 32
+    Top = 161
+    Width = 305
+    Height = 32
+    AutoSize = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clRed
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    WordWrap = True
+  end
+  object RdxPanel1: TRdxPanel
+    Left = 32
+    Top = 72
+    Width = 309
+    Height = 81
+    BorderStyle = bsSingle
+    Caption = ' '
+    BorderWidth = 1
+    Color = 15726583
+    ColorHighLight = 8623776
+    ColorShadow = 8623776
+    TabOrder = 0
+    UseDockManager = True
+    object eCodigo: TLabel
+      Left = 45
+      Top = 31
+      Width = 77
+      Height = 13
+      Alignment = taRightJustify
+      Caption = 'Tipo de factura:'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+    end
+    object cbxTipoFactura: TcxComboBox
+      Left = 124
+      Top = 27
+      ParentFont = False
+      Properties.DropDownListStyle = lsFixedList
+      Properties.Items.Strings = (
+        'Normal'
+        'Abono')
+      Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+      TabOrder = 0
+      Width = 121
+    end
+  end
+  object Titulo: TRdxBarraSuperior
+    Left = 0
+    Top = 0
+    Width = 372
+    Height = 25
+    Caption = 'Facturar albar'#225'n de cliente'
+    BorderWidth = 1
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = 11590911
+    Font.Height = -19
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    Color = 18299
+    ColorHighLight = 8623776
+    ColorShadow = 8623776
+    Align = alTop
+    Alignment = taRightJustify
+    TabOrder = 1
+    UseDockManager = True
+    Margen = 5
+  end
+  object brDoble: TRdxBarraInferior
+    Left = 0
+    Top = 194
+    Width = 372
+    Height = 50
+    Caption = ' '
+    ParentColor = True
+    ColorHighLight = 8623776
+    ColorShadow = clBtnFace
+    Align = alBottom
+    TabOrder = 2
+    UseDockManager = True
+    Margen = 10
+    object bAceptar: TRdxBoton
+      Left = 202
+      Top = 18
+      Width = 75
+      Height = 25
+      Alignment = taLeftJustify
+      Color = 14280169
+      ColorFocused = 12775679
+      ColorDown = 14280169
+      ColorBorder = 8623776
+      ColorHighLight = 8623776
+      ColorShadow = 8623776
+      GroupIndex = -1
+      Down = True
+      Caption = '&Aceptar'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      FontDown.Charset = DEFAULT_CHARSET
+      FontDown.Color = clWindowText
+      FontDown.Height = -11
+      FontDown.Name = 'Tahoma'
+      FontDown.Style = []
+      FontDisabled.Charset = DEFAULT_CHARSET
+      FontDisabled.Color = clWindowText
+      FontDisabled.Height = -11
+      FontDisabled.Name = 'MS Sans Serif'
+      FontDisabled.Style = []
+      Glyph.Data = {
+        36040000424D3604000000000000360000002800000010000000100000000100
+        2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FAFAFA00EBEBEB00E6E6E600EBEBEB00FAFA
+        FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FAFAFA00DCDCDC00A8A8A80098989800A8A8A800DCDC
+        DC00FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FAFAFA00DCDCDC007DB90C0075AC0E0075AC0E0084848400A8A8
+        A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FAFAFA00DCDCDC007AB40D007DB90C0084C50B007DB90C0075AC0E009494
+        9400D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FAFA
+        FA00DCDCDC007AB40D0071A6100084C50B0084C50B0087C90A0089CD09008484
+        8400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EBEB
+        EB007AB40D0071A6100084C50B008CD207007AB40D007DB90C0080BF0B0089CD
+        090094949400D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF007AB4
+        0D0071A6100092DB05008CD2070075AC0E00DCDCDC0080BF0B0084C50B0089CD
+        090084848400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF006EA1
+        110098E6030075AC0E006EA11100DCDCDC00FAFAFA00FFFFFF0084C50B0089CD
+        090089CD090094949400D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFFFF00618D
+        130075AC0E0065921200EBEBEB00FAFAFA00FFFFFF00FFFFFF0087C90A008CD2
+        070084C50B0084848400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008CD2
+        070092DB050087C90A0094949400D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0090D7
+        060092DB050084C50B0084848400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF0096E3040098E6030087C90A0094949400D7D7D700FAFAFA00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF0096E304009AEA020084C50B0084848400A8A8A800EBEBEB00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF009AEA020092DB050084C50B00ADADAD00EBEBEB00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF0092DB05007AB40D0092DB0500EBEBEB00FAFAFA00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
+      Margin = 7
+      ParentFont = False
+      ParentColor = False
+      TabStop = True
+      TabOrder = 0
+      Spacing = 6
+      ModalResult = 6
+      OnClick = bAceptarClick
+    end
+    object bCancelar: TRdxBoton
+      Left = 287
+      Top = 18
+      Width = 75
+      Height = 25
+      Cancel = True
+      Alignment = taLeftJustify
+      Color = 14280169
+      ColorFocused = 12775679
+      ColorDown = 14280169
+      ColorBorder = 8623776
+      ColorHighLight = 8623776
+      ColorShadow = 8623776
+      GroupIndex = -1
+      Caption = '&Cancelar'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      FontDown.Charset = DEFAULT_CHARSET
+      FontDown.Color = clWindowText
+      FontDown.Height = -11
+      FontDown.Name = 'Tahoma'
+      FontDown.Style = []
+      FontDisabled.Charset = DEFAULT_CHARSET
+      FontDisabled.Color = clWindowText
+      FontDisabled.Height = -11
+      FontDisabled.Name = 'MS Sans Serif'
+      FontDisabled.Style = []
+      Glyph.Data = {
+        36040000424D3604000000000000360000002800000010000000100000000100
+        2000000000000004000000000000000000000000000000000000FFFFFF00FAFA
+        FA00EBEBEB00E6E6E600EBEBEB00FAFAFA00FFFFFF00FFFFFF00FAFAFA00EBEB
+        EB00EBEBEB00FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EBEB
+        EB00ADADAD0098989800ADADAD00EBEBEB00FFFFFF00FAFAFA00DCDCDC00A8A8
+        A800A8A8A800DCDCDC00FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF001B1B
+        CB000807BE000807BE0094949400D7D7D700F5F5F500DCDCDC000505BC000505
+        BC0084848400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00393A
+        DF005F5FF8004B4CEA0084848400A3A3A300C8C8C8001313C5006867FD006B6B
+        FF002827D30098989800E6E6E600FFFFFF00FFFFFF00FFFFFF00FFFFFF004F4E
+        EC006363F9006A6AFE004343E500848484001313C5005B5BF5006A6AFE006A6A
+        FE003839DE0099999900E6E6E600FFFFFF00FFFFFF00FFFFFF00FFFFFF00393A
+        DE005A5AF4005A5AF4006766FC004343E5005B5BF5006363F9006766FC005E5E
+        F700201FCD00A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00393ADE005251EE005454F0005F5EF7006363F9005555F1006363F9004A4B
+        E900201FCC00D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00393ADE004F4EEC005251EE005454F0006363F9004B4CEA00201F
+        CD0098989800E6E6E600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF004A4BE9004242E4004A4BE9004A4BE9004B4CEA00201F
+        CD0094949400D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FAFAFA004343E5003839DE004242E4004242E4004A4BE9004343
+        E50084848400A3A3A300DCDCDC00FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00EBEBEB004F4EEC002D2DD6003637DC003839DE004242E4004242
+        E4001B1BCB0084848400A3A3A300DCDCDC00FAFAFA00FFFFFF00FFFFFF00FFFF
+        FF00FAFAFA003434DB003434DB002C2CD5003333DA003434DB003434DB003C3C
+        E0004242E4001313C50084848400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFF
+        FF00EBEBEB003434DB003333DA002222CF002827D300504FEC004242E4003434
+        DB003637DC003738DD001313C50099999900E6E6E600FFFFFF00FFFFFF00FFFF
+        FF005251EE00393ADF001B1BCB003434DB003C3CE000A8A8A8002D2DD5003C3C
+        E0003434DB004242E4001313C500ADADAD00EBEBEB00FFFFFF00FFFFFF00FFFF
+        FF00504FEC004343E5004343E5004343E5003434DA00DCDCDC00FAFAFA002222
+        CE00393ADE003D3DE0002D2DD500EBEBEB00FAFAFA00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00504FED004B4CEA004B4CEA00EBEBEB00FAFAFA00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
+      Margin = 6
+      ParentFont = False
+      ParentColor = False
+      TabStop = True
+      TabOrder = 1
+      Spacing = 6
+      ModalResult = 2
+      OnClick = bCancelarClick
+    end
+  end
+end
diff --git a/Clientes/FacturarAlbaran.pas b/Clientes/FacturarAlbaran.pas
new file mode 100644
index 0000000..3c43f54
--- /dev/null
+++ b/Clientes/FacturarAlbaran.pas
@@ -0,0 +1,112 @@
+{
+===============================================================================
+  Copyright (©) 2002. Rodax Software.
+===============================================================================
+  Los contenidos de este fichero son propiedad de Rodax Software titular del
+  copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+  acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+  bajo el que se suministra.
+  -----------------------------------------------------------------------------
+  Web:  www.rodax-software.com
+===============================================================================
+  Fecha primera versión: 19-10-2009
+  Versión actual: 1.0.0
+  Fecha versión actual: 19-10-2009
+===============================================================================
+  Modificaciones:
+
+    Fecha         Comentarios
+    ---------------------------------------------------------------------------
+    19-10-2009    Se crea unidad para poder generar facturas de cliente a partir de los albaranes
+===============================================================================
+}
+
+unit FacturarAlbaran;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxControls, cxContainer, cxEdit, cxTextEdit, RdxEmpresaActiva,
+  cxMaskEdit, cxDropDownEdit, cxCalendar, RdxBarras, StdCtrls, ExtCtrls,
+  RdxPaneles, RdxBotones, ActnList, cxGraphics;
+
+type
+  TfrFacturarAlbaran = class(TForm)
+    RdxPanel1: TRdxPanel;
+    eTexto: TLabel;
+    Titulo: TRdxBarraSuperior;
+    eCodigo: TLabel;
+    brDoble: TRdxBarraInferior;
+    bAceptar: TRdxBoton;
+    bCancelar: TRdxBoton;
+    cbxTipoFactura: TcxComboBox;
+    eEmpresa: TLabel;
+    procedure FormCreate(Sender: TObject);
+    procedure bCancelarClick(Sender: TObject);
+    procedure bAceptarClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+  private
+    FCodigoAlbaran : String;
+    FCodigoFactura : String;
+    procedure SetCodigoAlbaran(const Value: String);
+  public
+    property CodigoAlbaran : String read FCodigoAlbaran write SetCodigoAlbaran;
+    property CodigoFactura : String read FCodigoFactura;
+  end;
+
+var
+  frFacturarAlbaran: TfrFacturarAlbaran;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  Mensajes, Literales, StrFunc, TablaFacturasCliente, Configuracion, Entidades,
+  Constantes;
+
+procedure TfrFacturarAlbaran.FormCreate(Sender: TObject);
+begin
+  ConfigurarFrame(Self, entContratoCliente);
+  FCodigoFactura := '';
+  cbxTipoFactura.Text := cbxTipoFactura.Properties.Items[0];
+end;
+
+procedure TfrFacturarAlbaran.bCancelarClick(Sender: TObject);
+begin
+  ModalResult := mrCancel;
+end;
+
+procedure TfrFacturarAlbaran.bAceptarClick(Sender: TObject);
+var
+  TipoAux : String;
+begin
+  if (not EsCadenaVacia(FCodigoAlbaran)) then
+  begin
+    if cbxTipoFactura.Text = 'Normal' then
+      TipoAux := CTE_CF_FACTURA
+    else
+      TipoAux := CTE_CF_ABONO;
+    FCodigoFactura := dmTablaFacturasCliente.CrearFacturaAlbaran(FCodigoAlbaran, TipoAux);
+  end;
+  if EsCadenaVacia(FCodigoFactura) then
+  begin
+    VerMensaje('No se ha podido crear la factura para el contrato');
+    ModalResult := mrNone;
+  end;
+end;
+
+procedure TfrFacturarAlbaran.SetCodigoAlbaran(const Value: String);
+begin
+  FCodigoAlbaran := Value;
+  eTexto.Caption := Format(eTexto.Caption, [FCodigoAlbaran]);
+end;
+
+procedure TfrFacturarAlbaran.FormShow(Sender: TObject);
+begin
+  eEmpresa.Caption := 'La factura se creará con la empresa ' + EmpresaActiva.NombreComercial + '. ';
+end;
+
+end.
diff --git a/Factuges.dsk b/Factuges.dsk
new file mode 100644
index 0000000..b6d32ba
--- /dev/null
+++ b/Factuges.dsk
@@ -0,0 +1,367 @@
+[Closed Files]
+File_0=SourceModule,'C:\Codigo Abeto\Informes\InformeBase.pas',0,1,212,36,224,0,0
+File_1=SourceModule,'C:\Codigo Abeto\Informes\InformePresupuestoCliente.pas',0,1,167,41,180,1,1
+File_2=SourceModule,'C:\Codigo Abeto\BaseDatos\TablaEmpresas.pas',0,1,75,14,54,0,0
+File_3=SourceModule,'C:\Codigo Abeto\Empresas\Empresa.pas',0,1,823,56,847,1,0
+File_4=SourceModule,'C:\Codigo Abeto\Informes\InformeBaseFR3.pas',0,1,65,28,79,0,0
+File_5=SourceModule,'C:\Codigo Abeto\Informes\InformePagoCliente.pas',0,1,84,37,98,0,0
+File_6=SourceModule,'C:\Codigo Abeto\BaseDatos\TablaFacturasCliente.pas',0,1,1873,1,1899,0,0
+File_7=SourceModule,'C:\Codigo Abeto\BaseDatos\BaseDatos.pas',0,1,163,14,171,0,0
+File_8=SourceModule,'C:\Codigo Abeto\Libreria\RdxEmpresaActiva.pas',0,1,203,61,206,0,0
+File_9=SourceModule,'C:\Codigo Abeto\Proveedores\BarraProveedores.pas',0,1,1,23,65,1,0
+
+[Modules]
+Count=0
+EditWindowCount=0
+
+[C:\Archivos de programa\Borland\Delphi7\Projects\ProjectGroup1.bpg]
+FormState=0
+FormOnTop=0
+
+[C:\Codigo Abeto\Factuges.dpr]
+FormState=0
+FormOnTop=0
+
+[C:\Codigo Abeto\Libreria\Configuracion.pas]
+FormState=0
+FormOnTop=0
+
+[C:\Codigo Abeto\Frames\RdxFrame.pas]
+FormState=0
+FormOnTop=0
+
+[C:\Codigo Abeto\Calendario\CalendarioPagos.pas]
+FormState=0
+FormOnTop=0
+
+[Watches]
+Count=0
+
+[WatchWindow]
+WatchColumnWidth=100
+WatchShowColumnHeaders=1
+Create=1
+Visible=0
+State=0
+Left=146
+Top=563
+Width=842
+Height=149
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=834
+ClientHeight=123
+TBDockHeight=36
+LRDockWidth=842
+Dockable=1
+
+[Breakpoints]
+Count=1
+Breakpoint0='C:\Codigo Abeto\BaseDatos\TablaEmpresas.pas',387,'',0,1,'',1,0,0,'',1,'','',''
+
+[AddressBreakpoints]
+Count=0
+
+[Main Window]
+Create=1
+Visible=1
+State=2
+Left=0
+Top=0
+Width=640
+Height=112
+MaxLeft=-1
+MaxTop=-1
+MaxWidth=1680
+MaxHeight=112
+ClientWidth=1672
+ClientHeight=78
+
+[ProjectManager]
+Create=1
+Visible=1
+State=0
+Left=-1
+Top=107
+Width=423
+Height=665
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=415
+ClientHeight=639
+TBDockHeight=871
+LRDockWidth=438
+Dockable=1
+
+[Components]
+Left=548
+Top=379
+Width=183
+Height=266
+Create=1
+Visible=0
+State=0
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=175
+ClientHeight=240
+TBDockHeight=266
+LRDockWidth=183
+Dockable=1
+
+[CPUWindow]
+Create=1
+Visible=0
+State=0
+Left=5
+Top=5
+Width=638
+Height=444
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=630
+ClientHeight=410
+DumpPane=79
+DisassemblyPane=187
+RegisterPane=231
+FlagPane=64
+
+[AlignmentPalette]
+Create=1
+Visible=1
+State=0
+Left=200
+Top=107
+Width=156
+Height=84
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=150
+ClientHeight=60
+
+[PropertyInspector]
+Create=1
+Visible=1
+State=0
+Left=0
+Top=0
+Width=412
+Height=734
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=412
+ClientHeight=734
+TBDockHeight=557
+LRDockWidth=317
+Dockable=1
+SplitPos=201
+ArrangeBy=Name
+SelectedItem=Name
+ExpandedItems=ActiveTranslateStringEngine,Anchors,AppStorage,BevelEdges,Brush,Constraints,DataBinding,DataController,DataController.Filter,DataController.Options,DataController.Summary,DataController.Summary.Options,Filtering,HTTPOptions,LookAndFeel.AssignedValues,NavigatorButtons.Cancel,NavigatorButtons.Delete,NavigatorButtons.Edit,Options,OptionsBehavior,OptionsData,OptionsSelection,OptionsView,Preview,Properties,Properties.Alignment,Properties.SpinButtons,StorageOptions,Style,Styles,VertScrollBar
+HiddenCategories=
+
+[BreakpointWindow]
+Create=1
+Visible=0
+State=0
+Left=174
+Top=742
+Width=820
+Height=262
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=812
+ClientHeight=236
+TBDockHeight=197
+LRDockWidth=737
+Dockable=1
+Column0Width=100
+Column1Width=75
+Column2Width=200
+Column3Width=200
+Column4Width=75
+Column5Width=75
+
+[CallStackWindow]
+Create=1
+Visible=0
+State=0
+Left=490
+Top=356
+Width=351
+Height=293
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=343
+ClientHeight=267
+TBDockHeight=161
+LRDockWidth=203
+Dockable=1
+
+[ThreadStatusWindow]
+Create=1
+Visible=0
+State=0
+Left=744
+Top=176
+Width=624
+Height=152
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=616
+ClientHeight=126
+TBDockHeight=152
+LRDockWidth=624
+Dockable=1
+Column0Width=145
+Column1Width=100
+Column2Width=115
+Column3Width=250
+
+[ObjectTree]
+Create=1
+Visible=1
+State=0
+Left=0
+Top=0
+Width=412
+Height=734
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=412
+ClientHeight=734
+TBDockHeight=366
+LRDockWidth=317
+Dockable=1
+
+[DebugLogView]
+Create=1
+Visible=0
+State=0
+Left=303
+Top=238
+Width=433
+Height=291
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=425
+ClientHeight=265
+TBDockHeight=291
+LRDockWidth=433
+Dockable=1
+
+[LocalVarsWindow]
+Create=1
+Visible=0
+State=0
+Left=175
+Top=203
+Width=524
+Height=139
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=516
+ClientHeight=113
+TBDockHeight=72
+LRDockWidth=215
+Dockable=1
+
+[ToDo List]
+Create=1
+Visible=0
+State=0
+Left=334
+Top=107
+Width=480
+Height=271
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=472
+ClientHeight=245
+TBDockHeight=271
+LRDockWidth=480
+Dockable=1
+Column0Width=200
+Column1Width=30
+Column2Width=100
+Column3Width=70
+Column4Width=70
+SortOrder=3
+ShowHints=1
+ShowChecked=1
+
+[FPUWindow]
+Create=1
+Visible=0
+State=0
+Left=417
+Top=365
+Width=457
+Height=250
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=449
+ClientHeight=216
+RegisterPane=121
+FlagPane=59
+
+[ModuleWindow]
+Create=1
+Visible=0
+State=0
+Left=197
+Top=130
+Width=638
+Height=355
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=630
+ClientHeight=329
+TBDockHeight=355
+LRDockWidth=638
+Dockable=1
+Column0Width=125
+Column1Width=100
+Column2Width=155
+EntryPointPane=225
+CompUnitPane=104
+
+[MessageHintFrm]
+Create=1
+Visible=0
+State=0
+Left=481
+Top=423
+Width=383
+Height=195
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=375
+ClientHeight=169
+TBDockHeight=195
+LRDockWidth=383
+Dockable=1
+
+[DockHosts]
+DockHostCount=1
+
+[DockSite0]
+DockSiteType=1
+Create=1
+Visible=1
+State=0
+Left=9
+Top=102
+Width=428
+Height=789
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=420
+ClientHeight=763
+TBDockHeight=916
+LRDockWidth=325
+Dockable=1
+TabPosition=0
+ActiveTab=Object Inspector
+TabDockClients=PropertyInspector,ObjectTree
+
diff --git a/bd/ABETO.GDB b/bd/ABETO.GDB
index 5c5556cce0b624d97b54aec1473f9df82e3d9b42..36183a55d2b224b20b0b4b96ad2d174015030723 100644
GIT binary patch
delta 2147
zcmaLYc~}%>90&0Cot>H8<=7n-R?r1^%@8PQvC^bNMTDdjP|SlUFe~yPcd=6?SFKq~
zi`HwXRMyf&!vax9vw{vS%aqCzO%l@ePRFaTMEbr6Px+7UGoSA~`_9b!&irO}##6V;
z;DK05l9NvB$$w1>_UJl(MN&czVcRiZY#cpQJzO>GH=+woIXBS~Rqg3XgIWfXt7i1n
zwJBj)y2FN+HndsfN==HTHgr+8Mcm-v>y#cl$|8g)A`oj$OjC=AhWXqlH)y=HsE<EF
zFcFc^O)>O>X^rIMs8^C04s^h)k|bQrx23mFd@bUxodpT)LNI2YVs{C4Ta=KQk)E27
zo<o8?`s}R1!%|W+vNF?hh`B)>=MqkHYQ{7nQm^Js7b*mWFAyX2XPoT#-KyOq3^FSd
zN`<NF?oy#&Jssk6hwJxYG6R{U+6%-3lwTXEH>j7#i#pTNdNJA??Giz+M!O7wHXcO`
zQv{cB3@e?Q?=r4-(qpRNH}0jVLEmck`OwW(M!t@A$6i5B-oX_RwZALq1hsWsmX%0^
zaD-#GqF;NTBcwb#)kN*(CCEhYyy74Th7br<=M|e~Hrm2F4ri+x*aOQ9?5YMT_H1(!
zU8QDcn^zh|-p%z&8>xomnul^q^Q920cT}EP9hE0lrP63c@Jse!Hb#ZX%~p!jFZIy%
z7W35{zqDWA8uiLcekqdb%Fhfo(O4y+Lh4qYi1X41&*``qIC~|(QpyQU%WT9&1fiP}
zM|)RKLjJcGA+59Nb~X!1&6?8r=&40(q{U-dAw!o4VKZ1AH_Z*($=TRo5(Z1aa3n1~
ztGM&&B%HTU7p4~KEX(u4*(2E5*bW8~qeK>1iu5gFCTS46SG#jX6K!cFLKV>wLo4Br
zEA}ZCr?K-OqU0A@oZj3*3xq=iSfL9<LKJj`ZeW9Gh=J~42M6?ko1iD$46)D);vgOp
z;1;+QdP5@I25jCW=mWRI9dIY~g??}s^oL})8}5O7;XW7u17Q%Pz+gy)A&>^?a6b%%
z40r$@gkdloG9e4HVFZkX92f-;!Dtu*V__WR!o!dUkHDjlujUpOtlJWf2k*L8NxJyl
zBlHbMKZ!T4uXb-Wc;ges!(%W39)~C3NhpM;U?NO{$uI?q;Axl&E^tFJOoM0OS$Gbf
zhZo>Qm<}^wCX~QSFbg~|8|J`Vco|*+8N4tLUWM0SJ}iLO;SDH-H^B!BVG%5bC9o6}
zD1*1)ZFmQksqqQR4<3!QURM@E7LxWJ#U`!j+Wx;|+slH7`rHXRmw;8GS|+Wi<b?L)
zycyvupd9?L65fUPU=^%}_hAiGz*<-bA3!CnhY#T+sDf(P05z}?Ho<04VGC@9k6{~p
z0-wTXPz!bNIeY<M!dI{zcEH#04eW$(;XBv`-@|U$1NHC&{0Kk6UicY)fql>b`{4lm
z3J0MPeuG2M1kLa}9EKxmMtES`E^1bUrod!hakR3aDNv>q90^#J<mP}=(V7ERZ%K0i
zj>0iG4kzFwoPyJ8N%J4xs|sI#O7eO50V0ZCNs^IqWDrLp2+?yM{GuK!5xH8;K@2xo
z)D(|pomtk-$l6(1(`4<Oteuy&3$k`m)-K7~pR)FsthLD6Wm)@M*8Y*TE1R`eKB;qh
z1>Zp4SxKCD-?h)bkr2-kLLE0+)Ri@t@<XaUqjmT=NnR=GDzwd)l4vQg;8^Hb@GJxt
zA`3kW0}CUIAQr(aLRf^-S}DmyFP^ors&qE?))ZM`uC-FT!%Ptpi!fSicUWk1+rO#S
Blu7^q

delta 2170
zcmYk-34GI390&0KOOqzO(yUvzVTUbpi@J)6AR>&p+3H}GZ5%pbo_KJyn+JkQ#nFNe
zw*ezljuiz#7_vji5EZ;pQ757TPTkb0AZnCbh4~BM@jjpL@4Y1b<e%d;FS>oF6ouZ5
zhWIs+{%eXYYC5}>#)#5ztf{(pUzXN5N^^?M*oCJ4c9$!?F`C4gws$c#DPajVhg?xd
zlaJrdlB*-hLOKbQ+T6YUxXj$ukpoRSuQ0oDKqfPBo4T_@@*-vU;W%~!2PWXx@QP64
z$vIo!==z>1Nav&yPFbRQ!-Ch7A&d^@W(RW%$W|_f@<--nWe4*|=M<2$O`8xF4su-0
zaxJ?|=q73<Glf-x8X1_MA|A~&PO(e#MuibhzGgX-)Jc`XbZu9qFtAnSqe6<<ii#55
zp?OQp`<Qm}X0u7Ij`B-d%^C5Guo*-xBP?}xsjS_etfqu50aHCUO`8<9tj=VOnvk&U
zW^DMPELR^kyfM<{*xX>j6Uk78ur-t4Z5Eg|IBea|oSc~Q4Y92!NtTEsPHl}?dvg1k
z+M~NYEoIQfzxX(YOFi3UQYaoRwSo=o;LxI_a`~4Y*FV2O-wYo?LNac%Q1ynKezrvm
zg`6ub9`|y_xpKzja=|<zR#Z@w#l{5l3-}1%OFK5f8Q|iD#ZIlTSZT;+-Bcl=cx`!>
z2(6VPv`37nnF*zbsn9-AD@Z7Ng}M<rGE1mc>y_K;Dz289RM!?jswF36zOE%(W<JXl
zOdBg+ouEx!qbwfJb3^>L8X;+xso0de>9M4DId#XUPK7Hqsj`&RQysI<>4`5hC27k{
zt~-m9<^SE5F&QQDsA(mxsg0!{o8v{3U62eZ;D%I4gLLQy=YR(?pgWukUhqK=I1hS4
zFX#<@pfB`;{%}4FfD7P4xCk=A4;RBgxCAbR%U}>(4ufF`TmeJjN*D%L!EhJ>Suhf^
z;cCc%T(|}T5QJ;tI>>`jFdFh91lPkDD1bsJg0V0T#=``-0d9n1xCti0B&}$2$;K9y
zZ&<3_SWl@Gb~-5PoK5YrgLHW|Dd-7GF!ssANOCynxZOcvM<t~@#?ua)gIXZZUQc^$
zWi-#~pc!Dd)l;ptjP_U()X%b^F|tL9_v?Q%+yb}4ZE!o>0h8fQxC`!vdteGog=sJy
z!VrN{D1&?9KDZwqfEn;0%!FC+5IhWzz-)-Zqc8^^gL0S)F^I!Fm=BM`6HoyQ;7O>2
zDyW8qum~1I4J-i_YT+q(8kWK`tzZA;ZQrM*{BPD8!-aUtEzW@IQC4&t+GY<>yX^$k
z+5!}U!B+R_FWXv6fU2Z3W4{!jbkWUP%>il=+$<~vXgu#$lk!ddwOVCGJtuTnh}`jD
z@(QSf1gwN-;8|D&tKm6V18d=VSO@E&9yY)Wun`)d5t^VGUW84s88m2tE$|X-g_q$K
zconw6c6be5hd1C&cnjW!cVGv+3-7`EuoFIj58)$dg^ytud;+`SQ}_%%hdr<t_Q4m>
z24BKg@HMnU2YdtH!gpFQxpV7ICaXew=RIN-OQk%PS{-q#744n1;zWE|(#WR{=;$1F
zdLxy5@#!6%@ICwhKf-=E06)P&ZF<MgHK$ZQWKOv%gx6Y6<B)x61ZTWtk&7Z(bPkE-
zB+etTg2XBk7n3NEncJq%Cuspm)g;xBq-8~2>zpzDmze%*OxI)jZ!!J%n0_dxACBoq
zV*1gTek`URkLf33`X4d<&zSz#X8k1ZKVAD08|u{4C}L-7Cx}p#l@pswY#y=s#43m_
zAXY`Jn%H7uHKeU<J~GMP7#(ZE5~joz|0(EtLh-XoFoH9}WCU-7V1(HS(Fn;1ixE~M
wY)06PaIkHPUuK7Y_58a^;p#9qvAUo68!VHLReF6+hER-1V%xkv7whQy8zgU|WdHyG