First commit ~0,10
This commit is contained in:
commit
024b3774f3
9
README.md
Normal file
9
README.md
Normal file
@ -0,0 +1,9 @@
|
||||
#erecibos
|
||||
|
||||
|
||||
*~0,10*
|
||||
|
||||
ToDo: wwtcf?
|
||||
|
||||
|
||||
|
||||
BIN
bin/datos/datos.rar
Normal file
BIN
bin/datos/datos.rar
Normal file
Binary file not shown.
BIN
bin/datos/recibos.DB
Normal file
BIN
bin/datos/recibos.DB
Normal file
Binary file not shown.
BIN
bin/datos/recibos.PX
Normal file
BIN
bin/datos/recibos.PX
Normal file
Binary file not shown.
BIN
bin/datos/recibos.VAL
Normal file
BIN
bin/datos/recibos.VAL
Normal file
Binary file not shown.
BIN
bin/datos/recibos.XG0
Normal file
BIN
bin/datos/recibos.XG0
Normal file
Binary file not shown.
BIN
bin/datos/recibos.YG0
Normal file
BIN
bin/datos/recibos.YG0
Normal file
Binary file not shown.
BIN
bin/erecibos.exe
Normal file
BIN
bin/erecibos.exe
Normal file
Binary file not shown.
BIN
erecibos.rar
Normal file
BIN
erecibos.rar
Normal file
Binary file not shown.
20
historial.txt
Normal file
20
historial.txt
Normal file
@ -0,0 +1,20 @@
|
||||
eRecibos (Emisor de Recibos)
|
||||
|
||||
07-jul-2002
|
||||
21:08 Listado de recibos
|
||||
Recibo Simple
|
||||
22:01 Solo queda imprimir los recibos auto-generados
|
||||
y ver si encajan bien en la factura...
|
||||
|
||||
|
||||
06-jul-2002
|
||||
17:29 Comienzo el esqueleto básico del programa
|
||||
19:40 Diseño de la interfaz
|
||||
Creacion de la tabla "recibos"
|
||||
Traduccion de números a texto
|
||||
|
||||
19:51 Cont...
|
||||
20:30 fin
|
||||
|
||||
23:00
|
||||
23:40
|
||||
17
src/QrRecibos.cpp
Normal file
17
src/QrRecibos.cpp
Normal file
@ -0,0 +1,17 @@
|
||||
//---------------------------------------------------------------------
|
||||
#include <vcl.h>
|
||||
#pragma hdrstop
|
||||
|
||||
#include "QrRecibos.h"
|
||||
//---------------------------------------------------------------------
|
||||
#pragma resource "*.dfm"
|
||||
TQRListRecibos *QRListRecibos;
|
||||
//---------------------------------------------------------------------
|
||||
__fastcall TQRListRecibos::TQRListRecibos(TComponent* AOwner)
|
||||
: TForm(AOwner)
|
||||
{
|
||||
}
|
||||
//---------------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
BIN
src/QrRecibos.dfm
Normal file
BIN
src/QrRecibos.dfm
Normal file
Binary file not shown.
51
src/QrRecibos.h
Normal file
51
src/QrRecibos.h
Normal file
@ -0,0 +1,51 @@
|
||||
//----------------------------------------------------------------------------
|
||||
#ifndef QrRecibosH
|
||||
#define QrRecibosH
|
||||
//----------------------------------------------------------------------------
|
||||
#include <vcl\ExtCtrls.hpp>
|
||||
#include <vcl\StdCtrls.hpp>
|
||||
#include <vcl\Quickrpt.hpp>
|
||||
#include <vcl\Dialogs.hpp>
|
||||
#include <vcl\Forms.hpp>
|
||||
#include <vcl\Controls.hpp>
|
||||
#include <vcl\Graphics.hpp>
|
||||
#include <vcl\Classes.hpp>
|
||||
#include <vcl\SysUtils.hpp>
|
||||
#include <vcl\Messages.hpp>
|
||||
#include <vcl\Windows.hpp>
|
||||
#include <vcl\System.hpp>
|
||||
#include <Db.hpp>
|
||||
#include <DBTables.hpp>
|
||||
#include <Qrctrls.hpp>
|
||||
#include <QuickRpt.hpp>
|
||||
//----------------------------------------------------------------------------
|
||||
class TQRListRecibos : public TForm
|
||||
{
|
||||
__published:
|
||||
TQuickRep *QuickRep1;
|
||||
TTable *MasterTable;
|
||||
TQRBand *DetailBand1;
|
||||
TQRBand *PageFooterBand1;
|
||||
TQRBand *TitleBand1;
|
||||
TQRBand *ColumnHeaderBand1;
|
||||
TQRSysData *QRSysData1;
|
||||
TQRLabel *QRLabel1;
|
||||
TQRLabel *QRLabel3;
|
||||
TQRLabel *QRLabel4;
|
||||
TQRLabel *QRLabel5;
|
||||
TQRLabel *QRLabel6;
|
||||
TQRDBText *QRDBText1;
|
||||
TQRDBText *QRDBText3;
|
||||
TQRDBText *QRDBText4;
|
||||
TQRDBText *QRDBText5;
|
||||
TQRExpr *QRExpr1;
|
||||
TQRLabel *QRLabel2;
|
||||
TQRExpr *QRExpr2;
|
||||
private:
|
||||
public:
|
||||
virtual __fastcall TQRListRecibos(TComponent* AOwner);
|
||||
};
|
||||
//----------------------------------------------------------------------------
|
||||
extern PACKAGE TQRListRecibos *QRListRecibos;
|
||||
//----------------------------------------------------------------------------
|
||||
#endif
|
||||
18
src/QrUnRecibo.cpp
Normal file
18
src/QrUnRecibo.cpp
Normal file
@ -0,0 +1,18 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#include <vcl.h>
|
||||
#pragma hdrstop
|
||||
|
||||
#include "QrUnRecibo.h"
|
||||
#include "main.h"
|
||||
//---------------------------------------------------------------------------
|
||||
#pragma package(smart_init)
|
||||
#pragma resource "*.dfm"
|
||||
TQrRecibo *QrRecibo;
|
||||
//---------------------------------------------------------------------------
|
||||
__fastcall TQrRecibo::TQrRecibo(TComponent* Owner)
|
||||
: TForm(Owner)
|
||||
{
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
482
src/QrUnRecibo.dfm
Normal file
482
src/QrUnRecibo.dfm
Normal file
@ -0,0 +1,482 @@
|
||||
object QrRecibo: TQrRecibo
|
||||
Left = 220
|
||||
Top = 263
|
||||
Width = 870
|
||||
Height = 540
|
||||
Caption = 'QrRecibo'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Scaled = False
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 20
|
||||
object QuickRep1: TQuickRep
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 794
|
||||
Height = 1123
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = [fsBold]
|
||||
Functions.Strings = (
|
||||
'PAGENUMBER'
|
||||
'COLUMNNUMBER'
|
||||
'REPORTTITLE')
|
||||
Functions.DATA = (
|
||||
'0'
|
||||
'0'
|
||||
#39#39)
|
||||
Options = [FirstPageHeader, LastPageFooter]
|
||||
Page.Columns = 1
|
||||
Page.Orientation = poPortrait
|
||||
Page.PaperSize = A4
|
||||
Page.Values = (
|
||||
100
|
||||
2970
|
||||
100
|
||||
2100
|
||||
100
|
||||
100
|
||||
0)
|
||||
PrinterSettings.Copies = 1
|
||||
PrinterSettings.Duplex = False
|
||||
PrinterSettings.FirstPage = 0
|
||||
PrinterSettings.LastPage = 0
|
||||
PrinterSettings.OutputBin = Auto
|
||||
PrintIfEmpty = True
|
||||
ReportTitle = 'ReciboIndividual'
|
||||
SnapToGrid = True
|
||||
Units = MM
|
||||
Zoom = 100
|
||||
object QRBand1: TQRBand
|
||||
Left = 38
|
||||
Top = 38
|
||||
Width = 718
|
||||
Height = 378
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
AlignToBottom = False
|
||||
Color = clWhite
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = []
|
||||
ForceNewColumn = False
|
||||
ForceNewPage = False
|
||||
ParentFont = False
|
||||
Size.Values = (
|
||||
1000.125
|
||||
1899.70833333333)
|
||||
BandType = rbTitle
|
||||
object QRDBText1: TQRDBText
|
||||
Left = 198
|
||||
Top = 0
|
||||
Width = 21
|
||||
Height = 19
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
50.2708333333333
|
||||
523.875
|
||||
0
|
||||
55.5625)
|
||||
Alignment = taRightJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
DataSet = eRecibos.TbRecibos
|
||||
DataField = 'Id'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 12
|
||||
end
|
||||
object QRDBText2: TQRDBText
|
||||
Left = 227
|
||||
Top = 0
|
||||
Width = 129
|
||||
Height = 19
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
50.2708333333333
|
||||
600.604166666667
|
||||
0
|
||||
341.3125)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
DataSet = eRecibos.TbRecibos
|
||||
DataField = 'LugarLibramiento'
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 10
|
||||
end
|
||||
object QRDBText3: TQRDBText
|
||||
Left = 583
|
||||
Top = 0
|
||||
Width = 71
|
||||
Height = 19
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
50.2708333333333
|
||||
1542.52083333333
|
||||
0
|
||||
187.854166666667)
|
||||
Alignment = taRightJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
DataSet = eRecibos.TbRecibos
|
||||
DataField = 'Importe'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 12
|
||||
end
|
||||
object QRDBText4: TQRDBText
|
||||
Left = 113
|
||||
Top = 38
|
||||
Width = 129
|
||||
Height = 19
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
50.2708333333333
|
||||
298.979166666667
|
||||
100.541666666667
|
||||
341.3125)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
DataSet = eRecibos.TbRecibos
|
||||
DataField = 'FechaLibramiento'
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 10
|
||||
end
|
||||
object QRDBText5: TQRDBText
|
||||
Left = 378
|
||||
Top = 38
|
||||
Width = 111
|
||||
Height = 19
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
50.2708333333333
|
||||
1000.125
|
||||
100.541666666667
|
||||
293.6875)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
DataSet = eRecibos.TbRecibos
|
||||
DataField = 'Vencimiento'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 12
|
||||
end
|
||||
object QRDBText6: TQRDBText
|
||||
Left = 113
|
||||
Top = 76
|
||||
Width = 49
|
||||
Height = 19
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
50.2708333333333
|
||||
298.979166666667
|
||||
201.083333333333
|
||||
129.645833333333)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
DataSet = eRecibos.TbRecibos
|
||||
DataField = 'PagarA'
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 10
|
||||
end
|
||||
object QRDBText7: TQRDBText
|
||||
Left = 246
|
||||
Top = 102
|
||||
Width = 101
|
||||
Height = 19
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
50.2708333333333
|
||||
650.875
|
||||
269.875
|
||||
267.229166666667)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
DataSet = eRecibos.TbRecibos
|
||||
DataField = 'ImporteTXT'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 12
|
||||
end
|
||||
object QRDBText8: TQRDBText
|
||||
Left = 246
|
||||
Top = 129
|
||||
Width = 141
|
||||
Height = 19
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
50.2708333333333
|
||||
650.875
|
||||
341.3125
|
||||
373.0625)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
DataSet = eRecibos.TbRecibos
|
||||
DataField = 'ImporteTXTcent'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 12
|
||||
end
|
||||
object QRDBText9: TQRDBText
|
||||
Left = 246
|
||||
Top = 159
|
||||
Width = 113
|
||||
Height = 19
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
50.2708333333333
|
||||
650.875
|
||||
420.6875
|
||||
298.979166666667)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
DataSet = eRecibos.TbRecibos
|
||||
DataField = 'PersonaEntidad'
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 10
|
||||
end
|
||||
object QRDBText10: TQRDBText
|
||||
Left = 246
|
||||
Top = 174
|
||||
Width = 73
|
||||
Height = 19
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
50.2708333333333
|
||||
650.875
|
||||
460.375
|
||||
193.145833333333)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
DataSet = eRecibos.TbRecibos
|
||||
DataField = 'Domicilio'
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 10
|
||||
end
|
||||
object QRDBText11: TQRDBText
|
||||
Left = 510
|
||||
Top = 174
|
||||
Width = 33
|
||||
Height = 19
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
50.2708333333333
|
||||
1349.375
|
||||
460.375
|
||||
87.3125)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
DataSet = eRecibos.TbRecibos
|
||||
DataField = 'Csuc'
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 10
|
||||
end
|
||||
object QRDBText12: TQRDBText
|
||||
Left = 510
|
||||
Top = 159
|
||||
Width = 33
|
||||
Height = 19
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
50.2708333333333
|
||||
1349.375
|
||||
420.6875
|
||||
87.3125)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
DataSet = eRecibos.TbRecibos
|
||||
DataField = 'Cent'
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 10
|
||||
end
|
||||
object QRDBText13: TQRDBText
|
||||
Left = 643
|
||||
Top = 174
|
||||
Width = 25
|
||||
Height = 19
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
50.2708333333333
|
||||
1701.27083333333
|
||||
460.375
|
||||
66.1458333333333)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
DataSet = eRecibos.TbRecibos
|
||||
DataField = 'Cdc'
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 10
|
||||
end
|
||||
object QRDBText14: TQRDBText
|
||||
Left = 510
|
||||
Top = 189
|
||||
Width = 33
|
||||
Height = 19
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
50.2708333333333
|
||||
1349.375
|
||||
500.0625
|
||||
87.3125)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
DataSet = eRecibos.TbRecibos
|
||||
DataField = 'Cnum'
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 10
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
42
src/QrUnRecibo.h
Normal file
42
src/QrUnRecibo.h
Normal file
@ -0,0 +1,42 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#ifndef QrUnReciboH
|
||||
#define QrUnReciboH
|
||||
//---------------------------------------------------------------------------
|
||||
#include <Classes.hpp>
|
||||
#include <Controls.hpp>
|
||||
#include <StdCtrls.hpp>
|
||||
#include <Forms.hpp>
|
||||
#include <Db.hpp>
|
||||
#include <DBTables.hpp>
|
||||
#include <ExtCtrls.hpp>
|
||||
#include <Qrctrls.hpp>
|
||||
#include <QuickRpt.hpp>
|
||||
//---------------------------------------------------------------------------
|
||||
class TQrRecibo : public TForm
|
||||
{
|
||||
__published: // IDE-managed Components
|
||||
TQuickRep *QuickRep1;
|
||||
TQRBand *QRBand1;
|
||||
TQRDBText *QRDBText1;
|
||||
TQRDBText *QRDBText2;
|
||||
TQRDBText *QRDBText3;
|
||||
TQRDBText *QRDBText4;
|
||||
TQRDBText *QRDBText5;
|
||||
TQRDBText *QRDBText6;
|
||||
TQRDBText *QRDBText7;
|
||||
TQRDBText *QRDBText8;
|
||||
TQRDBText *QRDBText9;
|
||||
TQRDBText *QRDBText10;
|
||||
TQRDBText *QRDBText11;
|
||||
TQRDBText *QRDBText12;
|
||||
TQRDBText *QRDBText13;
|
||||
TQRDBText *QRDBText14;
|
||||
private: // User declarations
|
||||
public: // User declarations
|
||||
__fastcall TQrRecibo(TComponent* Owner);
|
||||
};
|
||||
//---------------------------------------------------------------------------
|
||||
extern PACKAGE TQrRecibo *QrRecibo;
|
||||
//---------------------------------------------------------------------------
|
||||
#endif
|
||||
76
src/eFijarVencimientos.cpp
Normal file
76
src/eFijarVencimientos.cpp
Normal file
@ -0,0 +1,76 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#include <vcl.h>
|
||||
#pragma hdrstop
|
||||
|
||||
#include "eFijarVencimientos.h"
|
||||
#include "main.h"
|
||||
//---------------------------------------------------------------------------
|
||||
#pragma package(smart_init)
|
||||
#pragma resource "*.dfm"
|
||||
TfijarVencimientos *fijarVencimientos;
|
||||
//---------------------------------------------------------------------------
|
||||
__fastcall TfijarVencimientos::TfijarVencimientos(TComponent* Owner)
|
||||
: TForm(Owner)
|
||||
{
|
||||
DateTimePicker1->Date = eRecibos->TbRecibos->FieldByName("Vencimiento")->AsDateTime;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TfijarVencimientos::BitBtn2Click(TObject *Sender)
|
||||
{
|
||||
eRecibos->TbRecibos->Cancel();
|
||||
Close();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TfijarVencimientos::DateTimePicker1Change(TObject *Sender)
|
||||
{
|
||||
ReCalcularVencimientos();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TfijarVencimientos::Edit1Change(TObject *Sender)
|
||||
{
|
||||
// Fijamos el nuevo número de filas
|
||||
try {
|
||||
StringGrid1->RowCount = Edit1->Text.ToInt();
|
||||
ReCalcularVencimientos();
|
||||
} catch(...) {
|
||||
//nothing
|
||||
}
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TfijarVencimientos::Edit2Change(TObject *Sender)
|
||||
{
|
||||
ReCalcularVencimientos();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TfijarVencimientos::ReCalcularVencimientos(void)
|
||||
{
|
||||
try {
|
||||
//
|
||||
for( int i=0; i<StringGrid1->RowCount; i++ )
|
||||
{
|
||||
StringGrid1->Cells[0][i] = DateToStr( DateTimePicker1->Date + Edit2->Text.ToInt() * i );
|
||||
StringGrid1->Cells[1][i] = eRecibos->TbRecibos->FieldByName("Importe")->AsString;
|
||||
}
|
||||
} catch(...) {
|
||||
//nothing
|
||||
}
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TfijarVencimientos::BitBtn1Click(TObject *Sender)
|
||||
{
|
||||
// Afianzamos el actual
|
||||
eRecibos->TbRecibos->FieldByName("Vencimiento")->AsString = StringGrid1->Cells[0][0];
|
||||
eRecibos->TbRecibos->FieldByName("Importe")->AsString = StringGrid1->Cells[1][0];
|
||||
eRecibos->TbRecibos->Post();
|
||||
for( int i=1; i<StringGrid1->RowCount; i++ )
|
||||
{
|
||||
eRecibos->TbRecibos->Insert();
|
||||
eRecibos->TbRecibos->FieldByName("Vencimiento")->AsString = StringGrid1->Cells[0][i];
|
||||
eRecibos->TbRecibos->FieldByName("Importe")->AsString = StringGrid1->Cells[1][i];
|
||||
eRecibos->TbRecibos->Post();
|
||||
}
|
||||
Close();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
130
src/eFijarVencimientos.dfm
Normal file
130
src/eFijarVencimientos.dfm
Normal file
@ -0,0 +1,130 @@
|
||||
object fijarVencimientos: TfijarVencimientos
|
||||
Left = 438
|
||||
Top = 144
|
||||
AutoScroll = False
|
||||
BorderIcons = []
|
||||
Caption = 'Fijar Vencimientos'
|
||||
ClientHeight = 272
|
||||
ClientWidth = 240
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 16
|
||||
object Label1: TLabel
|
||||
Left = 8
|
||||
Top = 16
|
||||
Width = 117
|
||||
Height = 16
|
||||
Caption = 'Primer vencimiento:'
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 8
|
||||
Top = 40
|
||||
Width = 152
|
||||
Height = 16
|
||||
Caption = 'Número de vencimientos:'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 8
|
||||
Top = 64
|
||||
Width = 146
|
||||
Height = 16
|
||||
Caption = 'Cada X dias, donde X =='
|
||||
end
|
||||
object DateTimePicker1: TDateTimePicker
|
||||
Left = 168
|
||||
Top = 8
|
||||
Width = 72
|
||||
Height = 24
|
||||
CalAlignment = dtaLeft
|
||||
Date = 37443.8382170139
|
||||
Time = 37443.8382170139
|
||||
DateFormat = dfShort
|
||||
DateMode = dmComboBox
|
||||
Kind = dtkDate
|
||||
ParseInput = False
|
||||
TabOrder = 0
|
||||
OnChange = DateTimePicker1Change
|
||||
end
|
||||
object UpDown1: TUpDown
|
||||
Left = 225
|
||||
Top = 32
|
||||
Width = 12
|
||||
Height = 24
|
||||
Associate = Edit1
|
||||
Min = 1
|
||||
Position = 1
|
||||
TabOrder = 1
|
||||
Wrap = False
|
||||
end
|
||||
object Edit1: TEdit
|
||||
Left = 168
|
||||
Top = 32
|
||||
Width = 57
|
||||
Height = 24
|
||||
TabOrder = 2
|
||||
Text = '1'
|
||||
OnChange = Edit1Change
|
||||
end
|
||||
object StringGrid1: TStringGrid
|
||||
Left = 0
|
||||
Top = 122
|
||||
Width = 240
|
||||
Height = 150
|
||||
Align = alBottom
|
||||
ColCount = 2
|
||||
FixedCols = 0
|
||||
RowCount = 1
|
||||
FixedRows = 0
|
||||
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
|
||||
TabOrder = 3
|
||||
ColWidths = (
|
||||
140
|
||||
80)
|
||||
end
|
||||
object BitBtn1: TBitBtn
|
||||
Left = 0
|
||||
Top = 96
|
||||
Width = 113
|
||||
Height = 25
|
||||
Caption = '&Generar'
|
||||
TabOrder = 4
|
||||
OnClick = BitBtn1Click
|
||||
end
|
||||
object BitBtn2: TBitBtn
|
||||
Left = 128
|
||||
Top = 96
|
||||
Width = 113
|
||||
Height = 25
|
||||
Caption = '&Cancelar'
|
||||
TabOrder = 5
|
||||
OnClick = BitBtn2Click
|
||||
end
|
||||
object Edit2: TEdit
|
||||
Left = 168
|
||||
Top = 56
|
||||
Width = 57
|
||||
Height = 24
|
||||
TabOrder = 6
|
||||
Text = '1'
|
||||
OnChange = Edit2Change
|
||||
end
|
||||
object UpDown2: TUpDown
|
||||
Left = 225
|
||||
Top = 56
|
||||
Width = 12
|
||||
Height = 24
|
||||
Associate = Edit2
|
||||
Min = 1
|
||||
Max = 1200
|
||||
Position = 1
|
||||
TabOrder = 7
|
||||
Wrap = False
|
||||
end
|
||||
end
|
||||
41
src/eFijarVencimientos.h
Normal file
41
src/eFijarVencimientos.h
Normal file
@ -0,0 +1,41 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#ifndef eFijarVencimientosH
|
||||
#define eFijarVencimientosH
|
||||
//---------------------------------------------------------------------------
|
||||
#include <Classes.hpp>
|
||||
#include <Controls.hpp>
|
||||
#include <StdCtrls.hpp>
|
||||
#include <Forms.hpp>
|
||||
#include <Buttons.hpp>
|
||||
#include <ComCtrls.hpp>
|
||||
#include <Grids.hpp>
|
||||
//---------------------------------------------------------------------------
|
||||
class TfijarVencimientos : public TForm
|
||||
{
|
||||
__published: // IDE-managed Components
|
||||
TLabel *Label1;
|
||||
TDateTimePicker *DateTimePicker1;
|
||||
TLabel *Label2;
|
||||
TUpDown *UpDown1;
|
||||
TEdit *Edit1;
|
||||
TStringGrid *StringGrid1;
|
||||
TBitBtn *BitBtn1;
|
||||
TBitBtn *BitBtn2;
|
||||
TLabel *Label3;
|
||||
TEdit *Edit2;
|
||||
TUpDown *UpDown2;
|
||||
void __fastcall BitBtn2Click(TObject *Sender);
|
||||
void __fastcall DateTimePicker1Change(TObject *Sender);
|
||||
void __fastcall Edit1Change(TObject *Sender);
|
||||
void __fastcall Edit2Change(TObject *Sender);
|
||||
void __fastcall BitBtn1Click(TObject *Sender);
|
||||
private: // User declarations
|
||||
public: // User declarations
|
||||
__fastcall TfijarVencimientos(TComponent* Owner);
|
||||
void __fastcall ReCalcularVencimientos(void);
|
||||
};
|
||||
//---------------------------------------------------------------------------
|
||||
extern PACKAGE TfijarVencimientos *fijarVencimientos;
|
||||
//---------------------------------------------------------------------------
|
||||
#endif
|
||||
139
src/erecibos.bpr
Normal file
139
src/erecibos.bpr
Normal file
@ -0,0 +1,139 @@
|
||||
<?xml version='1.0' encoding='utf-8' ?>
|
||||
<!-- C++Builder XML Project -->
|
||||
<PROJECT>
|
||||
<MACROS>
|
||||
<VERSION value="BCB.05.03"/>
|
||||
<PROJECT value="..\bin\erecibos.exe"/>
|
||||
<OBJFILES value="..\obj\erecibos.obj ..\obj\main.obj ..\obj\eFijarVencimientos.obj
|
||||
..\obj\QrRecibos.obj ..\obj\QrUnRecibo.obj"/>
|
||||
<RESFILES value="erecibos.res"/>
|
||||
<IDLFILES value=""/>
|
||||
<IDLGENFILES value=""/>
|
||||
<DEFFILE value=""/>
|
||||
<RESDEPEN value="$(RESFILES) main.dfm eFijarVencimientos.dfm QrRecibos.dfm QrUnRecibo.dfm"/>
|
||||
<LIBFILES value=""/>
|
||||
<LIBRARIES value=""/>
|
||||
<SPARELIBS value="VCL50.lib VCLDB50.lib VCLBDE50.lib QRPT50.lib VCLX50.lib"/>
|
||||
<PACKAGES value="VCL50.bpi VCLX50.bpi VCLDB50.bpi QRPT50.bpi VCLBDE50.bpi VCLIE50.bpi
|
||||
INETDB50.bpi INET50.bpi NMFAST50.bpi dclocx50.bpi CabForCB.bpi
|
||||
CoolPack.bpi JDsoft.bpi PhantomPack.bpi VCLIB50.bpi VCLMID50.bpi
|
||||
WEBMID50.bpi VCLDBX50.bpi TEEQR50.bpi asgc5.bpi RAS_Tools.bpi
|
||||
ZCommonCB5.bpi ZDbwareCB5.bpi ZMySqlCB5.bpi ZDb2SqlCB5.bpi ZIbSqlCB5.bpi
|
||||
ZMsSqlCB5.bpi ZOraSqlCB5.bpi ZPgSqlCB5.bpi TEEUI50.bpi TEEDB50.bpi
|
||||
TEE50.bpi DSS50.bpi bcbsmp50.bpi VCLADO50.bpi ibsmp50.bpi bcbie50.bpi
|
||||
bcb2kaxserver50.bpi"/>
|
||||
<PATHCPP value=".;"/>
|
||||
<PATHPAS value=".;"/>
|
||||
<PATHRC value=".;"/>
|
||||
<PATHASM value=".;"/>
|
||||
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
|
||||
<RELEASELIBPATH value="$(BCB)\lib\release"/>
|
||||
<LINKER value="tlink32"/>
|
||||
<USERDEFINES value="_DEBUG"/>
|
||||
<SYSDEFINES value="NO_STRICT;USEPACKAGES"/>
|
||||
<MAINSOURCE value="erecibos.cpp"/>
|
||||
<INCLUDEPATH value="C:\program\CBuilder\CBuilder5\Projects\;$(BCB)\include;$(BCB)\include\vcl"/>
|
||||
<LIBPATH value="C:\program\CBuilder\CBuilder5\Projects\;$(BCB)\Projects\Lib;..\..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib"/>
|
||||
<WARNINGS value="-w-par"/>
|
||||
</MACROS>
|
||||
<OPTIONS>
|
||||
<IDLCFLAGS value="-IC:\program\CBuilder\CBuilder5\Projects\. -I$(BCB)\include
|
||||
-I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
|
||||
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -5 -b- -k -y -v -vi-
|
||||
-c -tW -tWM"/>
|
||||
<PFLAGS value="-N2..\obj -N0..\obj -$YD -$W -$O- -v -JPHNE -M"/>
|
||||
<RFLAGS value=""/>
|
||||
<AFLAGS value="/mx /w2 /zi"/>
|
||||
<LFLAGS value="-I..\obj -D"" -aa -Tpe -x -Gn -v"/>
|
||||
</OPTIONS>
|
||||
<LINKER>
|
||||
<ALLOBJ value="c0w32.obj $(PACKAGES) sysinit.obj $(OBJFILES)"/>
|
||||
<ALLRES value="$(RESFILES)"/>
|
||||
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib"/>
|
||||
</LINKER>
|
||||
<IDEOPTIONS>
|
||||
[Version Info]
|
||||
IncludeVerInfo=0
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=3082
|
||||
CodePage=1252
|
||||
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
|
||||
[Excluded Packages]
|
||||
C:\Mis documentos\Fuentes de Programacion\C++ Builder\CAP\LM2000_vcl\LM2000_vcl.bpl=Funciones para el Manejo del LM2000
|
||||
|
||||
[HistoryLists\hlIncludePath]
|
||||
Count=3
|
||||
Item0=C:\program\CBuilder\CBuilder5\Projects\;$(BCB)\include;$(BCB)\include\vcl
|
||||
Item1=C:\program\CBuilder\CBuilder5\Projects;$(BCB)\include;$(BCB)\include\vcl
|
||||
Item2=$(BCB)\include;$(BCB)\include\vcl
|
||||
|
||||
[HistoryLists\hlLibraryPath]
|
||||
Count=3
|
||||
Item0=C:\program\CBuilder\CBuilder5\Projects\;$(BCB)\Projects\Lib;..\..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
|
||||
Item1=C:\program\CBuilder\CBuilder5\Projects;$(BCB)\Projects\Lib;..\..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
|
||||
Item2=$(BCB)\Projects\Lib;..\..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
|
||||
|
||||
[HistoryLists\hlDebugSourcePath]
|
||||
Count=1
|
||||
Item0=$(BCB)\source\vcl
|
||||
|
||||
[HistoryLists\hlConditionals]
|
||||
Count=1
|
||||
Item0=_DEBUG
|
||||
|
||||
[HistoryLists\hlIntOutputDir]
|
||||
Count=1
|
||||
Item0=..\obj
|
||||
|
||||
[HistoryLists\hlFinalOutputDir]
|
||||
Count=2
|
||||
Item0=..\bin\
|
||||
Item1=..\bin
|
||||
|
||||
[Debugging]
|
||||
DebugSourceDirs=$(BCB)\source\vcl
|
||||
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
RemoteHost=
|
||||
RemotePath=
|
||||
RemoteDebug=0
|
||||
|
||||
[Compiler]
|
||||
ShowInfoMsgs=0
|
||||
LinkDebugVcl=1
|
||||
LinkCGLIB=0
|
||||
|
||||
[CORBA]
|
||||
AddServerUnit=1
|
||||
AddClientUnit=1
|
||||
PrecompiledHeaders=1
|
||||
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=
|
||||
</IDEOPTIONS>
|
||||
</PROJECT>
|
||||
25
src/erecibos.cpp
Normal file
25
src/erecibos.cpp
Normal file
@ -0,0 +1,25 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#include <vcl.h>
|
||||
#pragma hdrstop
|
||||
USERES("erecibos.res");
|
||||
USEFORM("main.cpp", eRecibos);
|
||||
USEFORM("eFijarVencimientos.cpp", fijarVencimientos);
|
||||
USEFORM("QrRecibos.cpp", QRListRecibos);
|
||||
USEFORM("QrUnRecibo.cpp", QrRecibo);
|
||||
//---------------------------------------------------------------------------
|
||||
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
|
||||
{
|
||||
try
|
||||
{
|
||||
Application->Initialize();
|
||||
Application->CreateForm(__classid(TeRecibos), &eRecibos);
|
||||
Application->Run();
|
||||
}
|
||||
catch (Exception &exception)
|
||||
{
|
||||
Application->ShowException(&exception);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
BIN
src/erecibos.res
Normal file
BIN
src/erecibos.res
Normal file
Binary file not shown.
175
src/main.cpp
Normal file
175
src/main.cpp
Normal file
@ -0,0 +1,175 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#include <vcl.h>
|
||||
#pragma hdrstop
|
||||
|
||||
#include "main.h"
|
||||
#include "eFijarVencimientos.h"
|
||||
#include "QrRecibos.h"
|
||||
#include "QrUnRecibo.h"
|
||||
//---------------------------------------------------------------------------
|
||||
#pragma package(smart_init)
|
||||
#pragma resource "*.dfm"
|
||||
TeRecibos *eRecibos;
|
||||
//---------------------------------------------------------------------------
|
||||
__fastcall TeRecibos::TeRecibos(TComponent* Owner)
|
||||
: TForm(Owner)
|
||||
{
|
||||
TbRecibos->TableName ="datos\\recibos.db";
|
||||
TbRecibos->Active = true;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TeRecibos::ToolButton1Click(TObject *Sender)
|
||||
{
|
||||
Close();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TeRecibos::TbRecibosCalcFields(TDataSet *DataSet)
|
||||
{
|
||||
AnsiString cadena;
|
||||
Currency importe = TbRecibos->FieldByName("Importe")->AsCurrency;
|
||||
int aux;
|
||||
|
||||
// Si el importe es mayor de mil (obtenemos solo los millares)
|
||||
cadena = "";
|
||||
aux = importe;
|
||||
if ( aux >= 1000 )
|
||||
{
|
||||
if ( ( aux/1000 ) == 1 )
|
||||
cadena += "mil ";
|
||||
else
|
||||
cadena += entero2txt( (aux/1000) ) + " mil ";
|
||||
}
|
||||
if ( aux >= 1 )
|
||||
{
|
||||
cadena += entero2txt( (aux%1000) ) + " €uros";
|
||||
aux = importe*100;
|
||||
if ( (aux%100) )
|
||||
cadena += " con ";
|
||||
|
||||
}
|
||||
aux = (importe*100);
|
||||
aux %= 100;
|
||||
if ( aux )
|
||||
{
|
||||
TbRecibos->FieldByName("ImporteTXTcent")->AsString = entero2txt( aux ) + " centimos";
|
||||
}
|
||||
|
||||
TbRecibos->FieldByName("ImporteTXT")->AsString = cadena;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
AnsiString __fastcall TeRecibos::entero2txt(int num)
|
||||
{
|
||||
|
||||
AnsiString dev;
|
||||
|
||||
switch( (num/100)%10 )
|
||||
{
|
||||
case 1:
|
||||
if ( (num % 100)==(num%10) && (num%10)==0 )
|
||||
dev = "cien";
|
||||
else
|
||||
dev = "ciento ";
|
||||
|
||||
break;
|
||||
case 2: dev += "doscientos "; break;
|
||||
case 3: dev += "trescientos "; break;
|
||||
case 4: dev += "cuatrocientos "; break;
|
||||
case 5: dev += "quinientos "; break;
|
||||
case 6: dev += "seiscientos "; break;
|
||||
case 7: dev += "setecientos "; break;
|
||||
case 8: dev += "ochocientos "; break;
|
||||
case 9: dev += "novecientos "; break;
|
||||
}
|
||||
|
||||
switch( (num/10)%10 )
|
||||
{
|
||||
case 1:
|
||||
switch( num%10 )
|
||||
{
|
||||
case 0: dev += "diez "; break;
|
||||
case 1: dev += "once "; break;
|
||||
case 2: dev += "doce "; break;
|
||||
case 3: dev += "trece "; break;
|
||||
case 4: dev += "catorce "; break;
|
||||
case 5: dev += "quince "; break;
|
||||
case 6: dev += "diesiceis "; break;
|
||||
case 7: dev += "diecisiete "; break;
|
||||
case 8: dev += "dieciocho "; break;
|
||||
case 9: dev += "diecinueve "; break;
|
||||
}
|
||||
break;
|
||||
case 2: dev += "veinte "; break;
|
||||
case 3: dev += "treinta "; break;
|
||||
case 4: dev += "cuarenta "; break;
|
||||
case 5: dev += "cincuenta "; break;
|
||||
case 6: dev += "sesenta "; break;
|
||||
case 7: dev += "setenta "; break;
|
||||
case 8: dev += "ochenta "; break;
|
||||
case 9: dev += "noventa "; break;
|
||||
if ( num%10 ) dev += "y ";
|
||||
}
|
||||
|
||||
if ( ((num/10)%10) != 1 )
|
||||
switch( (num%10) )
|
||||
{
|
||||
case 1: dev += "uno"; break;
|
||||
case 2: dev += "dos"; break;
|
||||
case 3: dev += "tres"; break;
|
||||
case 4: dev += "cuatro"; break;
|
||||
case 5: dev += "cinco"; break;
|
||||
case 6: dev += "seis"; break;
|
||||
case 7: dev += "siete"; break;
|
||||
case 8: dev += "ocho"; break;
|
||||
case 9: dev += "nueve"; break;
|
||||
}
|
||||
|
||||
return dev;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TeRecibos::BitBtn2Click(TObject *Sender)
|
||||
{
|
||||
TbRecibos->Filter = "[FechaVencimiento]>="+FechaMin->Date+" AND [FechaVencimiento]<="+FechaMax->Date;
|
||||
TbRecibos->Filtered = true;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TeRecibos::DBGrid1DblClick(TObject *Sender)
|
||||
{
|
||||
PageControl1->ActivePage = EmisionRecibos;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TeRecibos::BitBtn1Click(TObject *Sender)
|
||||
{
|
||||
if ( TbRecibos->State == dsInsert )
|
||||
{
|
||||
TfijarVencimientos *Venc;
|
||||
Venc = new TfijarVencimientos(this);
|
||||
Venc->ShowModal();
|
||||
delete Venc;
|
||||
}
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TeRecibos::BitBtn3Click(TObject *Sender)
|
||||
{
|
||||
TQRListRecibos *LR;
|
||||
LR = new TQRListRecibos(this);
|
||||
LR->MasterTable->TableName = TbRecibos->TableName;
|
||||
LR->MasterTable->Filter = TbRecibos->Filter;
|
||||
LR->MasterTable->Filtered = TbRecibos->Filtered;
|
||||
LR->MasterTable->Active = true;
|
||||
LR->QuickRep1->ReportTitle = "Listados de Recibos entre: " + FechaMin->Date.DateString() + " y " + FechaMax->Date.DateString();
|
||||
LR->QuickRep1->Preview();
|
||||
delete LR;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TeRecibos::BitBtn4Click(TObject *Sender)
|
||||
{
|
||||
TQrRecibo *R;
|
||||
R = new TQrRecibo(this);
|
||||
R->QuickRep1->Print();
|
||||
delete R;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
|
||||
1509
src/main.dfm
Normal file
1509
src/main.dfm
Normal file
File diff suppressed because it is too large
Load Diff
121
src/main.h
Normal file
121
src/main.h
Normal file
@ -0,0 +1,121 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#ifndef mainH
|
||||
#define mainH
|
||||
//---------------------------------------------------------------------------
|
||||
#include <Classes.hpp>
|
||||
#include <Controls.hpp>
|
||||
#include <StdCtrls.hpp>
|
||||
#include <Forms.hpp>
|
||||
#include <ComCtrls.hpp>
|
||||
#include <Menus.hpp>
|
||||
#include <ExtCtrls.hpp>
|
||||
#include <Graphics.hpp>
|
||||
#include <DBCtrls.hpp>
|
||||
#include <Mask.hpp>
|
||||
#include <Buttons.hpp>
|
||||
#include <Db.hpp>
|
||||
#include <DBTables.hpp>
|
||||
#include <DBGrids.hpp>
|
||||
#include <Grids.hpp>
|
||||
//---------------------------------------------------------------------------
|
||||
class TeRecibos : public TForm
|
||||
{
|
||||
__published: // IDE-managed Components
|
||||
TStatusBar *StatusBar1;
|
||||
TPageControl *PageControl1;
|
||||
TTabSheet *AcercaDe;
|
||||
TTabSheet *EmisionRecibos;
|
||||
TTabSheet *ListadoRecibos;
|
||||
TPanel *Panel1;
|
||||
TImage *Image1;
|
||||
TBevel *Bevel1;
|
||||
TLabel *Label1;
|
||||
TLabel *Label2;
|
||||
TImage *Image2;
|
||||
TBevel *Bevel2;
|
||||
TLabel *Label3;
|
||||
TLabel *Label4;
|
||||
TShape *Shape1;
|
||||
TShape *spLineaSup;
|
||||
TLabel *Label5;
|
||||
TLabel *Label6;
|
||||
TLabel *Label7;
|
||||
TLabel *Label8;
|
||||
TDBEdit *DBEdit1;
|
||||
TDBEdit *DBEdit2;
|
||||
TDBEdit *DBEdit3;
|
||||
TDBEdit *DBEdit4;
|
||||
TLabel *Label9;
|
||||
TShape *Shape2;
|
||||
TShape *Shape3;
|
||||
TLabel *Label10;
|
||||
TLabel *Label11;
|
||||
TShape *Shape4;
|
||||
TDBEdit *DBEdit5;
|
||||
TLabel *Label12;
|
||||
TDBEdit *DBEdit6;
|
||||
TDBEdit *DBEdit7;
|
||||
TLabel *Label13;
|
||||
TShape *Shape5;
|
||||
TLabel *Label14;
|
||||
TLabel *Label15;
|
||||
TLabel *Label16;
|
||||
TShape *Shape6;
|
||||
TDBEdit *DBEdit8;
|
||||
TDBEdit *DBEdit9;
|
||||
TLabel *Label17;
|
||||
TDBEdit *DBEdit10;
|
||||
TDBEdit *DBEdit11;
|
||||
TDBEdit *DBEdit12;
|
||||
TDBEdit *DBEdit13;
|
||||
TLabel *Label18;
|
||||
TShape *Shape7;
|
||||
TLabel *Label19;
|
||||
TLabel *Label20;
|
||||
TShape *Shape8;
|
||||
TLabel *Label21;
|
||||
TBitBtn *BitBtn1;
|
||||
TDataSource *DsRecibos;
|
||||
TTable *TbRecibos;
|
||||
TAutoIncField *TbRecibosId;
|
||||
TStringField *TbRecibosLugarLibramiento;
|
||||
TDateField *TbRecibosFechaLibramiento;
|
||||
TDateField *TbRecibosVencimiento;
|
||||
TStringField *TbRecibosPagarA;
|
||||
TCurrencyField *TbRecibosImporte;
|
||||
TStringField *TbRecibosPersonaEntidad;
|
||||
TStringField *TbRecibosDomicilio;
|
||||
TStringField *TbRecibosCent;
|
||||
TStringField *TbRecibosCsuc;
|
||||
TStringField *TbRecibosCdc;
|
||||
TStringField *TbRecibosCnum;
|
||||
TStringField *TbRecibosImporteTXT;
|
||||
TStringField *TbRecibosImporteTXTcent;
|
||||
TDBText *DBText1;
|
||||
TDBNavigator *DBNavigator1;
|
||||
TDBGrid *DBGrid1;
|
||||
TLabel *Label22;
|
||||
TDateTimePicker *FechaMin;
|
||||
TDateTimePicker *FechaMax;
|
||||
TBitBtn *BitBtn2;
|
||||
TDBCheckBox *DBCheckBox1;
|
||||
TBooleanField *TbRecibosPagado;
|
||||
TBitBtn *BitBtn3;
|
||||
TBitBtn *BitBtn4;
|
||||
void __fastcall ToolButton1Click(TObject *Sender);
|
||||
void __fastcall TbRecibosCalcFields(TDataSet *DataSet);
|
||||
void __fastcall BitBtn2Click(TObject *Sender);
|
||||
void __fastcall DBGrid1DblClick(TObject *Sender);
|
||||
void __fastcall BitBtn1Click(TObject *Sender);
|
||||
void __fastcall BitBtn3Click(TObject *Sender);
|
||||
void __fastcall BitBtn4Click(TObject *Sender);
|
||||
private: // User declarations
|
||||
public: // User declarations
|
||||
__fastcall TeRecibos(TComponent* Owner);
|
||||
AnsiString __fastcall entero2txt(int num);
|
||||
};
|
||||
//---------------------------------------------------------------------------
|
||||
extern PACKAGE TeRecibos *eRecibos;
|
||||
//---------------------------------------------------------------------------
|
||||
#endif
|
||||
Loading…
x
Reference in New Issue
Block a user