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

Esportazione per paghe ed Excel della rilevazione ore

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@23052 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2015-03-31 06:05:18 +00:00
parent 6788cf17ed
commit 28af4b3a34
7 changed files with 94 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ci/ci2400.cpp
View File

@ -875,8 +875,9 @@ bool TConsuntivazione_msk::add_ril_to_mov(TRectype& rilore, TAnal_mov& mov, TLog
const TString& codice_roa = rilore.get(RILORE_CODICE);
const TRectype& roa = cache().get(tipo_roa == 'A' ? "ATR" : "RSS", codice_roa);
const TCodice_con conto = roa.get("S1");
if (conto.blank())
TCodice_con conto = roa.get("S1").left(20); // in S1 poi ci sono anche commessa e cantiere!
conto.trim();
if (conto.empty())
{
TString msg; msg << TR("Impossibile associare un conto analitico a ") << codice_roa;
log.log(2, msg);
@ -1216,7 +1217,7 @@ bool TConsuntivazione_msk::contabilizza()
log.log(0, msg);
}
else
log.log(1, TR("Nono sono stati generati documenti"));
log.log(1, TR("Non sono stati generati documenti"));
log.preview();
@ -1228,7 +1229,8 @@ bool TConsuntivazione_msk::esporta()
{
const int anno = get_int(F_ANNO);
const int mese = get_int(F_MESE);
return esportazione_paghe(anno, mese);
const bool done = esportazione_paghe(anno, mese);
return done && load_sheet();
}
bool TConsuntivazione_msk::cerca_disponibilita(int riga) const
@ -1260,11 +1262,13 @@ bool TConsuntivazione_msk::cerca_disponibilita(int riga) const
int TConsuntivazione_msk::aggiungi_straordinario(int riga, const TString& tipo_ora, const real& prz, const real& add_qta) const
{
TSheet_field& s = sfield(F_SHEET);
const int col_dat = s.cid2index(S_DATA);
const int col_att = s.cid2index(S_CODRIS);
const int col_ora = s.cid2index(S_TPORA);
const int col_cms = s.cid2index(S_CDC1);
const TToken_string& r = s.row(riga);
TDate data; r.get(col_dat, data);
TCodice_articolo cod_rss; r.get(col_att, cod_rss); cod_rss.trim();
TCodice_cms cod_cms; r.get(col_cms, cod_cms); cod_cms.trim();
@ -1274,10 +1278,11 @@ int TConsuntivazione_msk::aggiungi_straordinario(int riga, const TString& tipo_o
if (i >= 0 && i < s.items())
{
const TToken_string& ri = s.row(i);
TDate dt; ri.get(col_dat, dt);
TCodice_articolo ca; ri.get(col_att, ca); ca.trim();
TString4 to; ri.get(col_ora, to); to.trim();
TCodice_cms cc; ri.get(col_cms, cc); cc.trim();
if (ca == cod_rss && cc == cod_cms && to == tipo_ora)
if (dt == data && ca == cod_rss && cc == cod_cms && to == tipo_ora)
{
nr = i;
break;
@ -1734,6 +1739,8 @@ TConsuntivazione_msk::TConsuntivazione_msk() : _locked(false)
}
// Sistema nome del campo CODCMS
if (_scms_lid > 0)
{
for (short id = _scms_lid; id >= _scms_sid; id--)
{
TEdit_field& ef = sm.efield(id);
@ -1741,6 +1748,7 @@ TConsuntivazione_msk::TConsuntivazione_msk() : _locked(false)
if (fr != NULL)
fr->set_name(RILORE_CODCMS);
}
}
for (short id = S_CDC12 + 100; id >= S_CDC1 + 100; id--)

3
ci/ci2400a.h
View File

@ -61,5 +61,6 @@
#define S_CUP 123
#define S_CIG 124
#define S_STATO 125
#define S_ID 126
#define S_INVPAG 126
#define S_ID 127
#define S_CMSH 143

10
ci/ci2400a.uml
View File

@ -93,6 +93,7 @@ BEGIN
DISPLAY "Descrizione@50" S0
OUTPUT F_TPORA CODTAB
CHECKTYPE NORMAL
FLAGS "U"
END
BOOLEAN C_RISOATT
@ -198,6 +199,7 @@ BEGIN
ITEM "CUP@15"
ITEM "CIG@10"
ITEM "Stato"
ITEM "Inviata\nPaghe@6"
ITEM "ID@8"
END
@ -222,6 +224,13 @@ BEGIN
FLAGS "D"
END
BOOELAN S_INVPAG
BEGIN
PROMPT 48 0 "Inv. paghe"
FIELD INVPAG
FLAGS "D"
END
NUMBER S_ID 8
BEGIN
PROMPT 63 0 "ID "
@ -302,6 +311,7 @@ BEGIN
OUTPUT S_TPORA CODTAB
CHECKTYPE REQUIRED
FIELD TPORA
FLAGS "U"
END
NUMBER S_QTAORE 7 2

68
ci/ci2400e.uml
View File

@ -40,9 +40,9 @@ BEGIN
FLAGS "B"
END
SPREADSHEET F_SHEET 78
SPREADSHEET F_SHEET
BEGIN
PROMPT 1 2 ""
PROMPT 0 2 ""
ITEM "Ord.@5"
ITEM "Tip1@5"
ITEM "Tip2@5"
@ -52,6 +52,14 @@ BEGIN
ITEM "Tip6@5"
ITEM "Tip7@5"
ITEM "Tip8@5"
ITEM "Tip9@5"
ITEM "Tip10@5"
ITEM "Tip11@5"
ITEM "Tip12@5"
ITEM "Tip13@5"
ITEM "Tip14@5"
ITEM "Tip15@5"
ITEM "Tip16@5"
ITEM "Tot.@5"
END
@ -59,7 +67,7 @@ ENDPAGE
ENDMASK
PAGE "Riga consuntivo" -1 -1 42 6
PAGE "Riga consuntivo" -1 -1 42 10
NUMBER 101 5 2
BEGIN
@ -88,29 +96,69 @@ END
NUMBER 106 5 2
BEGIN
PROMPT 21 1 "Tipo 5 "
PROMPT 1 5 "Tipo 5 "
END
NUMBER 107 5 2
BEGIN
PROMPT 21 2 "Tipo 6 "
PROMPT 1 6 "Tipo 6 "
END
NUMBER 108 5 2
BEGIN
PROMPT 21 3 "Tipo 7 "
PROMPT 1 7 "Tipo 7 "
END
NUMBER 109 5 2
BEGIN
PROMPT 21 4 "Tipo 8 "
PROMPT 1 8 "Tipo 8 "
END
NUMBER 110 5 2
BEGIN
PROMPT 21 5 "@bTotale "
DRIVENBY 101 102 103 104 105 106 107 108 109
NUM_CALC #101+#102+#103+#104+#105+#106+#107+#108+#109
PROMPT 21 2 "Tipo 9 "
END
NUMBER 111 5 2
BEGIN
PROMPT 21 3 "Tipo 10 "
END
NUMBER 112 5 2
BEGIN
PROMPT 21 4 "Tipo 11 "
END
NUMBER 113 5 2
BEGIN
PROMPT 21 5 "Tipo 12 "
END
NUMBER 114 5 2
BEGIN
PROMPT 21 6 "Tipo 13 "
END
NUMBER 115 5 2
BEGIN
PROMPT 21 7 "Tipo 14 "
END
NUMBER 116 5 2
BEGIN
PROMPT 21 8 "Tipo 15 "
END
NUMBER 117 5 2
BEGIN
PROMPT 21 9 "Tipo 16 "
END
NUMBER 118 5 2
BEGIN
PROMPT 21 10 "@bTotale "
DRIVENBY 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117
NUM_CALC #101+#102+#103+#104+#105+#106+#107+#108+#109+#110+#111+#112+#113+#114+#115+#116+#117
FLAGS "DG"
END

2
ci/citbore.uml
View File

@ -53,7 +53,7 @@ END
STRING F_COD_EST 10
BEGIN
PROMPT 2 5 "Codice esterno "
FLAGS "U"
FLAGS ""
FIELD S1
END

2
ci/f125.dir
View File

@ -1,3 +1,3 @@
125
0
$rilore|0|0|214|0|Rilevamento Ore|||
$rilore|0|0|215|0|Rilevamento Ore|||

3
ci/f125.trr
View File

@ -1,5 +1,5 @@
125
22
23
TIPO|1|1|0|<D>efault <P>reventivo <C>onsuntivo
ID|3|8|0|Id del record
TIPORA|1|1|0|<R>isorsa <A>ttrezzatura
@ -22,6 +22,7 @@ CUP|1|15|0|Codice Unico di Progetto
CIG|1|10|0|Codice Identificativo di Gara
RIMBORSO|8|1|0|Rimborso
NOTE|1|50|0|Note
INVPAG|8|1|0|Inviata a paghe
5
TIPO+ID|
TIPO+DADATA+TIPORA+CODICE+TPORA+CODCOSTO+CODCMS+CODFASE|X