Patch level : 10.0 870

Files correlati     : cg2.exe
Ricompilazione Demo : [ ]
Commento            :

Gestione CUP
IN prima nota sono stati aggiunti i campi CUP e CIG alle righe contabili che sono attivi solo in cirispondenza di conti clienti e fornitori. Non ci sono autoatismi su questi campi servono principalmente per essere utilizzati in fase di gestione incassi o pagamenti.
Per ROBERTO
Bisogna verificare con Geisoft il collgamento a cantieri, il cup e il cig devono andare sulla prima riga contabile (cliente o fornitore)


git-svn-id: svn://10.65.10.50/branches/R_10_00@21368 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-12-26 23:01:47 +00:00
parent 508f02a68e
commit 0e69065ad1
8 changed files with 85 additions and 9 deletions

View File

@ -647,7 +647,11 @@ void TPrimanota_application::fill_sheet(TMask& m) const
{
TSheet_field& cgs = (TSheet_field&)m.fld(cgpos);
for (int r = cgs.items(); r < filler; r++)
cgs.row(r);
{
cgs.row(r);
cgs.check_row(r);
}
}
if (ivpos > 0)
@ -944,8 +948,10 @@ int TPrimanota_application::read(TMask& m)
const char tipo = r.get_char(RMV_ROWTYPE);
riga.add(tipo, CG_ROWTYPE-FIRST_FIELD); // Tipo di riga 115
riga.add(r.get(RMV_CUP), cgs().cid2index(CG_CUP));
riga.add(r.get(RMV_CIG), cgs().cid2index(CG_CIG));
disable_cgs_cells(i, tipo);
cgs().check_row(i);
}
if (_iva == nessuna_iva && is_fattura()) // Ci dovrebbero essere delle scadenze
@ -1092,6 +1098,8 @@ void TPrimanota_application::mask2rel(const TMask& m)
r.put(RMV_SOTTOCONTOC, row.get());
row.get(); // Descrizione contropartita
r.put(RMV_ROWTYPE, row.get(CG_ROWTYPE-FIRST_FIELD)); // Tipo riga
r.put(RMV_CUP, row.get()); // CUP
r.put(RMV_CIG, row.get()); // CIG
}
}
@ -1803,6 +1811,8 @@ void TPrimanota_application::ini2mask(TConfig& ini, TMask& msk, bool query)
riga.add(tipo, cg.cid2index(CG_ROWTYPE)); // Tipo di riga 115
riga.add(ini.get(RMV_CUP), cg.cid2index(CG_CUP)); // CUP
riga.add(ini.get(RMV_CIG), cg.cid2index(CG_CIG)); // CIG
}
if (is_fattura())

View File

@ -82,6 +82,10 @@
#define CG_SOTTOCONTO 106
#define CG_DESCR 109
#define CG_ROWTYPE 115
#define CG_CUP 116
#define CG_DCUP 117
#define CG_CIG 118
#define CG_DCIG 119
#define CG_MASTRINO 195
#define CG_RATEO 196
#define CG_RISCONTO 197

View File

@ -389,6 +389,10 @@ BEGIN
ITEM "Sott./c@6"
ITEM "Descrizione contropartita@30"
ITEM "Tipo@4"
ITEM "CUP@15"
ITEM "Descrizione CUP@50"
ITEM "CIG@10"
ITEM "Descrizione CIG@50"
END
NUMBER F_GRUPPO 3

View File

@ -708,6 +708,10 @@ BEGIN
ITEM "Sott./c@6"
ITEM "Descrizione contropartita@30"
ITEM "Tipo@4"
ITEM "CUP@15"
ITEM "Descrizione CUP@50"
ITEM "CIG@10"
ITEM "Descrizione CIG@50"
END
NUMBER F_GRUPPO 3

View File

@ -1098,6 +1098,7 @@ bool TPrimanota_application::cg_notify(TSheet_field& cg, int r, KEY k)
a.calcola_saldo();
}
}
cg.check_row(r);
break;
default:
break;

View File

@ -1,4 +1,4 @@
PAGE "RIGA PRIMA NOTA" -1 -1 67 15
PAGE "RIGA PRIMA NOTA" -1 -1 67 17
GROUPBOX DLG_NULL 66 3
BEGIN
@ -50,11 +50,11 @@ BEGIN
FIELD TIPOC
FLAGS "GU"
ITEM " |Conto"
MESSAGE SHOW,106|HIDE,206|HIDE,306|SHOW,107|HIDE,207|HIDE,307
MESSAGE SHOW,106|HIDE,206|HIDE,306|SHOW,107|HIDE,207|HIDE,307|CLEAR,64@
ITEM "C|Cliente"
MESSAGE SHOW,206|HIDE,106|HIDE,306|SHOW,207|HIDE,107|HIDE,307
MESSAGE SHOW,206|HIDE,106|HIDE,306|SHOW,207|HIDE,107|HIDE,307|ENABLE,64@
ITEM "F|Fornitore"
MESSAGE SHOW,306|HIDE,106|HIDE,206|SHOW,307|HIDE,107|HIDE,207
MESSAGE SHOW,306|HIDE,106|HIDE,206|SHOW,307|HIDE,107|HIDE,207|ENABLE,64@
END
NUMBER CG_GRUPPO 3
@ -318,9 +318,60 @@ BEGIN
WARNING "Fornitore inesistente sulla riga contabile"
END
STRING CG_CUP 22
BEGIN
PROMPT 1 11 "CUP "
USE %CUP
INPUT CODTAB CG_CUP
DISPLAY "Codice@22" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT CG_CUP CODTAB
OUTPUT CG_DCUP S0
FIELD CUP
CHECKTYPE NORMAL
GROUP 64
END
STRING CG_DCUP 50 30
BEGIN
PROMPT 40 11 ""
USE %CUP KEY 2
INPUT S0 F_DCUP
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@22" CODTAB
COPY OUTPUT CG_CUP
GROUP 64
END
STRING CG_CIG 10
BEGIN
PROMPT 1 12 "CIG "
USE %CIG
INPUT CODTAB CG_CIG
DISPLAY "Codice@10" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Codice gara" S1
OUTPUT CG_CIG CODTAB
OUTPUT CG_DCIG S0
FIELD CIG
CHECKTYPE NORMAL
GROUP 64
END
STRING CG_DCIG 50 30
BEGIN
PROMPT 40 12 ""
USE %CIG KEY 2
INPUT S0 CG_DCIG
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@10" CODTAB
COPY OUTPUT CG_CIG
GROUP 64
END
LIST CG_ROWTYPE 24
BEGIN
PROMPT 28 12 "Tipo riga "
PROMPT 28 13 "Tipo riga "
ITEM " |Sola contabilità"
ITEM "A|Abbuoni attivi"
ITEM "C|Differenza cambi"

View File

@ -1,3 +1,3 @@
24
0
$rmov|0|0|159|0|Righe di movimento contabile|NMOV*3||
$rmov|0|0|184|0|Righe di movimento contabile|NMOV*3||

View File

@ -1,5 +1,5 @@
24
20
22
ANNOES|9|4|0|Codice esercizio
NUMREG|3|7|0|Numero di operazione
NUMRIG|2|3|0|Numero di riga
@ -20,6 +20,8 @@ ROWTYPE|1|1|0|
NUMGIO|3|7|0|
CODCMS|1|20|0|Codice Commessa
FASCMS|1|10|0|Fase Commessa
CUP|1|15|0|Codice Unico di Progetto
CIG|1|10|0|Codice Identificativo di Gara
2
NUMREG+NUMRIG|
GRUPPO+CONTO+SOTTOCONTO+DATAREG+NUMREG+NUMRIG|