root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
777100.cpp   Gestito anno dichiarazione
777100a.h    Aggiunto #define F_ANNO
777100a.uml  Aggiunto campo anno dichiarazione per filtrare le ditte


git-svn-id: svn://10.65.10.50/trunk@7082 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1998-09-16 10:07:53 +00:00
parent de1482589d
commit 736e086a7d
3 changed files with 29 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
m770/777100.cpp
View File

@ -1359,13 +1359,19 @@ TTrasferimento770::~TTrasferimento770()
// main // main
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
HIDDEN int anno_dic()
{
TConfig ini(CONFIG_STUDIO);
return ini.get_int("AnnoDic");
}
class TTransfer770_msk : public TAutomask class TTransfer770_msk : public TAutomask
{ {
protected: protected:
virtual bool on_field_event(TOperable_field& of, TField_event fe, long jolly); virtual bool on_field_event(TOperable_field& of, TField_event fe, long jolly);
public: public:
TTransfer770_msk() : TAutomask("777100a") { } TTransfer770_msk();
virtual ~TTransfer770_msk() { } virtual ~TTransfer770_msk() { }
}; };
@ -1387,6 +1393,11 @@ bool TTransfer770_msk::on_field_event(TOperable_field& of, TField_event fe, long
return TRUE; return TRUE;
} }
TTransfer770_msk::TTransfer770_msk() : TAutomask("777100a")
{
set(F_ANNO, anno_dic());
}
class TTransfer770_app : public TSkeleton_application class TTransfer770_app : public TSkeleton_application
{ {
protected: protected:
@ -1407,7 +1418,10 @@ void TTransfer770_app::main_loop()
TRectype da_rec(LF_BASE), a_rec(LF_BASE); TRectype da_rec(LF_BASE), a_rec(LF_BASE);
da_rec.put(BSE_CODDITTA, m.get(F_DADITTA)); da_rec.put(BSE_CODDITTA, m.get(F_DADITTA));
a_rec.put(BSE_CODDITTA, m.get(F_ADITTA)); a_rec.put(BSE_CODDITTA, m.get(F_ADITTA));
TCursor cur_base(&rel_base, "", 1, &da_rec, &a_rec);
TString filter;
filter << "ANNODIC=" << anno_dic();
TCursor cur_base(&rel_base, filter, 1, &da_rec, &a_rec);
TProgind pi(cur_base.items(), "Generazione file di trasferimento", FALSE, TRUE); TProgind pi(cur_base.items(), "Generazione file di trasferimento", FALSE, TRUE);
cur_base.freeze(); cur_base.freeze();

9
m770/777100a.h
View File

@ -1,8 +1,9 @@
#define F_SUPPORTO 101 #define F_SUPPORTO 101
#define F_PATH 102 #define F_PATH 102
#define F_DISK 103 #define F_DISK 103
#define F_DADITTA 104 #define F_ANNO 104
#define F_DADESC 105 #define F_DADITTA 105
#define F_ADITTA 106 #define F_DADESC 106
#define F_ADESC 107 #define F_ADITTA 107
#define F_ADESC 108

9
m770/777100a.uml
View File

@ -2,6 +2,12 @@
PAGE "Invio" -1 -1 72 10 PAGE "Invio" -1 -1 72 10
NUMBER F_ANNO 4
BEGIN
PROMPT 47 2 "Anno dichiarazione "
FLAGS "D"
END
RADIOBUTTON F_SUPPORTO 1 16 RADIOBUTTON F_SUPPORTO 1 16
BEGIN BEGIN
PROMPT 1 1 "Tipo" PROMPT 1 1 "Tipo"
@ -26,10 +32,11 @@ END
NUMBER F_DADITTA 5 NUMBER F_DADITTA 5
BEGIN BEGIN
PROMPT 1 5 "Da ditta " PROMPT 1 5 "Da ditta "
USE LF_BASE USE LF_BASE SELECT ANNODIC=#F_ANNO
JOIN LF_NDITTE INTO CODDITTA=CODDITTA JOIN LF_NDITTE INTO CODDITTA=CODDITTA
INPUT CODDITTA F_DADITTA INPUT CODDITTA F_DADITTA
DISPLAY "Ditta" CODDITTA DISPLAY "Ditta" CODDITTA
DISPLAY "Anno" ANNODIC
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
OUTPUT F_DADITTA CODDITTA OUTPUT F_DADITTA CODDITTA
OUTPUT F_DADESC LF_NDITTE->RAGSOC OUTPUT F_DADESC LF_NDITTE->RAGSOC