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
This commit is contained in:
parent
6d23da04ff
commit
0cad7669b7
268
Clientes/FacturarAlbaran.dfm
Normal file
268
Clientes/FacturarAlbaran.dfm
Normal file
@ -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
|
||||||
112
Clientes/FacturarAlbaran.pas
Normal file
112
Clientes/FacturarAlbaran.pas
Normal file
@ -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.
|
||||||
367
Factuges.dsk
Normal file
367
Factuges.dsk
Normal file
@ -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
|
||||||
|
|
||||||
BIN
bd/ABETO.GDB
BIN
bd/ABETO.GDB
Binary file not shown.
Reference in New Issue
Block a user