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

Patch level : 12.0 1059

Browse Source 
Files correlati     : f135.dir f135.trr in0.exe in0200a.msk in0600a.msk
                      in0700a.msk intbird.msk

Commento        :

Aggiornamento intra fase 3

Interno :

Inserimento rettifiche e riepiloghi e invii
Mancano stampe di controllo
This commit is contained in:
Alessandro Bonazzi 2021-05-17 21:13:37 +02:00
parent c533f5b2d1
commit 1f7ef4ae48
12 changed files with 209 additions and 104 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/in/f135.dir
View File

@ -1,3 +1,3 @@
135
0
$rieprett|1|1|174|0|Riepiloghi e rettifiche INTRA|||
$rieprett|0|0|185|0|Riepiloghi e rettifiche INTRA|||

36
src/in/f135.trr
View File

@ -1,5 +1,5 @@
135
30
32
SEZIONE|2|1|0|<1> Beni, <2> Rettifiche beni, <3> Servizi, <4> Rettifiche servizi
TIPO|1|1|0|<A>cquisti o <C>essioni , rettifiche <B> acquisti o <D> cessioni
ANNO|2|4|0|Anno
@ -7,29 +7,31 @@ PERIODO|9|2|0|Periodo (Mese[1,12] / Trimestre[1,4] / Anno [1.,1])
NUMRIG|3|7|0|Numero riga
STATO|1|2|0|Codice ISO dello Stato CEE
PIVA|1|13|0|Partita IVA Cliente/Fornitore
NATURA|1|1|0|Natura della transazione
NOMENCL|1|8|0|Nomenclatura combinata
CONSEGNA|1|3|0|Condizioni di consegna
TRASPORTO|2|1|0|Tipo di trasporto [1,9]
PAESE|1|2|0|Paese di destinazione/provenienza
PAESEORIG|1|2|0|Paese d'origine (solo Acquisti)
PROV|1|2|0|Provincia d'origine/destinazione
NATURA|1|1|0|Natura della transazione (Benii)
NOMENCL|1|8|0|Nomenclatura combinata (Benii)
CONSEGNA|1|3|0|Condizioni di consegna (Benii)
TRASPORTO|2|1|0|Tipo di trasporto [1,9] (Benii)
PAESE|1|2|0|Paese di destinazione/provenienza (Benii)
PAESEORIG|1|2|0|Paese d'origine (solo Acquisti) (Benii)
PROV|1|2|0|Provincia d'origine/destinazione (Benii)
AMMLIRE|4|18|2|Ammontare in lire
AMMVALUTA|4|18|3|Ammontare in valuta
CODVAL|1|3|0|Codice Valuta
VALSTAT|4|18|2|Valore statistico
MASSAKG|4|18|5|Massa in Kilogrammi
MASSAUMS|4|18|5|Massa in unita' supplementare
AMMVALUTA|4|18|3|Ammontare in valuta (Benii)
CODVAL|1|3|0|Codice Valuta (Benii)
VALSTAT|4|18|2|Valore statistico (Benii)
MASSAKG|4|18|5|Massa in Kilogrammi (Benii)
MASSAUMS|4|18|5|Massa in unita' supplementare (Benii)
ANNORETT|6|4|0|Anno rettificato
PERETT|9|2|0|Periodo rettificato
NUMRETT|3|7|0|Riga rettificata
SEGNORETT|1|1|0|Segno della rettifica
FREQUENZA|1|1|0|Frequenza (<M>ensile, <T>rimestrale, <A>nnuale)
NUMREG|3|7|0|Eventuale movimento di prima nota collegato
CODSERV|1|5|0|Codice prestazione di servizio
MODEROG|1|1|0|Modalità di erogazione <I>mmediata o <R> a più riprese
MODINCPAG|1|1|0|Modalità di incasso <B>onifico, <A>ccredito o <X> Altro
ISOINCPAG|1|2|0|Codice Iso Paese di pagamento
PROTEL|3|6|0|Protocollo elenco da rettificare (Servizi)
NUMRIGEL|3|5|0|NUmero riga elenco da rettificare (Servizi)
CODSERV|1|5|0|Codice prestazione di servizi (Servizi)
MODEROG|1|1|0|Modalità di erogazione <I>mmediata o <R> a più riprese (Servizi)
MODINCPAG|1|1|0|Modalità di incasso <B>onifico, <A>ccredito o <X> Altro (Servizi)
ISOINCPAG|1|2|0|Codice Iso Paese di pagamento (Servizi)
2
ANNO+PERIODO+NUMRIG|
ANNO+PERIODO+TIPO+SEZIONE+NUMRIG|X

22
src/in/in0200.cpp
View File

@ -239,12 +239,10 @@ void TRecord_intra::put(const TRectype& rec, TIntra_context& ic)
break;
case 4:
{
const TRectype& ditta = cache().get(LF_NDITTE, main_app().get_firm());
put(ditta.get(NDT_UFFDOG), 29, 6);
put(ic._uffdog, 29, 6);
put(rec.get(RIEPINTRA_ANNORETT).right(2), 35, 2, "RZ");
// put(protocollo rettifica, 37, 6, "RZ");
// put(progressivo rettifica, 43, 5, "RZ");
put(rec.get(RIEPINTRA_PROTEL), 37, 6, "RZ");
put(rec.get(RIEPINTRA_NUMRIGEL), 43, 5, "RZ");
put(rec.get(RIEPINTRA_STATO), 48, 2);
put(rec.get(RIEPINTRA_PIVA), 50, 12);
@ -327,12 +325,10 @@ void TRecord_intra::put(const TRectype& rec, TIntra_context& ic)
break;
case 4:
{
const TRectype& ditta = cache().get(LF_NDITTE, main_app().get_firm());
put(ditta.get(NDT_UFFDOG), 29, 6);
put(ic._uffdog, 29, 6);
put(rec.get(RIEPINTRA_ANNORETT).right(2), 35, 2, "RZ");
// put(protocollo rettifica, 37, 6, "RZ");
// put(progressivo rettifica, 43, 5, "RZ");
put(rec.get(RIEPINTRA_PROTEL), 37, 6, "RZ");
put(rec.get(RIEPINTRA_NUMRIGEL), 43, 5, "RZ");
put(rec.get(RIEPINTRA_STATO), 48, 2);
put(rec.get(RIEPINTRA_PIVA), 50, 12);
@ -487,6 +483,7 @@ void TInvioIntra1_2_mask::genera(char tipointra, char tipo, bool reset)
ic._freq = frequenza(ic._anno);
ic._periodo = periodo();
ic._progr = get_long(F_NUMERO);
ic._uffdog = get(F_UFFDOG);
TString8 codtab; codtab.format("%c%04d%02d", ic._tipo, ic._anno, ic._periodo);
@ -617,10 +614,15 @@ void TInvioIntra1_2_app::main_loop()
open_files(LF_TABCOM, LF_TAB, LF_CLIFO, LF_INTRA, LF_RINTRA, LF_RIEPRETT, 0);
m.load();
m.set(F_PROGGIORN, 1);
const TRectype& ditta = cache().get(LF_NDITTE, main_app().get_firm());
m.set(F_UFFDOG, ditta.get(NDT_UFFDOG));
while (m.run() == K_ENTER)
{
const char tip = m.tipo();
if (tip == 'T')
{
m.genera('B', 'C', true);

1
src/in/in0200a.h
View File

@ -8,4 +8,5 @@
#define F_NUMERO 107
#define F_PROGGIORN 108
#define F_PATH 109
#define F_UFFDOG 110

12
src/in/in0200a.uml
View File

@ -79,9 +79,19 @@ BEGIN
CHECKTYPE REQUIRED
END
STRING F_UFFDOG 6
BEGIN
PROMPT 1 11 "Uff.doganale "
USE %UDD
INPUT CODTAB F_UFFDOG
DISPLAY "Ufficio" CODTAB
DISPLAY "Denominazione@50" S0
OUTPUT F_UFFDOG CODTAB
END
STRING F_PATH 50 29
BEGIN
PROMPT 1 11 "Cartella "
PROMPT 1 13 "Cartella "
DSELECT
CHECKTYPE REQUIRED
END

2
src/in/in0600a.uml
View File

@ -430,7 +430,7 @@ END
STRING F_CODSERV 5
BEGIN
PROMPT 1 18
PROMPT 1 18 "Codice servizio "
FIELD CODSERV
USE %CPA
INPUT CODTAB F_CODSERV

52
src/in/in0700.cpp
View File

@ -79,17 +79,18 @@ bool TRettifiche_mask::on_field_event(TOperable_field& o, TField_event e, long j
bool ok = cur.ok();
if (e == fe_modify && insert_mode())
{
for (short dlg = O_STATO; dlg <= O_NOMENCLATURA; dlg++)
for (short dlg = O_STATO; dlg <= O_STATOINCPAG; dlg++)
{
switch (dlg)
{
case O_NUM_RIG: // Non riportare il numero riga!
case O_SEZIONE: // Non riportare la sezione!
break;
default:
const int pos = id2pos(dlg);
const int pos = id2pos(dlg);
if (pos >= 0)
set(dlg + F_STATO - O_STATO, fld(pos).get());
if (pos >= 0)
set(dlg + SPLIT, fld(pos).get());
break;
}
}
@ -150,7 +151,8 @@ protected:
virtual TMask* get_mask(int) { return _msk; }
virtual bool changing_mask(int mode) { return FALSE; }
virtual bool user_destroy();
virtual const char* get_next_key();
virtual bool get_next_key(TToken_string& k);
virtual void init_query_mode(TMask& m);
virtual void init_insert_mode(TMask& m);
@ -186,40 +188,48 @@ void TRettifiche_intra::init_mask(TMask& m, bool keyon)
void TRettifiche_intra::init_query_mode(TMask& m)
{
init_mask(m, FALSE);
init_mask(m, false);
}
void TRettifiche_intra::init_insert_mode(TMask& m)
{
init_mask(m, TRUE);
init_mask(m, true);
}
void TRettifiche_intra::init_modify_mode(TMask& m)
{
init_mask(m, TRUE);
init_mask(m, true);
}
const char* TRettifiche_intra::get_next_key()
{
bool TRettifiche_intra::get_next_key(TToken_string& k)
{
if (_msk->get(F_ANNO).empty()) // || _msk->get(F_PARTITA_IVA).empty())
return false;
_msk->autosave(*_rel);
TRectype& curr = _rel->curr();
curr.put("ANNO", _msk->anno());
curr.put("ANNO", _msk->anno());
curr.put("PERIODO", _msk->periodo_str());
TCursor cur(_rel, "", 1, &curr, &curr);
const long items = cur.items();
int last_row = 0;
if (items > 0)
{
cur = items-1;
cur = items - 1;
last_row = curr.get_int("NUMRIG");
}
_str.cut(0);
_str.add(F_ANNO);
_str.add(curr.get("ANNO"));
_str.add(F_PERIODO_M);
_str.add(curr.get("PERIODO"));
_str.add(F_NUM_RIG);
_str.add(last_row+1);
return _str;
}
k.cut(0);
k.add(F_ANNO);
k.add(curr.get("ANNO"));
k.add(F_PERIODO_M);
k.add(curr.get("PERIODO"));
k.add(F_NUM_RIG);
k.add(last_row + 1);
return true;
}
int in0700(int argc, char* argv[])

21
src/in/in0700a.h
View File

@ -19,6 +19,10 @@
#define O_AMM_VALUTA 124
#define O_VALUTA 125
#define O_VALORE_STAT 126
#define O_CODSERV 130
#define O_MODEROG 131
#define O_MODINCPAG 132
#define O_STATOINCPAG 133
#define F_TIPO 203
#define F_ANNO 204
@ -30,6 +34,7 @@
#define F_PARTITA_IVA 210
#define F_PARTITA_DESC 211
#define F_NUM_RIG 212
#define F_SEZIONE 213
#define F_SEGNO 220
#define F_NATURA_TRANS 221
#define F_NOMENCLATURA 222
@ -37,14 +42,18 @@
#define F_AMM_VALUTA 224
#define F_VALUTA 225
#define F_VALORE_STAT 226
#define F_NUMREG 229
#define F_SEZIONE 230
#define F_CODSERV 231
#define F_MODEROG 232
#define F_MODINCPAG 233
#define F_STATOINCPAG 234
//#define F_NUMREG 229
#define F_CODSERV 230
#define F_MODEROG 231
#define F_MODINCPAG 232
#define F_STATOINCPAG 233
#define F_PROTEL 234
#define F_NUMRIGEL 235
#define GR_CESSIONI 1
#define GR_ACQUISTI 2
#define GR_BENI 3
#define GR_SERVIZI 4
#define SPLIT (F_STATO - O_STATO)

161
src/in/in0700a.uml
View File

@ -27,7 +27,7 @@ BEGIN
FLAGS "D"
END
GROUPBOX DLG_NULL 78 8
GROUPBOX DLG_NULL 78 10
BEGIN
PROMPT 1 3 "@bRiepilogo originale"
END
@ -81,17 +81,17 @@ END
LIST O_SEZIONE 1 7
BEGIN
PROMPT 46 4 "Sezione "
PROMPT 61 4 "Sezione "
ITEM "1|Beni" MESSAGE ENABLE,GR_BENI@|DISABLE,GR_SERVIZI@
ITEM "3|Servizi" MESSAGE DISABLE,GR_BENI@|ENABLE,GR_SERVIZI@
KEY 1
FLAGS "D"
FLAGS "DG"
END
NUMBER O_NUM_RIG 7
BEGIN
PROMPT 63 4 "Riga "
USE LF_RIEPRETT SELECT (SEZIONE==#OSEZIONE)&&(TIPO==#O_TIPO)
PROMPT 2 5 "Riga "
USE LF_RIEPRETT SELECT (SEZIONE==#O_SEZIONE)&&(TIPO==#O_TIPO)
INPUT ANNO O_ANNO SELECT
INPUT PERIODO O_PERIODO_M
INPUT NUMRIG O_NUM_RIG
@ -111,8 +111,7 @@ BEGIN
OUTPUT O_PERIODO_T PERIODO
OUTPUT O_NUM_RIG NUMRIG
OUTPUT O_STATO STATO
// OUTPUT O_TIPO TIPO
OUTPUT O_SEZIONE SEZIONE
OUTPUT O_ANNO ANNO
OUTPUT O_PARTITA_IVA PIVA
OUTPUT O_NATURA_TRANS NATURA
OUTPUT O_NOMENCLATURA NOMENCL
@ -121,6 +120,7 @@ BEGIN
OUTPUT F_VALUTA CODVAL
OUTPUT O_AMM_VALUTA AMMVALUTA
OUTPUT O_VALORE_STAT VALSTAT
OUTPUT O_CODSERV CODSERV
CHECKTYPE SEARCH
FIELD NUMRETT
ADD RUN IN0 -5
@ -128,7 +128,7 @@ END
STRING O_STATO 2
BEGIN
PROMPT 2 5 "Stato CEE "
PROMPT 18 5 "Stato CEE "
FLAGS "DU"
END
@ -142,7 +142,7 @@ END
STRING O_PARTITA_IVA 12
BEGIN
PROMPT 51 5 "Partita IVA "
PROMPT 54 5 "Partita IVA "
FLAGS "D"
USE LF_CLIFO KEY 5
INPUT TIPOCF O_TIPO_CF SELECT
@ -185,7 +185,7 @@ END
STRING O_VALUTA 3
BEGIN
PROMPT 43 8 "in valuta "
PROMPT 42 8 "in valuta "
FLAGS "D"
END
@ -202,22 +202,77 @@ BEGIN
FLAGS "D"
END
GROUPBOX DLG_NULL 78 8
STRING O_CODSERV 5
BEGIN
PROMPT 1 11 "@bRettifica"
PROMPT 2 10 "Codice servizio "
FLAGS "D"
END
LIST O_MODEROG 1 15
BEGIN
PROMPT 42 10 "Modalità Erogazione"
ITEM "I|Unica soluzione"
ITEM "R|Più soluzioni"
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 11 "Modalità di incasso "
GROUP GR_CESSIONI
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 11 "Modalità di pagamento"
GROUP GR_ACQUISTI
FLAGS "D"
END
LIST O_MODINCPAG 1 9
BEGIN
PROMPT 21 11 ""
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 42 11 "Stato di incasso "
GROUP GR_CESSIONI
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 42 11 "Stato di pagamento "
GROUP GR_ACQUISTI
FLAGS "D"
END
STRING O_STATOINCPAG 2
BEGIN
PROMPT 61 11 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 78 11
BEGIN
PROMPT 1 13 "@bRettifica"
END
LIST F_TIPO 1 10
BEGIN
PROMPT 2 12 "Tipo "
PROMPT 2 14 "Tipo "
ITEM "A|Cessioni" MESSAGE "C",F_TIPO_CF|"C",O_TIPO|SHOW,GR_CESSIONI@|HIDE,GR_ACQUISTI@
ITEM "C|Acquisti" MESSAGE "F",F_TIPO_CF|"A",O_TIPO|HIDE,GR_CESSIONI@|SHOW,GR_ACQUISTI@
KEY 1
FIELD TIPO
END
NUMBER F_ANNO 4
BEGIN
PROMPT 21 12 "Anno "
PROMPT 21 14 "Anno "
FLAGS "AU"
KEY 1
FIELD ANNO
@ -225,7 +280,7 @@ END
LIST F_PERIODO_M 2 16
BEGIN
PROMPT 33 12 "Periodo "
PROMPT 33 14 "Periodo "
FLAGS "M"
FIELD PERIODO
KEY 1
@ -233,7 +288,7 @@ END
LIST F_PERIODO_T 2 16
BEGIN
PROMPT 33 12 "Periodo "
PROMPT 33 14 "Periodo "
ITEM "01|Gennaio-Marzo"
ITEM "02|Aprile-Giugno"
ITEM "03|Luglio-Settembre"
@ -244,7 +299,7 @@ END
LIST F_PERIODO_A 2 16
BEGIN
PROMPT 33 12 "Periodo "
PROMPT 33 14 "Periodo "
ITEM "01|Annuale"
FIELD PERIODO
KEY 1
@ -252,19 +307,19 @@ END
LIST F_SEZIONE 1 7
BEGIN
PROMPT 46 12 "Sezione"
ITEM "2|Beni" MESSAGE ENABLE,GR_BENI@|DISABLE,GR_SERVIZI@|"2",O_SEZIONE
ITEM "4|Servizi" MESSAGE DISABLE,GR_BENI@|ENABLE,GR_SERVIZI@|"4",O_SEZIONE
PROMPT 61 14 "Sezione "
ITEM "2|Beni" MESSAGE ENABLE,GR_BENI@|DISABLE,GR_SERVIZI@|"1",O_SEZIONE
ITEM "4|Servizi" MESSAGE DISABLE,GR_BENI@|ENABLE,GR_SERVIZI@|"3",O_SEZIONE
KEY 1
FIELD SEZIONE
END
NUBER F_NUM_RIG 7
BEGIN
PROMPT 63 12 "Riga "
USE LF_RIEPRETT (SEZIONE=="2")||(SEZIONE=="4")
INPUT TIPO F_TIPO SELECT
INPUT ANNO F_ANNO SELECT
PROMPT 2 15 "Riga "
USE LF_RIEPRETT SELECT (TIPO==#F_TIPO)&&(ANNO==#F_ANNO)&&((SEZIONE=="2")||(SEZIONE=="4"))
INPUT TIPO F_TIPO
INPUT ANNO F_ANNO
INPUT PERIODO F_PERIODO_M
INPUT NUMRIG F_NUM_RIG
DISPLAY "Tipo" TIPO
@ -284,7 +339,7 @@ END
STRING F_STATO 2
BEGIN
PROMPT 2 13 "Stato CEE "
PROMPT 17 15 "Stato CEE "
FLAGS "U"
USE %SCE
INPUT CODTAB F_STATO
@ -297,7 +352,7 @@ END
LIST F_TIPO_CF 1 10
BEGIN
PROMPT 33 13 ""
PROMPT 33 15 ""
ITEM "C|Cliente"
ITEM "F|Fornitore"
FLAGS "D"
@ -305,7 +360,7 @@ END
STRING F_PARTITA_IVA 12
BEGIN
PROMPT 51 13 "Partita IVA "
PROMPT 53 15 "Partita IVA"
USE LF_CLIFO KEY 5
INPUT TIPOCF F_TIPO_CF SELECT
INPUT STATOPAIV F_STATO
@ -325,13 +380,13 @@ END
STRING F_PARTITA_DESC 50
BEGIN
PROMPT 2 14 "Ragione sociale "
PROMPT 2 16 "Ragione sociale "
FLAGS "D"
END
STRING F_NATURA_TRANS 1
BEGIN
PROMPT 2 15 "Natura transazione "
PROMPT 2 17 "Natura transazione "
FLAGS "U"
USE %INT
INPUT CODTAB F_NATURA_TRANS
@ -344,7 +399,7 @@ END
NUMBER F_NOMENCLATURA 8
BEGIN
PROMPT 28 15 "Nomenclatura combinata "
PROMPT 28 17 "Nomenclatura combinata "
USE %NOC
INPUT CODTAB F_NOMENCLATURA
DISPLAY "Codice" CODTAB
@ -357,7 +412,7 @@ END
LIST F_SEGNO 1
BEGIN
PROMPT 68 15 "Segno "
PROMPT 68 17 "Segno "
ITEM "+|+"
ITEM "-|-"
FIELD SEGNORETT
@ -365,13 +420,13 @@ END
CURRENCY F_AMMONTARE 18
BEGIN
PROMPT 2 16 "Ammontare "
PROMPT 2 18 "Ammontare "
FIELD AMMLIRE
END
STRING F_VALUTA 3
BEGIN
PROMPT 43 16 "in valuta "
PROMPT 42 18 "in valuta "
FLAGS "U"
USE %VAL
INPUT CODTAB F_VALUTA
@ -385,7 +440,7 @@ END
CURRENCY F_AMM_VALUTA 18
BEGIN
PROMPT 59 16 ""
PROMPT 59 18 ""
DRIVENBY F_VALUTA
FIELD AMMVALUTA
GROUP GR_BENI
@ -393,14 +448,14 @@ END
CURRENCY F_VALORE_STAT 18
BEGIN
PROMPT 2 17 "Valore statistico "
PROMPT 2 19 "Valore statistico "
FIELD VALSTAT
GROUP GR_BENI
END
STRING F_CODSERV 5
BEGIN
PROMPT 1 18
PROMPT 2 20 "Codice servizio "
FIELD CODSERV
USE %CPA
INPUT CODTAB F_CODSERV
@ -412,7 +467,7 @@ END
LIST F_MODEROG 1 15
BEGIN
PROMPT 1 19 "Modalità Erogazione"
PROMPT 42 20 "Modalità Erogazione"
ITEM "I|Unica soluzione"
ITEM "R|Più soluzioni"
FIELD MODEROG
@ -421,21 +476,21 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 1 20 "Modalità di incasso "
PROMPT 2 21 "Modalità di incasso "
GROUP GR_CESSIONI GR_SERVIZI
FLAGS "G"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 20 "Modalità di pagamento"
PROMPT 2 21 "Modalità di pagamento"
GROUP GR_ACQUISTI GR_BENI
FLAGS "G"
END
LIST F_MODINCPAG 1 9
BEGIN
PROMPT 20 20 ""
PROMPT 21 21 ""
ITEM "B|Bonifico"
ITEM "A|Accredito"
ITEM "X|Altro"
@ -445,19 +500,19 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 1 21 "Stato di incasso "
PROMPT 42 21 "Stato di incasso "
GROUP GR_CESSIONI GR_SERVIZI
END
TEXT DLG_NULL
BEGIN
PROMPT 1 21 "Stato di pagamento "
PROMPT 42 21 "Stato di pagamento "
GROUP GR_ACQUISTI GR_BENI
END
STRING F_STATOINCPAG 2
BEGIN
PROMPT 20 21 ""
PROMPT 61 21 ""
USE %SCE
INPUT CODTAB F_STATOINCPAG
DISPLAY "Codice" CODTAB
@ -467,12 +522,26 @@ BEGIN
GROUP GR_SERVIZI
END
NUMBER F_NUMREG 7
NUMBER F_PROTEL 6
BEGIN
PROMPT 2 22 "Numero movimento "
PROMPT 2 22 "Prot.elenco da rettificare"
FIELD PROTEL
GROUP GR_SERVIZI
END
NUMBER F_NUMRIGEL 6
BEGIN
PROMPT 43 22 "Numero riga"
FIELD NUMRIGEL
GROUP GR_SERVIZI
END
/*NUMBER F_NUMREG 7
BEGIN
PROMPT 2 22 "Numero movimento "
FIELD NUMREG
FLAGS "D"
END
END */
ENDPAGE

1
src/in/inlib01.h
View File

@ -14,6 +14,7 @@ struct TIntra_context
char _freq;
int _anno;
int _periodo;
TString _uffdog;
// Intra 12/13
Intratype _tInvioIntra;
int _nb;

1
src/in/intbird.h
View File

@ -7,4 +7,5 @@
#define F_RETT 107
#define F_AMM_COMP 108
#define F_AMM_RETT 109
#define F_INV1213 110

2
src/in/intbird.uml
View File

@ -81,7 +81,7 @@ BEGIN
FIELD R1
END
NUMBER F_NDKT 4
NUMBER F_INV1213 4
BEGIN
PROMPT 2 8 "N.Inv. Intra12/13"
FIELD I4