Patch level :
Files correlati : Ricompilazione Demo : [ ] Commento :10.0 468 0001474: iban su banche aziendali Descrizione E' possibile lasciare a disposizione di chi ha il modulo vendite (e non il modulo effetti) il programma che permette di inserire le banche aziendali? Potrebbe servire anche a chi non ha gli effetti. git-svn-id: svn://10.65.10.50/trunk@19432 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
ff67b000b3
commit
52f673ee7a
@ -6,6 +6,7 @@
|
||||
#include <tabapp.h>
|
||||
|
||||
#include "cgtbesc.h"
|
||||
#include "cgtbbnp.h"
|
||||
#include "cglib01.h"
|
||||
|
||||
class CGTTable_application : public TTable_application
|
||||
@ -18,6 +19,10 @@ class CGTTable_application : public TTable_application
|
||||
// --------------------------------------------
|
||||
|
||||
protected:
|
||||
virtual void init_query_insert_mode(TMask& m) ;
|
||||
virtual void init_insert_mode(TMask& m) ;
|
||||
virtual void init_modify_mode(TMask& m) ;
|
||||
virtual void init_query_mode (TMask&);
|
||||
|
||||
virtual bool protected_record(TRectype & rec);
|
||||
|
||||
@ -50,6 +55,60 @@ bool CGTTable_application::protected_record(TRectype &rec)
|
||||
return TTable_application::protected_record(rec);
|
||||
}
|
||||
|
||||
|
||||
void CGTTable_application::init_query_insert_mode(TMask& m)
|
||||
{
|
||||
if (get_tabname() == "BNP")
|
||||
{
|
||||
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 CGTTable_application::init_insert_mode(TMask& m)
|
||||
{
|
||||
if (get_tabname() == "BNP")
|
||||
{
|
||||
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 CGTTable_application::init_modify_mode(TMask& m)
|
||||
{
|
||||
if (get_tabname() == "BNP")
|
||||
{
|
||||
m.efield(F_IBAN_STATO).validate(K_TAB);
|
||||
}
|
||||
}
|
||||
|
||||
void CGTTable_application::init_query_mode(TMask& m)
|
||||
{
|
||||
TTable_application::init_query_mode(m);
|
||||
if (get_tabname() == "BNP")
|
||||
{
|
||||
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_CODICECAB).check_type(CHECK_NONE);
|
||||
}
|
||||
}
|
||||
|
||||
bool CGTTable_application::user_create()
|
||||
{
|
||||
bool ok = TTable_application::user_create();
|
||||
|
||||
14
cg/cgstbnp.h
Executable file
14
cg/cgstbnp.h
Executable file
@ -0,0 +1,14 @@
|
||||
// DEFINIZIONE CAMPI MASCHERA PER STAMPA TABELLA BANCHE DI PRESENTAZIONE
|
||||
|
||||
#ifndef __CGSTBNP_H
|
||||
#define __CGSTBNP_H
|
||||
|
||||
#define F_INIZIO1 101
|
||||
#define F_INIZIO2 102
|
||||
#define F_FINE1 201
|
||||
#define F_FINE2 202
|
||||
|
||||
#endif //__CGSTBNP_H
|
||||
|
||||
|
||||
|
||||
154
cg/cgstbnp.rep
Executable file
154
cg/cgstbnp.rep
Executable file
@ -0,0 +1,154 @@
|
||||
|
||||
<report name="cgstbnp" 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>
|
||||
64
cg/cgstbnp.uml
Executable file
64
cg/cgstbnp.uml
Executable file
@ -0,0 +1,64 @@
|
||||
//DEFINIZIONE MASCHERA PER STAMPA TABELLA BANCHE DI PRESENTAZIONE
|
||||
#include "cgstbnp.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
cg/cgtbbnp.h
Executable file
51
cg/cgtbbnp.h
Executable file
@ -0,0 +1,51 @@
|
||||
//DEFINIZIONE CAMPI MASCHERA GESTIONE TABELLA BANCHE DI PRESENTAZIONE
|
||||
#ifndef __CGTBBNP_H
|
||||
#define __CGTBBNP_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//__CGTBBNP_H
|
||||
418
cg/cgtbbnp.uml
Executable file
418
cg/cgtbbnp.uml
Executable file
@ -0,0 +1,418 @@
|
||||
#include "cgtbbnp.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