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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
cg2100k.uml     Tolta ultima riga commentata
cg2102.cpp      Sosotituito TConto con TBill
cg2105.cpp      Riga vuota
cg4301.cpp      aggiunto cast a real in una somma di stringa+real
                metodo TProrata_item::flag() in TProrata_item::previous_ok()
cg4400.cpp      Corretto data.ok in data.ok()
cg4600.cpp      Migliorati messaggi d'errore
cg4600a.uml     Aggiunto ADD RUN


git-svn-id: svn://10.65.10.50/trunk@7016 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1998-09-02 14:33:52 +00:00
parent 42bcf39815
commit c543c7d295
7 changed files with 42 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cg/cg2100k.uml
View File

@ -51,3 +51,5 @@ END
ENDPAGE
ENDMASK

2
cg/cg2102.cpp
View File

@ -822,7 +822,7 @@ void TPrimanota_application::generazione_righe_cg(int r)
int TPrimanota_application::crea_somma_spese(TImporto& imp)
{
TConto cassa; causale().bill(2, cassa);
TBill cassa; causale().bill(2, cassa);
const TString desc(causale().desc_agg(2));
imp.swap_section(); imp.normalize();
const int r = set_cgs_row(-1, imp, cassa, desc, 'L');

9
cg/cg2105.cpp
View File

@ -849,11 +849,10 @@ bool TGame_mask::partite_notify(TSheet_field& partite, int r, KEY k)
const bool changing_row = gm._riga_partite != r;
if (!changing_row)
return TRUE;
main_app().begin_wait();
gm._riga_partite = r;
TWait_cursor hourglass;
TSheet_field& sheet = gm.scadenze();
sheet.destroy(-1, FALSE); // Azzera righe
@ -1024,7 +1023,7 @@ bool TGame_mask::partite_notify(TSheet_field& partite, int r, KEY k)
tot_val += sl;
}
}
}
} // Fine ciclo sulle rate della fattura
}
TRecord_array& unas = game->unassigned();
@ -1101,8 +1100,6 @@ bool TGame_mask::partite_notify(TSheet_field& partite, int r, KEY k)
sheet.select(0, TRUE);
else
sheet.force_update();
main_app().end_wait();
}
if (k == K_INS)

16
cg/cg4301.cpp
View File

@ -1375,16 +1375,16 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
// art 40 c. 5/6/8 per VA7.
real i,v;
TToken_string kr(tab->get("S0"),'!');
i = kr.get(0) + va7i;
v = kr.get(1) + va7v;
i = real(kr.get(0)) + va7i;
v = real(kr.get(1)) + va7v;
kr.add(i.string(), 0);
kr.add(v.string(), 1);
tab->put("S0",kr);
// fatture in ritardo
TToken_string fr(tab->get("S1"),'!');
i = fr.get(0) + rti;
v = fr.get(1) + rtv;
i = real(fr.get(0)) + rti;
v = real(fr.get(1)) + rtv;
fr.add(i.string(), 0);
fr.add(v.string(), 1);
tab->put("S1",fr);
@ -1393,8 +1393,8 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
// non cannare la stampa dei registri; contengono anche
// tutti i non incassati (vedi definizione di bool nonimp)
TToken_string cs(tab->get("S2"),'!');
i = cs.get(0) + csi;
v = cs.get(1) + csv;
i = real(cs.get(0)) + csi;
v = real(cs.get(1)) + csv;
cs.add(i.string(), 0);
cs.add(v.string(), 1);
tab->put("S2",cs);
@ -1479,7 +1479,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
const real& previous = _prorata.previous();
bool b = TRUE;
if (!_prorata.flag() || (previous == current && _prorata.flag())) // Se le percentuali sono uguali
if (!_prorata.previous_ok() || (previous == current && _prorata.previous_ok())) // Se le percentuali sono uguali
b = FALSE; // o non esiste la tabella prec.
// considera tutto sull'anno corrente
@ -1568,7 +1568,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
_plm->put("R12", _prorata.current()); // per comodita' in stampa
_plm->put("B0", "X"); // calcolato (invalidato dalla primanota)
// Setta il flag di stampa errore: se siamo oltre 1997 e non esiste tabella anno prec e vi sono docs con tale riferimento
_plm->put("B1", !_prorata.flag() && acquisti_iva_annoprec != ZERO && year_int > 1997);
_plm->put("B1", !_prorata.previous_ok() && acquisti_iva_annoprec != ZERO && year_int > 1997);
_pom->put("R9", acq_ies);
_pom->put("R10", acq_ies_iva);
_pum->put("R8", acq_pint);

3
cg/cg4400.cpp
View File

@ -812,7 +812,7 @@ bool TStampa_registri_app::mask_data (TMask_field& f, KEY k)
return FALSE;
}
if (f.dlg() == A_DATA)
if (data.ok)
if (data.ok())
{
if ( data.day() == 31 && data.month() == 12 )
f.mask().show (TIPO_RIEPILOGATIVO);
@ -3495,6 +3495,7 @@ bool TStampa_registri_app::stampa_riepilogo(int m)
if (vect.items() > 0)
{
stampato = TRUE;
TPrintrow row;
row.reset();
printer().print(row);
row.put("Registro iva:", 0);

45
cg/cg4600.cpp
View File

@ -333,45 +333,40 @@ bool TApertura_chiusura::mask_dataap (TMask_field& f, KEY k)
bool TApertura_chiusura::mask_distinti (TMask_field& f, KEY k)
{
int idg,idc,ids,idg1,idc1,ids1;
if (k == K_ENTER)
{
idg = 108;
idc = 109;
ids = 110;
const TMask& m = f.mask();
short idg = 108;
short idc = 109;
short ids = 110;
for (int i = 0; i < 7; i++)
{
int g = f.mask().get_int(idg);
int c = f.mask().get_int(idc);
long s = f.mask().get_long(ids);
const int g = m.get_int(idg);
const int c = m.get_int(idc);
const long s = m.get_long(ids);
idg1 = idg;
idc1 = idc;
ids1 = ids;
short idg1 = idg;
short idc1 = idc;
short ids1 = ids;
for (int j = i+1; j < 7; j++)
{
idg1 = idg1 + 3;
idc1 = idc1 + 3;
ids1 = ids1 + 3;
idg1 += 3;
idc1 += 3;
ids1 += 3;
int gruppo = f.mask().get_int(idg1);
int conto = f.mask().get_int(idc1);
long sottoc = f.mask().get_long(ids1);
int gruppo = m.get_int(idg1);
int conto = m.get_int(idc1);
long sottoc = m.get_long(ids1);
if ((g == gruppo)&&(c == conto)&&(s == sottoc))
{
f.warning_box("Nessun sottoconto puo' essere ripetuto!");
return FALSE;
}
return f.error_box("Il sottoconto della riga %d e' ripetuto alla riga %d.", i+1, j+1);
}
idg = idg + 3;
idc = idc + 3;
ids = ids + 3;
idg += 3;
idc += 3;
ids += 3;
}
}
return TRUE;

4
cg/cg4600a.uml
View File

@ -33,6 +33,7 @@ BEGIN
OUTPUT F_CHIUSURA CODCAUS
INPUT CODCAUS F_CHIUSURA
CHECKTYPE REQUIRED
ADD RUN CG0 -4
END
STRING F_APERTURA 3
@ -41,9 +42,10 @@ BEGIN
HELP "Codice causale che genera il movimento di apertura"
USE LF_CAUSALI KEY 1 SELECT MOVAP="A"
FLAGS "UZ"
INPUT CODCAUS F_APERTURA
COPY DISPLAY F_CHIUSURA
OUTPUT F_APERTURA CODCAUS
INPUT CODCAUS F_APERTURA
ADD RUN CG0 -4
END
DATE F_DATAAP