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

aggiunta programma gestione tabella banche di presentazione

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4136 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
paola 1997-02-17 11:14:01 +00:00
parent 6449f498db
commit 356e0b6f12
10 changed files with 428 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ef/bastbnp.h Executable file
View File

@ -0,0 +1,8 @@
#define F_INIZIO1 101
#define F_INIZIO2 102
#define F_FINE1 201
#define F_FINE2 202

69
ef/bastbnp.uml Executable file
View File

@ -0,0 +1,69 @@
#include "bastbnp.h"
PAGE "Stampa banche presentazione" -1 -1 56 8
STRING F_INIZIO1 5
BEGIN
PROMPT 2 1 "DA codice (ABI) "
FLAGS "Z"
HELP "Inserire il codice d'inizio "
FIELD LF_TAB->CODTAB[1,5]
USE BNP
INPUT CODTAB[1,5] F_INIZIO1
INPUT CODTAB[6,10] F_INIZIO2
DISPLAY " Codice ABI " CODTAB[1,5]
DISPLAY " Codice CAB " CODTAB[6,10]
OUTPUT F_INIZIO1 CODTAB[1,5]
OUTPUT F_INIZIO2 CODTAB[6,10]
GROUP 1
END
STRING F_INIZIO2 5
BEGIN
PROMPT 28 1 "DA codice (CAB) "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
FIELD LF_TAB->CODTAB[6,10]
COPY ALL F_INIZIO1
GROUP 1
END
STRING F_FINE1 5
BEGIN
PROMPT 2 3 "A codice (ABI) "
FLAGS "RZ"
HELP "Inserire il codice di fine "
FIELD LF_TAB->CODTAB[1,5]
COPY USE F_INIZIO1
INPUT CODTAB[1,5] F_FINE1
INPUT CODTAB[6,10] F_FINE2
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,5]
OUTPUT F_FINE2 CODTAB[6,10]
GROUP 2
END
STRING F_FINE2 5
BEGIN
PROMPT 28 3 "A codice (CAB) "
FLAGS "RZ"
HELP "Inserire il codice di fine "
FIELD LF_TAB->CODTAB[6,10]
COPY ALL F_FINE1
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

16
ef/batbbnp.h Executable file
View File

@ -0,0 +1,16 @@
#define F_CODICEABI 101
#define F_CODICECAB 102
#define F_ABI 103
#define F_ISTIT 104
#define F_DENOM 105
#define F_CAB 106
#define F_CC_INC 107
#define F_FIDO_INC 108
#define F_CC_CONT_INC 109
#define F_CC_SBF 110
#define F_FIDO_SBF 111
#define F_CC_CONT_SBF 112
#define F_CC_SCN 113
#define F_FIDO_SCN 114
#define F_CC_CONT_SCN 115
#define B_PRINT 116

31
ef/batbbnp.rpt Executable file
View File

@ -0,0 +1,31 @@
[Headers]
132
Tabella Banche di Presentazione
1|@0g%s|Codice
1|@8g%s|Codice
1|@18g%s|Portafoglio Effetti Salvo Buon Fine
1|@62g%s|Portafoglio Effetti All'Incasso
1|@96g%s|Portafoglio Effetti Allo Sconto
2|@1g%s|ABI
2|@9g%s|CAB
2|@18g%s|C/C
2|@28g%s|C/Cont.
2|@40g%s|Castelletto
2|@54g%s|C/C
2|@64g%s|C/Cont.
2|@74g%s|Castelletto
2|@91g%s|C/C
2|@101g%s|C/Cont.
2|@110g%s|Castelletto
[Rows]
1|CODTAB[1,5]|@1g@5s
1|CODTAB[6,10]|@9g@5s
1|S0|@16g@10s
1|S3|@26g@10s
1|R0|@36g@15,rpn|##########@,@@
1|S1|@54g@10s
1|S4|@64g@10s
1|R1|@74g@15,rpn|##########@,@@
1|S2|@91g@10s
1|S5|@101g@10s
1|R2|@110g@15,rpn|##########@,@@

183
ef/batbbnp.uml Executable file
View File

@ -0,0 +1,183 @@
#include "batbbnp.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella banche di presentazione" -1 -1 77 20
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 1 " "
END
NUMBER F_CODICEABI 5
BEGIN
PROMPT 2 2 "Codice ABI "
FIELD BNP->CODTAB[1,5]
FLAGS "Z"
KEY 1
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB F_CODICEABI
DISPLAY "ABI@5" CODTAB[1,5]
DISPLAY "Istituto@50" S0
OUTPUT F_CODICEABI CODTAB[1,5]
OUTPUT F_ISTIT S0
CHECKTYPE REQUIRED
END
NUMBER F_CODICECAB 5
BEGIN
PROMPT 2 3 "Codice CAB "
FIELD BNP->CODTAB[6,10]
FLAGS "Z"
KEY 1
USE %BAN KEY 1
INPUT CODTAB[1,5] F_CODICEABI
INPUT CODTAB[6,10] F_CODICECAB
DISPLAY "ABI@5" CODTAB[1,5]
DISPLAY "CAB@5" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
OUTPUT F_CODICECAB CODTAB[6,10]
OUTPUT F_CODICEABI CODTAB[1,5]
OUTPUT F_DENOM S0
CHECKTYPE REQUIRED
END
NUMBER F_ABI 5
BEGIN
PROMPT 2 2 "Codice ABI "
FLAGS "Z"
FIELD BNP->CODTAB[1,5]
KEY 1
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
JOIN BNP TO %BAN KEY 1 INTO CODTAB[1,5]=CODTAB[1,5]
INPUT CODTAB[1,5] F_ABI
DISPLAY "ABI@5" BNP->CODTAB[1,5]
DISPLAY "Istituto@50" S0
OUTPUT F_ABI CODTAB[1,5]
OUTPUT F_ISTIT S0
MESSAGE COPY,F_CODICEABI
CHECKTYPE REQUIRED
END
NUMBER F_CAB 5
BEGIN
PROMPT 2 3 "Codice CAB "
FLAGS "Z"
FIELD BNP->CODTAB[6,10]
KEY 1
USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
JOIN BNP TO %BAN KEY 1 INTO CODTAB=CODTAB
INPUT CODTAB[1,5] F_ABI
INPUT CODTAB[6,10] F_CAB
DISPLAY "ABI@5" BNP->CODTAB[1,5]
DISPLAY "CAB@5" BNP->CODTAB[6,10]
DISPLAY "Denominazione@50" S0
OUTPUT F_CAB CODTAB[6,10]
OUTPUT F_ABI CODTAB[1,5]
OUTPUT F_DENOM S0
MESSAGE COPY,F_CODICECAB
CHECKTYPE REQUIRED
END
STRING F_ISTIT 50
BEGIN
PROMPT 26 2 ""
FLAG "D"
END
STRING F_DENOM 50
BEGIN
PROMPT 26 3 ""
FLAG "D"
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 6 "Portafoglio effetti all' incasso"
END
STRING F_CC_INC 20
BEGIN
PROMPT 2 7 "C/C "
FIELD BNP->S0
END
NUMBER F_FIDO_INC 20 2
BEGIN
PROMPT 45 7 "Fido "
FIELD BNP->R0
END
STRING F_CC_CONT_INC 20
BEGIN
PROMPT 2 8 "C/Contabile "
FIELD BNP->S3
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 10 "Portafoglio effetti salvo buon fine"
END
STRING F_CC_SBF 20
BEGIN
PROMPT 2 11 "C/C "
FIELD BNP->S1
END
NUMBER F_FIDO_SBF 20 2
BEGIN
PROMPT 45 11 "Fido "
FIELD BNP->R1
END
STRING F_CC_CONT_SBF 20
BEGIN
PROMPT 2 12 "C/Contabile "
FIELD BNP->S4
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 14 "Portafoglio effetti allo sconto"
END
STRING F_CC_SCN 20
BEGIN
PROMPT 2 15 "C/C "
FIELD BNP->S2
END
NUMBER F_FIDO_SCN 20 2
BEGIN
PROMPT 45 15 "Fido "
FIELD BNP->R2
END
STRING F_CC_CONT_SCN 20
BEGIN
PROMPT 2 16 "C/Contabile "
FIELD BNP->S5
END
GROUPBOX DLG_NULL 15 4
BEGIN
PROMPT 1 18 " "
GROUP 1
FLAG "H"
END
BUTTON B_PRINT 10 2
BEGIN
PROMPT 2 19 "~Stampa"
MESSAGE EXIT,K_SPACE
PICTURE BMP_PRINT
PICTURE BMP_PRINT
GROUP 1
END
ENDPAGE
ENDMASK

7
ef/ef0.cpp
View File

@ -2,7 +2,7 @@
#include <checks.h>
#include "ef0.h"
#define usage "Error - usage : %s -{0|1|2|3|4|5}"
#define usage "Error - usage : %s -{0|1|2|3|4|5|6}"
int main(int argc, char** argv)
{
@ -27,7 +27,10 @@ int main(int argc, char** argv)
break;
case 5:
res = ef0600(argc,argv);// STAMPE DI CONTROLLO EFFETTI
break;
break;
case 6:
res = ef0700(argc,argv);// GESTIONE TABELLA BANCHE DI PRESENTAZIONE
break;
default:
error_box(usage, argv[0]);
break;

2
ef/ef0.h
View File

@ -7,6 +7,6 @@ int ef0300(int argc, char* argv[]);// GESTIONE DISTINTE
int ef0400(int argc, char* argv[]);// ELIMINAZIONE EFFETTI
int ef0500(int argc, char* argv[]);// EMISSIONE EFFETTI/DISTINTE
int ef0600(int argc, char* argv[]);// STAMPE DI CONTROLLO EFFETTI
int ef0700(int argc, char* argv[]);// GESTIONE TABELLA BANCHE DI PRESENTAZIONE
#endif // __EF0_H

7
ef/ef0.url
View File

@ -33,4 +33,9 @@ MENUBAR MENU_BAR(5)
MENU MENU_BAR(5)
SUBMENU MENU_FILE "~File"
/* ef0 -6 */
MENUBAR MENU_BAR(6)
MENU MENU_BAR(6)
SUBMENU MENU_FILE "~File"

7
ef/ef0101.h
View File

@ -3,6 +3,9 @@
#endif
#ifndef __RECTYPES_H
#include <rectypes.h>
#endif
#ifndef __RECARRAY_H
#include <recarray.h>
#endif
#include <effetti.h>
#include <reffetti.h>
@ -14,8 +17,8 @@
/////////////////////////////////////////////////////////////////////////////////
class TEffetto:public TRectype
{
TRecord_array _righe,// righe dell'effetto
_cess;// cessionari dell'effetto
TRecord_array _righe;// righe dell'effetto
TRecord_array _cess;// cessionari dell'effetto
protected:
// ritorna la prossima chiave
long get_next_key(const long codcf) const;

104
ef/ef0700.cpp Executable file
View File

@ -0,0 +1,104 @@
#include <tabapp.h>
#include <tabutil.h>
#include "batbbnp.h"
class TBnp_table_app : public Tab_application
{
protected:
virtual bool user_destroy() ;
virtual bool user_create() ;
virtual void init_query_insert_mode(TMask& m) ;
virtual void init_insert_mode(TMask& m) ;
virtual void init_query_mode (TMask&);
virtual int rewrite(const TMask& m);
virtual void print(void);
static bool stampa_handler(TMask_field& f, KEY k);
public:
TBnp_table_app() {}
virtual ~TBnp_table_app() {}
};
HIDDEN inline TBnp_table_app& app() { return (TBnp_table_app&) main_app();}
void TBnp_table_app::init_query_insert_mode(TMask& m)
{
m.show(F_CODICEABI);
m.show(F_CODICECAB);
m.field(F_CODICEABI).check_type(CHECK_REQUIRED);
m.field(F_CODICECAB).check_type(CHECK_REQUIRED);
m.hide(F_ABI);
m.hide(F_CAB);
m.field(F_ABI).check_type(CHECK_NONE);
m.field(F_CAB).check_type(CHECK_NONE);
}
void TBnp_table_app::init_insert_mode(TMask& m)
{
m.show(F_CODICEABI);
m.show(F_CODICECAB);
m.field(F_CODICEABI).check_type(CHECK_REQUIRED);
m.field(F_CODICECAB).check_type(CHECK_REQUIRED);
m.hide(F_ABI);
m.hide(F_CAB);
m.field(F_ABI).check_type(CHECK_NONE);
m.field(F_CAB).check_type(CHECK_NONE);
}
void TBnp_table_app::init_query_mode(TMask& m)
{
Tab_application::init_query_mode(m);
m.show(F_ABI);
m.show(F_CAB);
m.field(F_ABI).check_type(CHECK_REQUIRED);
m.field(F_CAB).check_type(CHECK_REQUIRED);
m.hide(F_CODICEABI);
m.hide(F_CODICECAB);
m.field(F_CODICEABI).check_type(CHECK_NONE);
m.field(F_CODICECAB).check_type(CHECK_NONE);
}
bool TBnp_table_app::user_create()
{
Tab_application::user_create();
const TString& name = get_tabname();
TMask& mask = *get_mask();
mask.set_handler(B_PRINT, stampa_handler);
return TRUE;
}
bool TBnp_table_app::user_destroy()
{
return Tab_application::user_destroy();
}
int TBnp_table_app::rewrite(const TMask& m)
{
return Tab_application::rewrite(m);
}
void TBnp_table_app::print()
{
Tab_application::print();
}
bool TBnp_table_app::stampa_handler(TMask_field& f, KEY k)
{
TMask &m = f.mask();
if (k == K_SPACE)
{
app().print();
}
return TRUE;
}
int ef0700(int argc, char* argv[])
{
TBnp_table_app a ;
a.run(argc, argv, "Tabella Banche di Presentazione");
return 0;
}