Patch level :10.0 468
Files correlati : Ricompilazione Demo : [ ] Commento : spostato il gestore/stampatore tabella bnp in cg9; rimosso eeaut da ef0a00.cpp git-svn-id: svn://10.65.10.50/trunk@19433 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
52f673ee7a
commit
b746c1868e
@ -1,12 +1,9 @@
|
|||||||
#include <tabapp.h>
|
#include <tabapp.h>
|
||||||
|
|
||||||
#include "eftbbnp.h"
|
//////////////////////////////////////////////////////
|
||||||
|
// Classe per la gestione della Tabella di Effetti //
|
||||||
////////////////////////////////////////////////////
|
//////////////////////////////////////////////////////
|
||||||
// Classe per la gestione della Tabella di Ditta //
|
class TEff_table_app : public TTable_application
|
||||||
// "Banche di presentazione" //
|
|
||||||
////////////////////////////////////////////////////
|
|
||||||
class TBnp_table_app : public TTable_application
|
|
||||||
{
|
{
|
||||||
protected:
|
protected:
|
||||||
virtual bool user_create() ;
|
virtual bool user_create() ;
|
||||||
@ -17,80 +14,55 @@ protected:
|
|||||||
|
|
||||||
public:
|
public:
|
||||||
// @cmember Disabilita la verifica del modulo : essendo una anagrafica, va sempre abilitata
|
// @cmember Disabilita la verifica del modulo : essendo una anagrafica, va sempre abilitata
|
||||||
virtual bool check_autorization() const { return FALSE; }
|
virtual bool check_autorization() const { return false; }
|
||||||
|
|
||||||
TBnp_table_app() { }
|
TEff_table_app() { }
|
||||||
virtual ~TBnp_table_app() { }
|
virtual ~TEff_table_app() { }
|
||||||
};
|
};
|
||||||
|
|
||||||
HIDDEN inline TBnp_table_app& app() { return (TBnp_table_app&) main_app(); }
|
HIDDEN inline TEff_table_app& app() { return (TEff_table_app&) main_app(); }
|
||||||
|
|
||||||
void TBnp_table_app::init_query_insert_mode(TMask& m)
|
void TEff_table_app::init_query_insert_mode(TMask& m)
|
||||||
{
|
{
|
||||||
if (get_tabname() == "BNP")
|
if (get_tabname() == "")
|
||||||
{
|
{
|
||||||
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)
|
void TEff_table_app::init_insert_mode(TMask& m)
|
||||||
{
|
{
|
||||||
if (get_tabname() == "BNP")
|
if (get_tabname() == "")
|
||||||
{
|
{
|
||||||
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_modify_mode(TMask& m)
|
void TEff_table_app::init_modify_mode(TMask& m)
|
||||||
{
|
{
|
||||||
if (get_tabname() == "BNP")
|
if (get_tabname() == "")
|
||||||
{
|
{
|
||||||
m.efield(F_IBAN_STATO).validate(K_TAB);
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void TBnp_table_app::init_query_mode(TMask& m)
|
void TEff_table_app::init_query_mode(TMask& m)
|
||||||
{
|
{
|
||||||
TTable_application::init_query_mode(m);
|
TTable_application::init_query_mode(m);
|
||||||
if (get_tabname() == "BNP")
|
if (get_tabname() == "")
|
||||||
{
|
{
|
||||||
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()
|
bool TEff_table_app::user_create()
|
||||||
{
|
{
|
||||||
TTable_application::user_create();
|
TTable_application::user_create();
|
||||||
const TString& name = get_tabname();
|
const TString& name = get_tabname();
|
||||||
if (name.empty())
|
if (name.empty())
|
||||||
return error_box(TR("Specificare la tabella sulla linea di comando."));
|
return error_box(TR("Specificare la tabella sulla linea di comando."));
|
||||||
return TRUE;
|
return true;
|
||||||
}
|
}
|
||||||
|
|
||||||
int ef0700(int argc, char* argv[])
|
int ef0700(int argc, char* argv[])
|
||||||
{
|
{
|
||||||
TBnp_table_app a ;
|
TEff_table_app a ;
|
||||||
a.run(argc, argv, TR("Gestione tabelle"));
|
a.run(argc, argv, TR("Gestione tabelle Effetti"));
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
@ -1024,7 +1024,7 @@ void TPagamento_effetti::print()
|
|||||||
|
|
||||||
bool TPagamento_effetti::create()
|
bool TPagamento_effetti::create()
|
||||||
{
|
{
|
||||||
if (!has_module(EPAUT) && !has_module(EEAUT))
|
if (!has_module(EPAUT))
|
||||||
return error_box(TR("Modulo non autorizzato"));
|
return error_box(TR("Modulo non autorizzato"));
|
||||||
|
|
||||||
return TSkeleton_application::create();
|
return TSkeleton_application::create();
|
||||||
|
14
ef/efstbnp.h
14
ef/efstbnp.h
@ -1,14 +0,0 @@
|
|||||||
// DEFINIZIONE CAMPI MASCHERA PER STAMPA TABELLA BANCHE DI PRESENTAZIONE
|
|
||||||
|
|
||||||
#ifndef __BASTBNP_H
|
|
||||||
#define __BASTBNP_H
|
|
||||||
|
|
||||||
#define F_INIZIO1 101
|
|
||||||
#define F_INIZIO2 102
|
|
||||||
#define F_FINE1 201
|
|
||||||
#define F_FINE2 202
|
|
||||||
|
|
||||||
#endif //__BASTBNP_H
|
|
||||||
|
|
||||||
|
|
||||||
|
|
154
ef/efstbnp.rep
154
ef/efstbnp.rep
@ -1,154 +0,0 @@
|
|||||||
|
|
||||||
<report name="efstbnp" lpi="6">
|
|
||||||
<font face="Courier New" size="10" />
|
|
||||||
<section keep_with_next="1" type="Head">
|
|
||||||
<field y="1.5" type="Testo" valign="center" align="center" width="96" height="2" text="Banche di Presentazione">
|
|
||||||
<font face="Courier New" bold="1" size="14" />
|
|
||||||
</field>
|
|
||||||
<field border="2" x="1" y="3.5" type="Linea" width="93" height="0" />
|
|
||||||
<field x="2" y="4" type="Testo" width="3" text="ABI">
|
|
||||||
<font face="Courier New" bold="1" size="10" />
|
|
||||||
</field>
|
|
||||||
<field x="10" y="4" type="Testo" width="3" text="CAB">
|
|
||||||
<font face="Courier New" bold="1" size="10" />
|
|
||||||
</field>
|
|
||||||
<field x="20" y="4" type="Testo" width="7" text="Filiale">
|
|
||||||
<font face="Courier New" bold="1" size="10" />
|
|
||||||
</field>
|
|
||||||
<field x="2" y="5" type="Testo" width="31" text="Portafoglio effetti all'incasso">
|
|
||||||
<font face="Courier New" bold="1" size="10" />
|
|
||||||
</field>
|
|
||||||
<field x="2" y="6" type="Testo" width="3" text="C/C">
|
|
||||||
<font face="Courier New" bold="1" size="10" />
|
|
||||||
</field>
|
|
||||||
<field x="24" y="6" type="Testo" width="12" text="Conti attivi">
|
|
||||||
<font face="Courier New" bold="1" size="10" />
|
|
||||||
</field>
|
|
||||||
<field x="60" y="6" type="Testo" width="13" text="Conti passivi">
|
|
||||||
<font face="Courier New" bold="1" size="10" />
|
|
||||||
</field>
|
|
||||||
<field x="2" y="7" type="Testo" width="35" text="Portafoglio effetti salvo buon fine">
|
|
||||||
<font face="Courier New" bold="1" size="10" />
|
|
||||||
</field>
|
|
||||||
<field x="2" y="8" type="Testo" width="3" text="C/C">
|
|
||||||
<font face="Courier New" bold="1" size="10" />
|
|
||||||
</field>
|
|
||||||
<field x="41" y="8" type="Testo" width="4" text="Fido">
|
|
||||||
<font face="Courier New" bold="1" size="10" />
|
|
||||||
</field>
|
|
||||||
<field x="60" y="8" type="Testo" width="13" text="Contropartita">
|
|
||||||
<font face="Courier New" bold="1" size="10" />
|
|
||||||
</field>
|
|
||||||
<field x="2" y="9" type="Testo" width="31" text="Portafoglio effetti allo sconto">
|
|
||||||
<font face="Courier New" bold="1" size="10" />
|
|
||||||
</field>
|
|
||||||
<field x="2" y="10" type="Testo" width="3" text="C/C">
|
|
||||||
<font face="Courier New" bold="1" size="10" />
|
|
||||||
</field>
|
|
||||||
<field x="41" y="10" type="Testo" width="4" text="Fido">
|
|
||||||
<font face="Courier New" bold="1" size="10" />
|
|
||||||
</field>
|
|
||||||
<field x="60" y="10" type="Testo" width="13" text="Contropartita">
|
|
||||||
<font face="Courier New" bold="1" size="10" />
|
|
||||||
</field>
|
|
||||||
<field border="2" x="1" y="11.5" type="Linea" width="93" height="0" />
|
|
||||||
<field type="Stringa" width="50">
|
|
||||||
<font italic="1" face="Courier New" bold="1" size="10" />
|
|
||||||
<source>#SYSTEM.RAGSOC</source>
|
|
||||||
</field>
|
|
||||||
</section>
|
|
||||||
<section keep_with_next="1" type="Head" level="1" />
|
|
||||||
<section keep_with_next="1" type="Body" />
|
|
||||||
<section keep_with_next="1" type="Body" level="1">
|
|
||||||
<field x="2" type="Stringa" link="BNP.CODTAB[1,5]" width="5">
|
|
||||||
<source>CODTAB[1,5]</source>
|
|
||||||
</field>
|
|
||||||
<field x="10" type="Stringa" link="BNP.CODTAB[6,10]" width="5">
|
|
||||||
<source>CODTAB[6,10]</source>
|
|
||||||
</field>
|
|
||||||
<field x="22" type="Stringa" width="50">
|
|
||||||
<source>200@.S0</source>
|
|
||||||
</field>
|
|
||||||
<field x="2" y="1" type="Stringa" width="20">
|
|
||||||
<source>S0</source>
|
|
||||||
</field>
|
|
||||||
<field x="24" y="1" type="Numero" align="right" width="3">
|
|
||||||
<source>I0</source>
|
|
||||||
</field>
|
|
||||||
<field x="28" y="1" type="Numero" align="right" width="3">
|
|
||||||
<source>I1</source>
|
|
||||||
</field>
|
|
||||||
<field x="32" y="1" type="Numero" align="right" width="6">
|
|
||||||
<source>I2</source>
|
|
||||||
</field>
|
|
||||||
<field x="39" y="1" type="Stringa" width="18">
|
|
||||||
<source>201@.DESCR[1,18]</source>
|
|
||||||
</field>
|
|
||||||
<field x="60" y="1" type="Numero" align="right" width="3">
|
|
||||||
<source>I9</source>
|
|
||||||
</field>
|
|
||||||
<field x="64" y="1" type="Numero" align="right" width="3">
|
|
||||||
<source>I10</source>
|
|
||||||
</field>
|
|
||||||
<field x="68" y="1" type="Numero" align="right" width="6">
|
|
||||||
<source>I11</source>
|
|
||||||
</field>
|
|
||||||
<field x="75" y="1" type="Stringa" width="18">
|
|
||||||
<source>202@.DESCR[1,18]</source>
|
|
||||||
</field>
|
|
||||||
<field x="2" y="2" type="Stringa" width="20">
|
|
||||||
<source>S1</source>
|
|
||||||
</field>
|
|
||||||
<field x="30" y="2" type="Numero" align="right" width="15" text="##@,@@">
|
|
||||||
<source>R1</source>
|
|
||||||
</field>
|
|
||||||
<field x="60" y="2" type="Numero" align="right" width="3">
|
|
||||||
<source>I3</source>
|
|
||||||
</field>
|
|
||||||
<field x="64" y="2" type="Numero" align="right" width="3">
|
|
||||||
<source>I4</source>
|
|
||||||
</field>
|
|
||||||
<field x="68" y="2" type="Numero" align="right" width="6">
|
|
||||||
<source>I5</source>
|
|
||||||
</field>
|
|
||||||
<field x="75" y="2" type="Stringa" width="18">
|
|
||||||
<source>203@.DESCR[1,18]</source>
|
|
||||||
</field>
|
|
||||||
<field x="2" y="3" type="Stringa" width="20">
|
|
||||||
<source>S2</source>
|
|
||||||
</field>
|
|
||||||
<field x="30" y="3" type="Numero" align="right" width="15" text="##@,@@">
|
|
||||||
<source>R2</source>
|
|
||||||
</field>
|
|
||||||
<field x="60" y="3" type="Numero" align="right" width="3">
|
|
||||||
<source>I6</source>
|
|
||||||
</field>
|
|
||||||
<field x="64" y="3" type="Numero" align="right" width="3">
|
|
||||||
<source>I7</source>
|
|
||||||
</field>
|
|
||||||
<field x="68" y="3" type="Numero" align="right" width="6">
|
|
||||||
<source>I8</source>
|
|
||||||
</field>
|
|
||||||
<field x="75" y="3" type="Stringa" width="18">
|
|
||||||
<source>204@.DESCR[1,18]</source>
|
|
||||||
</field>
|
|
||||||
<field border="1" y="4.5" type="Linea" width="93" height="0" />
|
|
||||||
</section>
|
|
||||||
<section keep_with_next="1" type="Foot" height="3">
|
|
||||||
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
|
|
||||||
<field x="2" y="1" type="Data" width="10">
|
|
||||||
<source>#SYSTEM.DATE</source>
|
|
||||||
</field>
|
|
||||||
<field x="90" y="1" type="Numero" align="right" width="3">
|
|
||||||
<source>#PAGE</source>
|
|
||||||
</field>
|
|
||||||
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
|
|
||||||
</section>
|
|
||||||
<section keep_with_next="1" type="Foot" level="1" />
|
|
||||||
<sql>USE BNP
|
|
||||||
JOIN %BAN ALIAS 200 INTO CODTAB==CODTAB
|
|
||||||
JOIN PCON ALIAS 201 INTO GRUPPO==I0 CONTO==I1 SOTTOCONTO==I2
|
|
||||||
JOIN PCON ALIAS 202 INTO GRUPPO==I9 CONTO==I10 SOTTOCONTO==I11
|
|
||||||
JOIN PCON ALIAS 203 INTO GRUPPO==I3 CONTO==I4 SOTTOCONTO==I5
|
|
||||||
JOIN PCON ALIAS 204 INTO GRUPPO==I6 CONTO==I7 SOTTOCONTO==I8</sql>
|
|
||||||
</report>
|
|
@ -1,64 +0,0 @@
|
|||||||
//DEFINIZIONE MASCHERA PER STAMPA TABELLA BANCHE DI PRESENTAZIONE
|
|
||||||
#include "efstbnp.h"
|
|
||||||
|
|
||||||
TOOLBAR "topbar" 0 0 0 2
|
|
||||||
#include <printbar.h>
|
|
||||||
ENDPAGE
|
|
||||||
|
|
||||||
PAGE "Banche di Presentazione" 0 0 0 0
|
|
||||||
|
|
||||||
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
|
|
||||||
|
|
||||||
ENDPAGE
|
|
||||||
ENDMASK
|
|
51
ef/eftbbnp.h
51
ef/eftbbnp.h
@ -1,51 +0,0 @@
|
|||||||
//DEFINIZIONE CAMPI MASCHERA GESTIONE TABELLA BANCHE DI PRESENTAZIONE
|
|
||||||
#ifndef __BATBBNP_H
|
|
||||||
#define __BATBBNP_H
|
|
||||||
|
|
||||||
#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_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 F_GRUPPO_INC 116
|
|
||||||
#define F_CONTO_INC 117
|
|
||||||
#define F_SOTTOC_INC 118
|
|
||||||
#define F_GRUPPO_SBF 119
|
|
||||||
#define F_CONTO_SBF 120
|
|
||||||
#define F_SOTTOC_SBF 121
|
|
||||||
#define F_GRUPPO_SCN 122
|
|
||||||
#define F_CONTO_SCN 123
|
|
||||||
#define F_SOTTOC_SCN 124
|
|
||||||
#define F_DESCR_INC 126
|
|
||||||
#define F_DESCR_SBF 127
|
|
||||||
#define F_DESCR_SCN 128
|
|
||||||
#define F_GRUPPO_INCP 129
|
|
||||||
#define F_CONTO_INCP 130
|
|
||||||
#define F_SOTTOC_INCP 131
|
|
||||||
#define F_DESCR_INCP 132
|
|
||||||
|
|
||||||
#define F_IBAN 140
|
|
||||||
#define F_IBAN_STATO 141
|
|
||||||
#define F_IBAN_CHECK 142
|
|
||||||
#define F_BBAN 143
|
|
||||||
#define F_BBAN_CIN 144
|
|
||||||
#define F_BBAN_ABI 145
|
|
||||||
#define F_BBAN_CAB 146
|
|
||||||
#define F_BBAN_CONTO 147
|
|
||||||
|
|
||||||
#define F_CBI 150
|
|
||||||
#define F_IBAN_PAG 151
|
|
||||||
#define F_IBAN_INC 152
|
|
||||||
|
|
||||||
|
|
||||||
#endif//__BATBBNP_H
|
|
418
ef/eftbbnp.uml
418
ef/eftbbnp.uml
@ -1,418 +0,0 @@
|
|||||||
#include "eftbbnp.h"
|
|
||||||
|
|
||||||
TOOLBAR "topbar" 0 0 0 2
|
|
||||||
#include <relapbar.h>
|
|
||||||
ENDPAGE
|
|
||||||
|
|
||||||
PAGE "Banche di Presentazione" 0 2 0 0
|
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 78 4
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 0 ""
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_CODICEABI 5
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 1 "Codice ABI "
|
|
||||||
FIELD 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 2 "Codice CAB "
|
|
||||||
FIELD CODTAB[6,10]
|
|
||||||
FLAGS "Z"
|
|
||||||
KEY 1
|
|
||||||
USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
|
|
||||||
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 1 "Codice ABI "
|
|
||||||
FLAGS "Z"
|
|
||||||
FIELD CODTAB[1,5]
|
|
||||||
KEY 1
|
|
||||||
USE BNP KEY 1 SELECT CODTAB ?= "??????????"
|
|
||||||
JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
|
|
||||||
INPUT CODTAB[1,5] F_ABI
|
|
||||||
DISPLAY "ABI@5" CODTAB[1,5]
|
|
||||||
DISPLAY "CAB@5" CODTAB[6,10]
|
|
||||||
DISPLAY "Denominazione@50" 100@->S0
|
|
||||||
OUTPUT F_ABI CODTAB[1,5]
|
|
||||||
MESSAGE COPY,F_CODICEABI
|
|
||||||
MESSAGE CHECK,F_CODICEABI
|
|
||||||
MESSAGE COPY,F_BBAN_ABI
|
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_CAB 5
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 2 "Codice CAB "
|
|
||||||
FLAGS "Z"
|
|
||||||
FIELD CODTAB[6,10]
|
|
||||||
KEY 1
|
|
||||||
USE BNP KEY 1 SELECT CODTAB ?= "??????????"
|
|
||||||
JOIN %BAN ALIAS 100 INTO CODTAB=CODTAB
|
|
||||||
INPUT CODTAB[1,5] F_ABI
|
|
||||||
INPUT CODTAB[6,10] F_CAB
|
|
||||||
DISPLAY "ABI@5" CODTAB[1,5]
|
|
||||||
DISPLAY "CAB@5" CODTAB[6,10]
|
|
||||||
DISPLAY "Denominazione@50" 100@->S0
|
|
||||||
OUTPUT F_CAB CODTAB[6,10]
|
|
||||||
OUTPUT F_ABI CODTAB[1,5]
|
|
||||||
OUTPUT F_DENOM 100@->S0
|
|
||||||
MESSAGE COPY,F_CODICECAB
|
|
||||||
MESSAGE CHECK,F_CODICEABI
|
|
||||||
MESSAGE COPY,F_BBAN_CAB
|
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_ISTIT 50
|
|
||||||
BEGIN
|
|
||||||
PROMPT 26 1 ""
|
|
||||||
FLAG "D"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_DENOM 50
|
|
||||||
BEGIN
|
|
||||||
PROMPT 26 2 ""
|
|
||||||
FLAG "D"
|
|
||||||
END
|
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 78 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 4 "@bConto Corrente"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_IBAN 34
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 55 ""
|
|
||||||
FLAGS "D"
|
|
||||||
FIELD S3
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_IBAN_STATO 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 5 "Codice IBAN "
|
|
||||||
FLAGS "U"
|
|
||||||
VALIDATE CHECK_IBAN_FUNC F_IBAN F_IBAN_STATO F_IBAN_CHECK F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_IBAN_CHECK 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT 19 5 ""
|
|
||||||
FLAGS "UZ"
|
|
||||||
VALIDATE CHECK_IBAN_FUNC F_IBAN F_IBAN_STATO F_IBAN_CHECK F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGA F_BBAN 30
|
|
||||||
BEGIN
|
|
||||||
PROMPT 30 5 "BBAN "
|
|
||||||
FLAGS "UH"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGA F_BBAN_CIN 1
|
|
||||||
BEGIN
|
|
||||||
PROMPT 30 5 "BBAN "
|
|
||||||
FLAGS "U"
|
|
||||||
VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_BBAN_ABI 5
|
|
||||||
BEGIN
|
|
||||||
PROMPT 38 5 ""
|
|
||||||
FLAGS "DGZ"
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_BBAN_CAB 5
|
|
||||||
BEGIN
|
|
||||||
PROMPT 45 5 ""
|
|
||||||
FLAGS "DGZ"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_BBAN_CONTO 12
|
|
||||||
BEGIN
|
|
||||||
PROMPT 52 5 ""
|
|
||||||
FLAGS "UZ"
|
|
||||||
VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
|
|
||||||
END
|
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 78 5
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 7 "@bPortafoglio Effetti all'incasso"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_CC_INC 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 8 "C/C "
|
|
||||||
FIELD S0
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_GRUPPO_INC 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 9 "Conto attivi "
|
|
||||||
FIELD I0
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_CONTO_INC 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 21 9 ""
|
|
||||||
FIELD I1
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_SOTTOC_INC 6
|
|
||||||
BEGIN
|
|
||||||
PROMPT 28 9 ""
|
|
||||||
FIELD I2
|
|
||||||
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
|
||||||
INPUT GRUPPO F_GRUPPO_INC
|
|
||||||
INPUT CONTO F_CONTO_INC
|
|
||||||
INPUT SOTTOCONTO F_SOTTOC_INC
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_GRUPPO_INC GRUPPO
|
|
||||||
OUTPUT F_CONTO_INC CONTO
|
|
||||||
OUTPUT F_SOTTOC_INC SOTTOCONTO
|
|
||||||
OUTPUT F_DESCR_INC DESCR
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_DESCR_INC 50 38
|
|
||||||
BEGIN
|
|
||||||
PROMPT 38 9 ""
|
|
||||||
USE LF_PCON KEY 2
|
|
||||||
INPUT DESCR F_DESCR_INC
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
|
||||||
COPY OUTPUT F_SOTTOC_INC
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_GRUPPO_INCP 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 10 "Conto addebito "
|
|
||||||
FIELD I9
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_CONTO_INCP 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 21 10 ""
|
|
||||||
FIELD I10
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_SOTTOC_INCP 6
|
|
||||||
BEGIN
|
|
||||||
PROMPT 28 10 ""
|
|
||||||
FIELD I11
|
|
||||||
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
|
||||||
INPUT GRUPPO F_GRUPPO_INCP
|
|
||||||
INPUT CONTO F_CONTO_INCP
|
|
||||||
INPUT SOTTOCONTO F_SOTTOC_INCP
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_GRUPPO_INCP GRUPPO
|
|
||||||
OUTPUT F_CONTO_INCP CONTO
|
|
||||||
OUTPUT F_SOTTOC_INCP SOTTOCONTO
|
|
||||||
OUTPUT F_DESCR_INCP DESCR
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_DESCR_INCP 50 38
|
|
||||||
BEGIN
|
|
||||||
PROMPT 38 10 ""
|
|
||||||
USE LF_PCON KEY 2
|
|
||||||
INPUT DESCR F_DESCR_INCP
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
|
||||||
COPY OUTPUT F_SOTTOC_INCP
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 78 4
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 12 "@bPortafoglio Effetti salvo buon fine"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_CC_SBF 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 13 "C/C "
|
|
||||||
FIELD S1
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_FIDO_SBF 20 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT 38 13 "Fido "
|
|
||||||
FIELD R1
|
|
||||||
PICTURE "###.###.###.###,@@"
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_GRUPPO_SBF 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 14 "Contropartita "
|
|
||||||
FIELD I3
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_CONTO_SBF 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 21 14 ""
|
|
||||||
FIELD I4
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_SOTTOC_SBF 6
|
|
||||||
BEGIN
|
|
||||||
PROMPT 28 14 ""
|
|
||||||
FIELD I5
|
|
||||||
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
|
||||||
INPUT GRUPPO F_GRUPPO_SBF
|
|
||||||
INPUT CONTO F_CONTO_SBF
|
|
||||||
INPUT SOTTOCONTO F_SOTTOC_SBF
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_GRUPPO_SBF GRUPPO
|
|
||||||
OUTPUT F_CONTO_SBF CONTO
|
|
||||||
OUTPUT F_SOTTOC_SBF SOTTOCONTO
|
|
||||||
OUTPUT F_DESCR_SBF DESCR
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_DESCR_SBF 50 38
|
|
||||||
BEGIN
|
|
||||||
PROMPT 38 14 ""
|
|
||||||
USE LF_PCON KEY 2
|
|
||||||
INPUT DESCR F_DESCR_SBF
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
|
||||||
COPY OUTPUT F_SOTTOC_SBF
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 78 4
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 16 "@bPortafoglio Effetti allo sconto"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_CC_SCN 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 17 "C/C "
|
|
||||||
FIELD S2
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_FIDO_SCN 20 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT 38 17 "Fido "
|
|
||||||
FIELD R2
|
|
||||||
PICTURE "###.###.###.###,@@"
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_GRUPPO_SCN 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 18 "Contropartita "
|
|
||||||
FIELD I6
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_CONTO_SCN 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 20 18 ""
|
|
||||||
FIELD I7
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_SOTTOC_SCN 6
|
|
||||||
BEGIN
|
|
||||||
PROMPT 28 18 ""
|
|
||||||
FIELD I8
|
|
||||||
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
|
||||||
INPUT GRUPPO F_GRUPPO_SCN
|
|
||||||
INPUT CONTO F_CONTO_SCN
|
|
||||||
INPUT SOTTOCONTO F_SOTTOC_SCN
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_GRUPPO_SCN GRUPPO
|
|
||||||
OUTPUT F_CONTO_SCN CONTO
|
|
||||||
OUTPUT F_SOTTOC_SCN SOTTOCONTO
|
|
||||||
OUTPUT F_DESCR_SCN DESCR
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING F_DESCR_SCN 50 38
|
|
||||||
BEGIN
|
|
||||||
PROMPT 38 18 ""
|
|
||||||
USE LF_PCON KEY 2
|
|
||||||
INPUT DESCR F_DESCR_SCN
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
|
||||||
COPY OUTPUT F_SOTTOC_SCN
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
END
|
|
||||||
|
|
||||||
ENDPAGE
|
|
||||||
|
|
||||||
PAGE "Paramteri Distinte" 0 -1 77 20
|
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 78 5
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 1 "@bParametri emissione distinte su file"
|
|
||||||
END
|
|
||||||
|
|
||||||
BOOLEAN F_CBI
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 2 "Utilizza tracciato SETIF"
|
|
||||||
FIELD B0
|
|
||||||
END
|
|
||||||
|
|
||||||
BOOLEAN F_IBAN_PAG
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 3 "Genera IBAN su distinte di pagamento"
|
|
||||||
FIELD B1
|
|
||||||
END
|
|
||||||
|
|
||||||
BOOLEAN F_IBAN_INC
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 4 "Genera IBAN su distinte di incasso"
|
|
||||||
FIELD B2
|
|
||||||
END
|
|
||||||
|
|
||||||
ENDPAGE
|
|
||||||
|
|
||||||
ENDMASK
|
|
Loading…
x
Reference in New Issue
Block a user