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

Corretta sparizione misteriosa dei mesi

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@772 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-12-16 15:48:58 +00:00
parent aadf264df4
commit 1b54d95ee2
10 changed files with 529 additions and 524 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cg/cg2100c.uml
View File

@ -39,10 +39,9 @@ END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "FGRD" FLAGS "DFGR"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
@ -57,7 +56,7 @@ NUMBER F_NUMREG 6
BEGIN BEGIN
PROMPT 57 3 "Operazione n. " PROMPT 57 3 "Operazione n. "
FIELD NUMREG FIELD NUMREG
FLAGS "RDG" FLAGS "DGR"
KEY 1 KEY 1
MESSAGE COPY,H_NUMREG MESSAGE COPY,H_NUMREG
END END

2
cg/cg5.cpp
View File

@ -7,7 +7,7 @@
int main(int argc,char** argv) int main(int argc,char** argv)
{ {
int n = (argc > 1) ? atoi(argv[1]+1) : -1; const int n = (argc > 1) ? atoi(argv[1]+1) : -1;
switch (n) switch (n)
{ {

17
cg/cg5000a.uml
View File

@ -26,6 +26,7 @@ NUMBER FLD_CODABI 5
BEGIN BEGIN
PROMPT 3 2 "Banca di appoggio per deleghe IVA ABI " PROMPT 3 2 "Banca di appoggio per deleghe IVA ABI "
HELP "Codice ABI banca di appoggio per deleghe IVA" HELP "Codice ABI banca di appoggio per deleghe IVA"
WARNIG "Codice ABI errato"
USE %BAN USE %BAN
INPUT CODTAB[1,5] FLD_CODABI INPUT CODTAB[1,5] FLD_CODABI
DISPLAY "ABI@5" CODTAB[1,5] DISPLAY "ABI@5" CODTAB[1,5]
@ -41,8 +42,9 @@ END
NUMBER FLD_CODCAB 5 NUMBER FLD_CODCAB 5
BEGIN BEGIN
PROMPT 60 2 "CAB " PROMPT 60 2 "CAB "
HELP "Codice CAB banca di appoggio per deleghe IVA" HELP "Codice CAB banca di appoggio per deleghe IVA"
WARNIG "Codice CAB errato"
COPY ALL FLD_CODABI COPY ALL FLD_CODABI
INPUT CODTAB[6,10] FLD_CODCAB INPUT CODTAB[6,10] FLD_CODCAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
@ -59,7 +61,7 @@ END
BOOLEAN CHK_SIND11 BOOLEAN CHK_SIND11
BEGIN BEGIN
PROMPT 3 4 "Somma imposte non detraibili ad acq/import. in modello IVA 11" PROMPT 3 4 "Somma imposte non detraibili ad acq/import. in modello IVA 11"
HELP "Indicare se includere l'IVA non detraibile nell'importo dell'operazioni IVA art.19 IVA 11" HELP "Indicare se includere l'IVA non detraibile nell'importo dell'operazioni IVA art.19 IVA 11"
FIELD Sind11 FIELD Sind11
END END
@ -109,7 +111,8 @@ STRING FLD_CODAGV 4
BEGIN BEGIN
PROMPT 3 9 "Codice IVA per ricavi misti agenzie di viaggio " PROMPT 3 9 "Codice IVA per ricavi misti agenzie di viaggio "
HELP "Codice IVA per scorporo operazioni con l'esetero per agenzie di viaggio" HELP "Codice IVA per scorporo operazioni con l'esetero per agenzie di viaggio"
USE %IVA WARNIG "Codice IVA errato"
USE %IVA
FLAGS "U" FLAGS "U"
INPUT CODTAB FLD_CODAGV INPUT CODTAB FLD_CODAGV
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -147,15 +150,15 @@ END
BOOLEAN CHK_STIREG BOOLEAN CHK_STIREG
BEGIN BEGIN
PROMPT 3 14 "Stampare l'intestazione sui registri bollati" PROMPT 3 14 "Stampare l'intestazione sui registri bollati"
HELP "Indicare se stampare l'intestazione della ditta sui registri" HELP "Indicare se stampare l'intestazione della ditta sui registri"
FIELD StiReg FIELD StiReg
END END
BOOLEAN CHK_NODTRG BOOLEAN CHK_NODTRG
BEGIN BEGIN
PROMPT 3 15 "Non stampare la data di operazione sui registri IVA" PROMPT 3 15 "Non stampare la data di operazione sui registri IVA"
HELP "Indicare se non stampoare la data dell'operazione sui registri IVA" HELP "Indicare se non stampoare la data dell'operazione sui registri IVA"
FIELD NoDtRg FIELD NoDtRg
END END

824
cg/cg5500.cpp
View File

@ -1,411 +1,413 @@
#include "cg5500.h" #include "cg5500.h"
#include <urldefid.h> #include <browfile.h>
#include <prefix.h> #include <prefix.h>
#include "cg5500a.h" #include <msksheet.h>
#include <msksheet.h> #include <mailbox.h>
#include <mailbox.h> #include <execp.h>
#include <execp.h> #include <progind.h>
#include <progind.h> #include <urldefid.h>
#include <browfile.h>
#include "cg5500a.h"
const char* Visliq_app::itoname(int m)
{ const char* Visliq_app::itoname(int m)
const char* mn; {
if (_freqviva == "M") const char* mn;
return itom(m); if (_freqviva == "M")
return itom(m);
switch(m)
{ switch(m)
case 3: {
mn = "1 Trimestre"; case 3:
break; mn = "1 Trimestre";
case 6: break;
mn = "2 Trimestre"; case 6:
break; mn = "2 Trimestre";
case 9: break;
mn = "3 Trimestre"; case 9:
break; mn = "3 Trimestre";
case 12: break;
mn = "4 Trimestre"; case 12:
break; mn = "4 Trimestre";
} break;
}
return mn;
} return mn;
}
void Visliq_app::set_freqviva()
{ void Visliq_app::set_freqviva()
if (look_lia()) {
_freqviva = _lia->get("S7"); if (look_lia())
else _freqviva = _lia->get("S7");
{ else
TLocalisamfile ditte(LF_NDITTE,1); {
ditte.zero(); TLocalisamfile ditte(LF_NDITTE,TRUE);
ditte.put("CODDITTA", get_firm()); ditte.zero();
ditte.read(); ditte.put("CODDITTA", get_firm());
_freqviva = ditte.get("FREQVIVA"); ditte.read();
} _freqviva = ditte.get("FREQVIVA");
} }
}
bool Visliq_app::create()
{ bool Visliq_app::create()
TApplication::create(); {
TApplication::create();
_del = new TTable("%DEL");
_lia = new TTable("LIA"); _del = new TTable("%DEL");
_lim = new TTable("LIM"); _lia = new TTable("LIA");
_del_r = &(_del->curr()); _lim = new TTable("LIM");
_lim_r = &(_lim->curr()); _del_r = &(_del->curr());
_del_ditta = new TRecfield(*_del_r,"CODTAB",0,4); _lim_r = &(_lim->curr());
_del_anno = new TRecfield(*_del_r,"CODTAB",5,8); _del_ditta = new TRecfield(*_del_r,"CODTAB",0,4);
_del_mese = new TRecfield(*_del_r,"CODTAB",9,10); _del_anno = new TRecfield(*_del_r,"CODTAB",5,8);
_del_tipo = new TRecfield(*_del_r,"CODTAB",11,11); _del_mese = new TRecfield(*_del_r,"CODTAB",9,10);
_lim_anno = new TRecfield(*_lim_r,"CODTAB",0,3); _del_tipo = new TRecfield(*_del_r,"CODTAB",11,11);
_lim_mese = new TRecfield(*_lim_r,"CODTAB",4,6); _lim_anno = new TRecfield(*_lim_r,"CODTAB",0,3);
_lim_mese = new TRecfield(*_lim_r,"CODTAB",4,6);
dispatch_e_menu(BAR_ITEM(1));
dispatch_e_menu(BAR_ITEM(1));
return TRUE;
} return TRUE;
}
bool Visliq_app::destroy()
{ bool Visliq_app::destroy()
delete _lim_mese; {
delete _lim_anno; delete _lim_mese;
delete _del_tipo; delete _lim_anno;
delete _del_mese; delete _del_tipo;
delete _del_ditta; delete _del_mese;
delete _lim_r; delete _del_ditta;
delete _del_r; delete _lim_r;
delete _lim; delete _del_r;
delete _del; delete _lim;
delete _del;
return TApplication::destroy();
} return TApplication::destroy();
}
void Visliq_app::set_mask_freq(TMask& m)
{ void Visliq_app::set_mask_freq(TMask& m)
if (_freqviva == "M") {
{ if (_freqviva == "M")
m.show(F_MONTHS); {
m.hide(F_TRIMS); m.show(F_MONTHS);
} m.hide(F_TRIMS);
else }
{ else
m.hide(F_MONTHS); {
m.show(F_TRIMS); m.hide(F_MONTHS);
} m.show(F_TRIMS);
} }
}
bool Visliq_app::sheet_action(int r, KEY k)
{ bool Visliq_app::sheet_action(int r, KEY k)
// non si possono cancellare o aggiungere righe {
return (k != K_DEL && k != K_INS); // non si possono cancellare o aggiungere righe
} return (k != K_DEL && k != K_INS);
}
const char* Visliq_app::link_handler(TMask& m,
int n, const char* txt, bool doubleclick) const char* Visliq_app::link_handler(TMask& m,
{ int n, const char* txt, bool doubleclick)
// con click visualizza, con double click modifica {
TString st(txt); // con click visualizza, con double click modifica
bool iscred = FALSE; TString st(txt);
static int group; bool iscred = FALSE;
int firstfoc; static int group;
int firstfoc;
if (group != 0) m.hide(group);
if (group != 0) m.hide(group);
if (st.find("rimborso") != -1)
{ group = -1; firstfoc = F_RIMBORSO; } if (st.find("rimborso") != -1)
else if (st.find("debito") != -1 || st.find("credito") != -1) { group = -1; firstfoc = F_RIMBORSO; }
{ group = -2; firstfoc = F_RETTIFICA; } else if (st.find("debito") != -1 || st.find("credito") != -1)
else if (st.find("acconto") != -1) { group = -2; firstfoc = F_RETTIFICA; }
{ group = -3; firstfoc = F_ACCONTO; } else if (st.find("acconto") != -1)
{ group = -3; firstfoc = F_ACCONTO; }
m.show(group);
m.show(group);
if (doubleclick)
{ m.enable(group); m.field(firstfoc).set_focus(); } if (doubleclick)
else m.disable(group); { m.enable(group); m.field(firstfoc).set_focus(); }
else m.disable(group);
return NULL;
} return NULL;
}
bool Visliq_app::menu(MENU_TAG m)
{ bool Visliq_app::menu(MENU_TAG m)
if (m == BAR_ITEM(1)) {
return vis_liq(); if (m == BAR_ITEM(1))
return vis_liq();
return TApplication::menu(m);
} return TApplication::menu(m);
}
// handlers
bool Visliq_app::set_ditta(TMask_field& f, KEY k) // handlers
{ bool Visliq_app::set_ditta(TMask_field& f, KEY k)
long ditta = atol(f.get()); {
long ditta = atol(f.get());
if (!prefhndl->exist(ditta))
{ if (!prefhndl->exist(ditta))
warning_box("Archivi ditta %l non presenti!", ditta); {
return FALSE; warning_box("Archivi ditta %l non presenti!", ditta);
} return FALSE;
else }
{ else
main_app().set_firm(ditta); {
((Visliq_app&)main_app()).set_freqviva(); main_app().set_firm(ditta);
} ((Visliq_app&)main_app()).set_freqviva();
}
((Visliq_app&)main_app()).set_mask_freq(f.mask());
((Visliq_app&)main_app()).set_mask_freq(f.mask());
return TRUE;
} return TRUE;
}
bool Visliq_app::set_anno(TMask_field& f, KEY k)
{ bool Visliq_app::set_anno(TMask_field& f, KEY k)
((Visliq_app&)main_app()).set_year(atoi(f.get())); {
((Visliq_app&)main_app()).set_freqviva(); ((Visliq_app&)main_app()).set_year(atoi(f.get()));
((Visliq_app&)main_app()).set_mask_freq(f.mask()); ((Visliq_app&)main_app()).set_freqviva();
((Visliq_app&)main_app()).set_mask_freq(f.mask());
return TRUE;
} return TRUE;
}
bool Visliq_app::sel_mese_sh1 (TMask_field& f, KEY k)
{ bool Visliq_app::sel_mese_sh1 (TMask_field& f, KEY k)
if (k != K_SPACE) return TRUE; {
if (k != K_SPACE) return TRUE;
TMask& m = *(((Visliq_app&)main_app()).get_main_mask());
TSheet_field& sh = (TSheet_field&)m.field(F_VISLIQ1); TMask& m = *(((Visliq_app&)main_app()).get_main_mask());
int month = sh.selected()+1; TSheet_field& sh = (TSheet_field&)m.field(F_VISLIQ1);
((Visliq_app&)main_app()).vis_one(month); int month = sh.selected()+1;
return TRUE; ((Visliq_app&)main_app()).vis_one(month);
} return TRUE;
}
bool Visliq_app::sel_mese_sh2 (TMask_field& f, KEY k)
{ bool Visliq_app::sel_mese_sh2 (TMask_field& f, KEY k)
if (k != K_SPACE) return TRUE; {
if (k != K_SPACE) return TRUE;
TMask& m = *(((Visliq_app&)main_app()).get_main_mask());
TSheet_field& sh = (TSheet_field&)m.field(F_VISLIQ2); TMask& m = *(((Visliq_app&)main_app()).get_main_mask());
int month = sh.selected(); TSheet_field& sh = (TSheet_field&)m.field(F_VISLIQ2);
month = month == 4 ? 13 : (month+1)*3; int month = sh.selected();
((Visliq_app&)main_app()).vis_one(month); month = month == 4 ? 13 : (month+1)*3;
return TRUE; ((Visliq_app&)main_app()).vis_one(month);
} return TRUE;
}
bool Visliq_app::vis_liq()
{ bool Visliq_app::vis_liq()
long ditta = get_firm(); {
set_freqviva(); long ditta = get_firm();
set_freqviva();
TMask m("cg5500a");
TMask m("cg5500a");
m.set_handler(F_CODDITTA, set_ditta);
m.set_handler(F_YEAR, set_anno); m.set_handler(F_CODDITTA, set_ditta);
m.set_handler(F_YEAR, set_anno);
set_mask_freq(m);
_year = m.get_int(F_YEAR); set_mask_freq(m);
_year = m.get_int(F_YEAR);
while (m.run() != K_ESC)
{ while (m.run() != K_ESC)
int month = m.get_int(_freqviva == "M" ? F_MONTHS : F_TRIMS); {
if (month == 0) int month = m.get_int(_freqviva == "M" ? F_MONTHS : F_TRIMS);
vis_all(); if (month == 0)
else vis_all();
vis_one(month); else
} vis_one(month);
}
set_firm(ditta);
set_firm(ditta);
return FALSE;
} return FALSE;
}
bool Visliq_app::vis_all()
{ bool Visliq_app::vis_all()
if (!look_lia()) {
return FALSE; if (!look_lia())
return FALSE;
// mask diverse per trimestrale e annuale
TMask m(_freqviva == "M" ? "cg5500b" : "cg5500c"); // mask diverse per trimestrale e annuale
TMask m(_freqviva == "M" ? "cg5500b" : "cg5500c");
_mask = &m;
_mask = &m;
TSheet_field& sh = (TSheet_field&)m.field(F_VISLIQ1);
TSheet_field& sv = (TSheet_field&)m.field(F_VISLIQ2); TSheet_field& sh = (TSheet_field&)m.field(F_VISLIQ1);
TSheet_field& sv = (TSheet_field&)m.field(F_VISLIQ2);
// disabilita aggiunta/eliminazione righe
sh.set_notify(sheet_action); // disabilita aggiunta/eliminazione righe
sh.set_notify(sheet_action); sh.set_notify(sheet_action);
sv.set_notify(sheet_action);
sh.sheet_mask().set_handler(101,sel_mese_sh1);
sv.sheet_mask().set_handler(101,sel_mese_sh2); sh.sheet_mask().set_handler(101,sel_mese_sh1);
sv.sheet_mask().set_handler(101,sel_mese_sh2);
m.field(F_CREDPREC).set(_lia->get_real("R0").string());
m.field(F_CREDPREC).set(_lia->get_real("R0").string());
// set sheet
for (int i = 1; i <= 12; i++) // set sheet
{ for (int i = 1; i <= 12; i++)
{
if (!is_month_ok(i) || !look_lim(i))
continue; if (!is_month_ok(i) || !look_lim(i))
continue;
TToken_string* tt = new TToken_string(80);
TToken_string* tt = new TToken_string(80);
tt->add(""); // questo e' il bottone
tt->add(itoname(i)); tt->add(""); // questo e' il bottone
tt->add(abs(_lim->get_real("R0")).string()); tt->add(itoname(i));
tt->add(_lim->get_real("R0").sign() < 0 ? "C" : "D"); tt->add(abs(_lim->get_real("R0")).string());
tt->add(_lim->get_real("R1").string()); tt->add(_lim->get_real("R0").sign() < 0 ? "C" : "D");
tt->add(abs(_lim->get_real("R5")).string()); tt->add(_lim->get_real("R1").string());
tt->add(_lim->get_real("R5").sign() < 0 ? "C" : "D"); tt->add(abs(_lim->get_real("R5")).string());
tt->add(_lim->get_real("R5").sign() < 0 ? "C" : "D");
sh.row(i-1) = (*tt);
} sh.row(i-1) = (*tt);
}
// calcola versamenti
real versamenti[13]; // calcola versamenti
TDate date[13]; real versamenti[13];
TDate date[13];
for (_del->first(); !_del->eof(); _del->next())
{ for (_del->first(); !_del->eof(); _del->next())
if (atol(*_del_ditta) != get_firm() || {
atoi(*_del_anno) != _year) if (atol(*_del_ditta) != get_firm() ||
continue; atoi(*_del_anno) != _year)
continue;
// TBC uso solo deleghe normali (tipo == 1) e acconti (tipo == 7)
int tipod = atoi(*_del_tipo); // TBC uso solo deleghe normali (tipo == 1) e acconti (tipo == 7)
if (tipod != 1 || tipod != 7) int tipod = atoi(*_del_tipo);
continue; if (tipod != 1 || tipod != 7)
continue;
// somma versamenti nel mese adeguato
int m = atoi(*_del_mese); // somma versamenti nel mese adeguato
int m = atoi(*_del_mese);
if (m >= 12)
m = tipod == 7 ? 12 : 13; if (m >= 12)
m = tipod == 7 ? 12 : 13;
versamenti[m-1] += _del->get_real("R0");
date[m-1] = _del->get_date("D0"); versamenti[m-1] += _del->get_real("R0");
} date[m-1] = _del->get_date("D0");
}
TString nomemese(26);
TString nomemese(26);
for (i = 1; i <= 13; i++)
{ for (i = 1; i <= 13; i++)
if (!is_month_ok(i)) {
continue; if (!is_month_ok(i))
continue;
TToken_string* tt = new TToken_string(80);
nomemese = itoname(i == 13 ? 12 : i); TToken_string* tt = new TToken_string(80);
nomemese = itoname(i == 13 ? 12 : i);
if (i == 12) nomemese << " acconto";
if (i == 13) nomemese << " saldo"; if (i == 12) nomemese << " acconto";
if (i == 13) nomemese << " saldo";
tt->add(""); // questo e' il bottone
tt->add(nomemese); // mese tt->add(""); // questo e' il bottone
tt->add(date[i-1].string()); // data vers. tt->add(nomemese); // mese
tt->add(""); // TBI azienda tt->add(date[i-1].string()); // data vers.
tt->add(""); // TBI dipendenza tt->add(""); // TBI azienda
tt->add(""); // TBI concessionaria tt->add(""); // TBI dipendenza
tt->add(versamenti[i-1].string());// versamenti tt->add(""); // TBI concessionaria
tt->add(versamenti[i-1].sign() < 0 ? "C" : "D"); // debito/credito tt->add(versamenti[i-1].string());// versamenti
tt->add(versamenti[i-1].sign() < 0 ? "C" : "D"); // debito/credito
sv.row(i-1) = (*tt);
} sv.row(i-1) = (*tt);
}
sh.disable();
sv.disable(); sh.disable();
sv.disable();
m.run();
m.run();
return TRUE; _mask = NULL;
}
return TRUE;
}
bool Visliq_app::vis_one(int m)
{
TMask msk("cg5500d"); bool Visliq_app::vis_one(int m)
{
// ricalcolo liquidazione TMessage msg; TMask msk("cg5500d");
TFilename f;
f.temp(); // ricalcolo liquidazione TMessage msg;
TFilename f;
TToken_string body(36); f.temp();
body.add(_year);
body.add(m); TToken_string body(36);
body.add(get_firm()); body.add(_year);
body.add("V"); // visualizzazione: no ff alla fine, zeri stampati body.add(m);
body.add(""); body.add(get_firm());
body.add(f); body.add("V"); // visualizzazione: no ff alla fine, zeri stampati
body.add("");
TMessage msg("cg4300", "RCL", body); body.add(f);
msg.send();
TMessage msg("cg4 -2", "RCL", body);
TBrowsefile_field& brw = (TBrowsefile_field&)msk.field(F_VISFLQ); msg.send();
brw.set_link_handler(link_handler);
brw.enable_link("Modifica: ", 'r'); TBrowsefile_field& brw = (TBrowsefile_field&)msk.field(F_VISFLQ);
brw.set_link_handler(link_handler);
look_lim(m); brw.enable_link("Modifica: ", 'r');
real rimborso = _lim->get_real("R1");
real rettifica = _lim->get_real("R5"); look_lim(m);
TString desc1(_lim->get("S0")); real rimborso = _lim->get_real("R1");
TString desc2(_lim->get("S1")); real rettifica = _lim->get_real("R5");
real acconto; TString desc1(_lim->get("S0"));
TString desc2(_lim->get("S1"));
if (m == 12) real acconto;
{
look_lia(); if (m == 12)
acconto = _lia->get_real("R4"); {
} look_lia();
acconto = _lia->get_real("R4");
msk.field(F_RIMBORSO).set(rimborso.string()); }
if (rettifica.sign() < 0)
{ msk.field(F_RIMBORSO).set(rimborso.string());
msk.field(F_RETTIFICA).set(abs(rettifica).string()); if (rettifica.sign() < 0)
msk.field(F_DEBCRE).set("C"); {
} msk.field(F_RETTIFICA).set(abs(rettifica).string());
else msk.field(F_DEBCRE).set("C");
{ }
msk.field(F_RETTIFICA).set(rettifica.string()); else
msk.field(F_DEBCRE).set("D"); {
} msk.field(F_RETTIFICA).set(rettifica.string());
msk.field(F_DESCR1).set(desc1); msk.field(F_DEBCRE).set("D");
msk.field(F_DESCR2).set(desc1); }
msk.field(F_ACCONTO).set(acconto.string()); msk.field(F_DESCR1).set(desc1);
msk.field(F_DESCR2).set(desc1);
long line; msk.field(F_ACCONTO).set(acconto.string());
TExternal_app liq("cg4 -2"); long line;
{
TProgind(10l,"Estrazione liquidazione\nPrego attendere", FALSE,FALSE); TExternal_app liq("cg4 -2");
liq.run(); {
TProgind(10l,"Estrazione liquidazione\nPrego attendere", FALSE,FALSE);
if (liq.error()) liq.run();
{
beep(); if (liq.error())
return FALSE; {
} beep();
line = brw.set_text(f, "CALCOLO LIQUIDAZIONE D'IMPOSTA"); return FALSE;
}
if (line != -1) line = brw.set_text(f, "CALCOLO LIQUIDAZIONE D'IMPOSTA");
brw.goto_pos(line-1l, 9);
msk.run(); if (line != -1)
} brw.goto_pos(line-1l, 9);
msk.run();
remove(f); }
return TRUE; remove(f);
}
return TRUE;
int cg5500(int argc, char* argv[]) }
{
Visliq_app app; int cg5500(int argc, char* argv[])
app.run(argc, argv, "Visualizzazione Liquidazione"); {
return 0; Visliq_app app;
} app.run(argc, argv, "Visualizzazione Liquidazione");
return 0;
}

35
cg/cg5500a.h
View File

@ -1,16 +1,19 @@
#define F_CODDITTA 101 #define F_CODDITTA 101
#define F_RAGSOC 102 #define F_RAGSOC 102
#define F_MONTHS 103 #define F_MONTHS 103
#define F_TRIMS 104 #define F_TRIMS 104
#define F_YEAR 105 #define F_YEAR 105
#define F_VISLIQ1 106 #define F_VISLIQ1 106
#define F_VISLIQ2 107 #define F_VISLIQ2 107
#define F_CREDPREC 108 #define F_CREDPREC 108
#define F_VISFLQ 109 #define F_VISFLQ 109
#define F_ACCONTO 110 #define F_ACCONTO 110
#define F_RIMBORSO 111 #define F_RIMBORSO 111
#define F_RETTIFICA 112 #define F_RETTIFICA 112
#define F_DESCR1 113 #define F_DESCR1 113
#define F_DESCR2 114 #define F_DESCR2 114
#define F_DEBCRE 115 #define F_DEBCRE 115
#define F_CODDITTA2 201
#define F_RAGSOC2 202

77
cg/cg5500b.uml
View File

@ -15,14 +15,19 @@ END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 2 "Codice ditta " PROMPT 2 2 "Codice "
FLAGS "DF" FLAGS "DFR"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
OUTPUT F_RAGSOC2 RAGSOC
CHECKTYPE REQUIRED
END END
NUMBER F_RAGSOC 37 50 STRING F_RAGSOC 37 50
BEGIN BEGIN
PROMPT 22 2 "Ragione sociale " PROMPT 16 2 "Rag. soc. "
FLAGS "DF" FLAGS "D"
END END
NUMBER F_CREDPREC 15 NUMBER F_CREDPREC 15
@ -52,16 +57,16 @@ BEGIN
PROMPT 0 1 "@bDitta corrente" PROMPT 0 1 "@bDitta corrente"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA2 5
BEGIN BEGIN
PROMPT 2 2 "Codice ditta " PROMPT 2 2 "Codice "
FLAGS "DF" FLAGS "DFR"
END END
NUMBER F_RAGSOC 37 50 STRING F_RAGSOC2 37 50
BEGIN BEGIN
PROMPT 22 2 "Ragione sociale " PROMPT 16 2 "Rag. soc. "
FLAGS "DF" FLAGS "D"
END END
SPREADSHEET F_VISLIQ2 80 11 SPREADSHEET F_VISLIQ2 80 11
@ -80,14 +85,9 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto mensile" -1 -1 50 7 PAGE "Prospetto mensile" -1 -1 50 10
BUTTON 101 STRING 102 10
BEGIN
PROMPT -11 -2 "DIO CAIMANO"
END
LIST 102
BEGIN BEGIN
PROMPT 1 2 "Mese " PROMPT 1 2 "Mese "
END END
@ -95,12 +95,12 @@ END
NUMBER 103 15 0 NUMBER 103 15 0
BEGIN BEGIN
PROMPT 1 4 "Risultato " PROMPT 1 3 "Risultato "
END END
LIST 104 2 0 LIST 104 1 8
BEGIN BEGIN
PROMPT 1 5 "Importo a " PROMPT 1 4 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
@ -109,7 +109,7 @@ END
NUMBER 105 15 NUMBER 105 15
BEGIN BEGIN
PROMPT 22 6 "IVA a rimborso " PROMPT 22 5 "IVA a rimborso "
END END
NUMBER 106 15 NUMBER 106 15
@ -117,37 +117,32 @@ BEGIN
PROMPT 22 6 "Debito/Credito " PROMPT 22 6 "Debito/Credito "
END END
LIST 107 2 0 LIST 107 1 8
BEGIN BEGIN
PROMPT 1 5 "Importo a " PROMPT 1 7 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
OUTPUT 105 OUTPUT 105
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_OK 10 2 BUTTON 101 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 "Calcola"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto versamenti" -1 -1 50 7 PAGE "Prospetto versamenti" -1 -1 50 12
BUTTON 101 STRNG 102 10
BEGIN
PROMPT -11 -2 "DIO CANGURO"
END
LIST 102
BEGIN BEGIN
PROMPT 1 2 "Mese " PROMPT 1 2 "Mese "
END END
@ -177,24 +172,26 @@ BEGIN
PROMPT 1 4 "Versamenti " PROMPT 1 4 "Versamenti "
END END
LIST 108 2 0 LIST 108 1 8
BEGIN BEGIN
PROMPT 1 5 "Importo a " PROMPT 1 9 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
OUTPUT 105 OUTPUT 105
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_OK 10 2 BUTTON 101 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 "Calcola"
END END
ENDPAGE ENDPAGE

77
cg/cg5500c.uml
View File

@ -16,13 +16,17 @@ END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 2 "Codice ditta " PROMPT 2 2 "Codice ditta "
FLAGS "DF" FLAGS "FRD"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
END END
NUMBER F_RAGSOC 37 50 STRING F_RAGSOC 37 50
BEGIN BEGIN
PROMPT 22 2 "Ragione sociale " PROMPT 22 2 "Rag. soc. "
FLAGS "DF" FLAGS "D"
END END
NUMBER F_CREDPREC 15 NUMBER F_CREDPREC 15
@ -59,14 +63,9 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto mensile" -1 -1 50 7 PAGE "Prospetto mensile" -1 -1 50 10
BUTTON 101 10 2 STRING 102 10
BEGIN
PROMPT -13 -1 "CAIMANO"
END
LIST 102
BEGIN BEGIN
PROMPT 1 2 "Mese " PROMPT 1 2 "Mese "
END END
@ -74,12 +73,12 @@ END
NUMBER 103 15 0 NUMBER 103 15 0
BEGIN BEGIN
PROMPT 1 4 "Risultato " PROMPT 1 3 "Risultato "
END END
LIST 104 2 0 LIST 104 1 8
BEGIN BEGIN
PROMPT 1 5 "Importo a " PROMPT 1 4 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
@ -88,7 +87,7 @@ END
NUMBER 105 15 NUMBER 105 15
BEGIN BEGIN
PROMPT 22 6 "IVA a rimborso " PROMPT 22 5 "IVA a rimborso "
END END
NUMBER 106 15 NUMBER 106 15
@ -96,68 +95,63 @@ BEGIN
PROMPT 22 6 "Debito/Credito " PROMPT 22 6 "Debito/Credito "
END END
LIST 107 2 0 LIST 107 1 8
BEGIN BEGIN
PROMPT 1 5 "Importo a " PROMPT 1 7 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
OUTPUT 105 OUTPUT 105
END END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -33 -1 "" PROMPT -12 -1 ""
END
BUTTON 101 10 2
BEGIN
PROMPT -22 -1 "Calcola"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto versamenti" -1 -1 50 7 PAGE "Prospetto versamenti" -1 -1 50 12
BUTTON 101 10 2 STRING 102 10
BEGIN
PROMPT -13 -1 "CANGURO"
END
LIST 102
BEGIN BEGIN
PROMPT 1 2 "Mese " PROMPT 1 2 "Mese "
END END
DATE 103 DATE 103
BEGIN BEGIN
PROMPT 1 5 "Data " PROMPT 1 3 "Data "
END END
STRING 104 5 STRING 104 5
BEGIN BEGIN
PROMPT 1 6 "Azienda " PROMPT 1 4 "Azienda "
END END
STRING 105 5 STRING 105 5
BEGIN BEGIN
PROMPT 1 7 "Dipendenza " PROMPT 1 5 "Dipendenza "
END END
STRING 106 5 STRING 106 5
BEGIN BEGIN
PROMPT 1 8 "Concessionaria " PROMPT 1 6 "Concessionaria "
END END
NUMBER 107 15 0 NUMBER 107 15 0
BEGIN BEGIN
PROMPT 1 4 "Versamenti " PROMPT 1 7 "Versamenti "
END END
LIST 108 2 0 LIST 108 1 8
BEGIN BEGIN
PROMPT 1 5 "Importo a " PROMPT 1 8 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
@ -166,12 +160,17 @@ END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -13 -1 ""
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -33 -1 "" PROMPT -23 -1 ""
END
BUTTON 101 10 2
BEGIN
PROMPT -33 -1 "Calcola"
END END

14
cg/cg5500d.uml
View File

@ -15,14 +15,18 @@ END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Codice ditta " PROMPT 2 1 "Codice "
FLAGS "DF" FLAGS "FRD"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
END END
NUMBER F_RAGSOC 37 50 STRING F_RAGSOC 37 50
BEGIN BEGIN
PROMPT 22 1 "Ragione sociale " PROMPT 16 1 "Rag. soc. "
FLAGS "DF" FLAGS "D"
END END

1
cg/cglib02.cpp
View File

@ -8,7 +8,6 @@
#include <stdlib.h> #include <stdlib.h>
#include <isam.h> #include <isam.h>
#include <date.h>
#include <saldi.h> #include <saldi.h>
#include <utility.h> #include <utility.h>

1
cg/cglib03.cpp
View File

@ -1,4 +1,3 @@
// TRigaiva_array // TRigaiva_array
// Tabella per il calcolo degli imponibili Iva // Tabella per il calcolo degli imponibili Iva