CPP_Builder/CAP
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

first commit (2002-04-24)

Browse Source
This commit is contained in:
José David Guillén
2021-09-01 18:53:06 +02:00
commit 4d943d773d
252 changed files with 17433 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

284
cap_gestion/capg_ifact.dfm Normal file
View File

@ -0,0 +1,284 @@
object iFact: TiFact
Left = 262
Top = 130
Width = 696
Height = 480
Caption = 'CAP-ges'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 20
object Panel1: TPanel
Left = 0
Top = 0
Width = 688
Height = 81
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Label1: TLabel
Left = 0
Top = -4
Width = 382
Height = 45
Caption = 'Informaci'#243'n facturas'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = 'Arial Black'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel1: TBevel
Left = 0
Top = 32
Width = 577
Height = 9
Shape = bsBottomLine
end
object CardOK: TImage
Left = 488
Top = 0
Width = 24
Height = 24
AutoSize = True
Picture.Data = {
07544269746D617096010000424D960100000000000076000000280000001800
0000180000000100040000000000200100000000000000000000100000000000
000000000000000080000080000000808000800000008000800080800000C0C0
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF00FFFFFFFFFFF991FFFFFFFFFFFFFFFFFFFFFF991FFFFFFFFFFFFFFFFFFFFF
991100000FFFFFFF00000000099110880FFF0000888888888001108800FF8888
888888888880088808FF88888888888888888888080F88888888888888888888
080B88888888888888888888080B888888888000000000008801888800000777
7777777808010000FFFFF777777777788001FFFFFFF77777FFF00000000BFFFF
FF777000000BBBBBBBBBFF7700000BBBBBBBBB111111000077BBBBBB111111BB
BBBB777700BB1111BBBBBBBBBBBB0000FFBBBBBBBBBBB33BBBBBFFFFFFB33BBB
3BBBB33BBB3BFFFFFFBB3BB33B3BBBBBBBBBFFFFFFB33BBBBBB3BBBBBBBBFFFF
FFB33BBBBBBBBBBBFFFFFFFFFFBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF}
Visible = False
end
object Label2: TLabel
Left = 8
Top = 56
Width = 58
Height = 20
Caption = 'Periodo:'
end
object fdesde: TDateTimePicker
Left = 72
Top = 48
Width = 89
Height = 28
CalAlignment = dtaLeft
Date = 37301
Time = 37301
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 0
end
object fhasta: TDateTimePicker
Left = 168
Top = 48
Width = 89
Height = 28
CalAlignment = dtaLeft
Date = 37301
Time = 37301
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 1
end
object BitBtn1: TBitBtn
Left = 264
Top = 48
Width = 75
Height = 25
Caption = 'Calcular'
TabOrder = 2
OnClick = BitBtn1Click
end
end
object PageControl1: TPageControl
Left = 0
Top = 81
Width = 688
Height = 368
ActivePage = TabSheet2
Align = alClient
MultiLine = True
Style = tsFlatButtons
TabIndex = 1
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'General'
object Label3: TLabel
Left = 16
Top = 40
Width = 192
Height = 20
Caption = 'Facturaci'#243'n por Abonados:'
end
object Label4: TLabel
Left = 16
Top = 64
Width = 206
Height = 20
Caption = 'Facturaci'#243'n por Ocacionales:'
end
object lTotalA: TLabel
Left = 240
Top = 40
Width = 91
Height = 20
Caption = 'Calculando...'
end
object lTotalNA: TLabel
Left = 240
Top = 64
Width = 91
Height = 20
Caption = 'Calculando...'
end
end
object TabSheet2: TTabSheet
Caption = 'Impagados'
ImageIndex = 1
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 680
Height = 330
Align = alClient
DataSource = DsPendientes
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -16
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'id'
Title.Alignment = taCenter
Width = 52
Visible = True
end
item
Expanded = False
FieldName = 'fechaE'
Title.Caption = 'Desde...'
Width = 70
Visible = True
end
item
Expanded = False
FieldName = 'fechaS'
Title.Alignment = taRightJustify
Title.Caption = '...Hasta'
Width = 70
Visible = True
end
item
Expanded = False
FieldName = 'importe'
Title.Alignment = taCenter
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'NombreC'
Title.Caption = 'Nombre'
Width = 121
Visible = True
end
item
Expanded = False
FieldName = 'ApellidoC'
Title.Caption = 'Apellidos'
Visible = True
end>
end
end
end
object TbFacturas: TTable
TableName = 'datos\TbFacturas.db'
Left = 372
Top = 131
end
object TbPendientes: TTable
Filter = '[pagado]=false'
Filtered = True
TableName = 'datos\TbFacturas.db'
Left = 436
Top = 131
object TbPendientesid: TAutoIncField
FieldName = 'id'
ReadOnly = True
end
object TbPendientesidc: TIntegerField
FieldName = 'idc'
end
object TbPendientesimporte: TCurrencyField
FieldName = 'importe'
end
object TbPendientesfechaE: TDateField
FieldName = 'fechaE'
end
object TbPendientesfechaS: TDateField
FieldName = 'fechaS'
end
object TbPendienteshoraE: TTimeField
FieldName = 'horaE'
end
object TbPendienteshoraS: TTimeField
FieldName = 'horaS'
end
object TbPendientespagado: TBooleanField
FieldName = 'pagado'
end
object TbPendientesNombreC: TStringField
FieldKind = fkLookup
FieldName = 'NombreC'
LookupDataSet = TbAbonados
LookupKeyFields = 'ida'
LookupResultField = 'nombre'
KeyFields = 'idc'
Lookup = True
end
object TbPendientesApellidoC: TStringField
FieldKind = fkLookup
FieldName = 'ApellidoC'
LookupDataSet = TbAbonados
LookupKeyFields = 'ida'
LookupResultField = 'apellidos'
KeyFields = 'idc'
Lookup = True
end
end
object DsPendientes: TDataSource
DataSet = TbPendientes
Left = 432
Top = 96
end
object TbAbonados: TTable
TableName = 'datos\abonados.db'
Left = 468
Top = 131
end
end