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
2009-10-20 18:43:15 +00:00 · 2009-10-20 18:43:15 +00:00 · 0cad7669b7
commit 0cad7669b7
parent 6d23da04ff
4 changed files with 747 additions and 0 deletions
--- a/Clientes/FacturarAlbaran.dfm
+++ 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
--- a/Clientes/FacturarAlbaran.pas
+++ 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.
--- a/Factuges.dsk
+++ 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
+
--- a/bd/ABETO.GDB
+++ b/bd/ABETO.GDB