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

Correzioni da PR

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1370 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-05-17 13:13:02 +00:00
parent 94e7874e18
commit b52128062a
9 changed files with 419 additions and 383 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
cg/cg0400a.uml
View File

@ -30,7 +30,8 @@ NUMBER F_ANNO 4
BEGIN
PROMPT 3 3 "Anno liquidazione "
HELP "Anno di cui si effettua la liquidazione"
FLAGS "A"
FLAGS "A"
VALIDATE FIXLEN_FUNC 4
CHECKTYPE REQUIRED
END

1
cg/cg0400b.uml
View File

@ -36,6 +36,7 @@ NUMBER F_ANNO 4
BEGIN
PROMPT 3 6 "Anno riepilogo "
FLAGS "A"
VALIDATE FIXLEN_FUNC 4
CHECKTYPE REQUIRED
END

216
cg/cg4400.cpp
View File

@ -5,6 +5,8 @@
#include "cg4400a.h"
#include "cg4400b.h"
static TString256 TMP;
inline CG4400_application& app() { return (CG4400_application&)main_app(); }
bool CG4400_application::filter_func (const TRelation * r)
@ -129,11 +131,7 @@ bool CG4400_application::mask_tipo_stampa(TMask_field& f, KEY k)
{
int tipo_stampa = m.get_int(TIPO_STAMPA);
if (tipo_stampa == 3) //stampa su libro unico
{
m.enable_page(1);
TMask_field& cc = f.mask().field(CODICE_LIB_UN);
cc.set_dirty();
}
else
m.disable_page(1);
}
@ -162,7 +160,7 @@ bool CG4400_application::mask_mese (TMask_field& f, KEY k)
f.mask().hide (TIPO_RIEPILOGATIVO);
f.mask().hide (RIF_VID);
}
//TMask_field& cc = f.mask().field(CODICE_LIB_UN);
//TMask_field& cc = f.mask().field(CODICE_LIBRO_IVA);
//cc.set_dirty();
}
if (id == FINO_A_MESE)
@ -176,8 +174,8 @@ bool CG4400_application::mask_mese (TMask_field& f, KEY k)
{
const short id = f.dlg();
if (id == MESE)
f.mask().send_key(K_TAB, CODICE_LIBRO_IVA);
}
f.mask().send_key(K_TAB, CODICE_LIBRO_IVA);
}
return TRUE;
}
@ -199,16 +197,12 @@ bool CG4400_application::look_reg(int i, int anno, TString& codlib, int m, const
TDate sca_vid = _tabreg->get_date("D1");
if (codlib != cod_lib_un)
{
if (_selected.ones() == 1L)
if (_selected[i])
message_box("Ditta %ld: il codice libro unico del registro non e' uguale al codice libro unico indicato", ditta);
if (_selected[i]) message_box("Ditta %ld: il codice libro unico del registro non e' uguale al codice libro unico indicato", ditta);
return FALSE;
}
if (m < *umese)
{
if (_selected.ones() == 1L)
if (_selected[i])
message_box("Ditta %ld: il mese indicato e' inferiore al mese dell'ultima data di stampa del registro", ditta);
if (_selected[i]) message_box("Ditta %ld: il mese indicato e' inferiore al mese dell'ultima data di stampa del registro", ditta);
return FALSE;
}
if (u_data.ok())
@ -218,9 +212,7 @@ bool CG4400_application::look_reg(int i, int anno, TString& codlib, int m, const
if (sca_vid.ok())
if (sca_vid.month() < m)
{
if (_selected.ones() == 1L)
if (_selected[i])
message_box("Ditta %ld: la data scadenza di vidimazione del registro non deve essere inferiore al mese indicato", ditta);
if (_selected[i]) message_box("Ditta %ld: la data scadenza di vidimazione del registro non deve essere inferiore al mese indicato", ditta);
return FALSE;
}
}
@ -259,16 +251,13 @@ bool CG4400_application::look_regs(int anno, TString& codlib, int m, int* umese,
if (sca_vid.ok())
if (sca_vid.month() < m)
continue;
int month;
if (!u_data.ok())
month = 0;
else month = u_data.month();
if (month < m - 1)
{
app().set_firm(__firm);
*st = FALSE;
return error_box("Ditta %ld: Stampare i registri dei mesi precedenti", ditta);
}
if (u_data.ok())
if (u_data.month() < m - 1)
{
app().set_firm(__firm);
*st = FALSE;
return error_box("Ditta %ld: Stampare i registri dei mesi precedenti", ditta);
}
ok = TRUE;
}
}
@ -285,13 +274,7 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
{
TString16 cod(f.mask().get(CODICE_LIBRO_IVA));
TString16 codlib(f.mask().get(CODICE_LIB_UN));
//modifica del 26/04/1995
if (codlib.empty())
{
app()._test = TRUE;
return f.error_box("Inserire il codice del libro unico");
}
//fine modifica
int fino_a_mese = f.mask().get_int(MESE);
int anno = f.mask().get_int(ANNO);
bool ok = FALSE;
@ -314,12 +297,11 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
{
//modifica del 21/04/1995 suggerita da Cinzia!!!
if (app()._selected.ones() == 1L) //solo se ho selezionato 1 ditta devo dare il messaggio
if (app()._selected[i])
f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod);
continue;
//if (app()._selected[i]) f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod);
f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod);
else continue;
}
//if (mese != 0 && mese < fino_a_mese - 1) //indipendentemente se si tratta di una ditta selezionata oppure no
if (mese < fino_a_mese - 1) //indipendentemente se si tratta di una ditta selezionata oppure no
if (mese != 0 && mese < fino_a_mese - 1) //indipendentemente se si tratta di una ditta selezionata oppure no
{
app().set_firm(app().__firm);
can_print = FALSE;
@ -334,9 +316,9 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
{
if (!can_print)
return FALSE;
//if ( app()._selected[i])
if (app()._selected.ones() == 1L) //solo se ho selezionato 1 ditta devo dare il messaggio
if (app()._selected[i])
f.message_box("Ditta %ld: nessun registro soddisfa i parametri indicati", ditta);
f.message_box("Ditta %ld: nessun registro soddisfa i parametri indicati", ditta);
continue;
}
}
@ -357,15 +339,23 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
bool CG4400_application::mask_cod (TMask_field& f, KEY k)
{
TTable TabLbu ("%LBU");
TString codtab;
int anno;
if (k == K_ENTER)
{
TString16 codlib(f.get());
if (codlib.empty())
return f.warning_box("Inserire il codice del libro unico");
}
//if (k == K_TAB || f.focusdirty())
if (k == K_TAB)
{
TTable TabLbu ("%LBU");
TString codtab;
int anno;
TString16 codlib(f.get());
TString16 codlib(f.mask().get(CODICE_LIB_UN));
anno = f.mask().get_int(ANNO);
TabLbu.zero();
codtab.format ("%04d%-3s", anno, (const char*)codlib);
TabLbu.put ("CODTAB", codtab);
@ -376,13 +366,6 @@ bool CG4400_application::mask_cod (TMask_field& f, KEY k)
f.mask().set(ULTIMA_PAGINA,TabLbu.get_long("I1"));
app()._codice_vidi = TabLbu.get("S4");
}
//modifica del 26/04/1995
if (app()._test)
{
f.mask().send_key(K_TAB, CODICE_LIBRO_IVA);
app()._test = FALSE;
}
//fine modifica
}
return TRUE;
}
@ -535,7 +518,7 @@ bool CG4400_application::to_ditt_handler(TMask_field& f, KEY key)
{
const long l = app().select_firm_range(m.get_long(DA_CODICE), m.get_long(A_CODICE));
app().set_choice_limits(m);
m.set(F_SELECT, l);
m.field(F_SELECT).set(format("%ld", l));
}
return TRUE;
}
@ -551,7 +534,7 @@ bool CG4400_application::fr_ditt_handler(TMask_field& f, KEY key)
{
const long l = app().select_firm_range(m.get_long(DA_CODICE), m.get_long(A_CODICE));
app().set_choice_limits(m);
m.set(F_SELECT, l);
m.field(F_SELECT).set(format("%ld", l));
}
return TRUE;
}
@ -602,8 +585,8 @@ void CG4400_application::set_choice_limits(TMask& m)
if (last < dit) last = dit;
}
}
if (first != -1) m.set(DA_CODICE,first);
if (last != -1) m.set(A_CODICE,last);
if (first != -1) m.field(DA_CODICE).set(format("%ld",first));
if (last != -1) m.field(A_CODICE).set(format("%ld",last));
m.set(F_SELECT, _selected.ones());
}
@ -660,16 +643,16 @@ void CG4400_application::build_nomiditte(TProgind* pnd)
_nomiditte.add(d);
}
//if (pnd) pnd->addstatus(1);
if (pnd) pnd->addstatus(1);
//TApplication::set_firm(__firm);
}
bool CG4400_application::user_create()
{
//TProgind* pnd = NULL;
TProgind* pnd = NULL;
//pnd = new TProgind (2,"Preparazione archivi\nPrego attendere",
// FALSE, TRUE, 30);
pnd = new TProgind (2,"Preparazione archivi\nPrego attendere",
FALSE, TRUE, 30);
_com = new TLocalisamfile(LF_COMUNI);
_anag = new TLocalisamfile(LF_ANAG);
@ -701,7 +684,7 @@ bool CG4400_application::user_create()
_ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Ditte",
"@1|Cod.@5R|Ragione Sociale@50|Vers.");
//if (pnd) pnd->addstatus(1);
if (pnd) pnd->addstatus(1);
_n_ditte = 0l;
__firm = TApplication::get_firm();
@ -709,14 +692,16 @@ bool CG4400_application::user_create()
TDate oggi(TODAY);
_annoes = oggi.year();
build_nomiditte();
build_nomiditte(pnd);
build_ditte_sheet();
//if (pnd) pnd->addstatus(1);
add_cursor(_cur);
add_file(LF_MOV);
add_file(LF_RMOVIVA);
//delete pnd;
delete pnd;
return TRUE;
}
@ -1180,9 +1165,9 @@ int CG4400_application::stampa_prospetto()
{
TTipodoc& doc = (TTipodoc&)_doc_array[j];
rr = r+j;
set_row(rr, "%2s", (const char*) doc._tipodoc);
set_row(rr, "@3g%s", (const char*) doc._descrdoc);
set_row(rr, "@54g%r", &doc._totdoc);
set_row(rr, "%2s", (const char*) doc._tipodoc);
set_row(rr, "@3g%s", (const char*) doc._descrdoc);
set_row(rr, "@54g%r", &doc._totdoc);
}
_doc_array.destroy();
}
@ -1876,6 +1861,40 @@ bool CG4400_application::preprocess_page(int file, int counter)
_datareg = mov.get_date(MOV_DATAREG);
/*
if (_tipo_stampa != 3 && _liquidazione)
{
int da;
if (_tipo_stampa == 1)
da = _data_da.month();
else da = 1;
int a = _datareg.month();
for (int m = da; m < a; m++)
{
if (!_st_liq[m])
if (stampo_liquidazione(m))
{
_datareg = format("01/%02d/%4d", m, _annoes); //serve per la preprocess_header (intestazione per la stampa liquidazione)
TFilename t;
t.temp("reg");
if (_tipo_stampa == 1)
send_message('S', t, m);
else send_message('s', t, m);
TString80 nomef; nomef = t.path(); nomef << "\\" << t.name();
if (fexist(nomef))
{
_intesta_liq = TRUE;
merge_export_file(t,FALSE,TRUE);
printer().formfeed();
_intesta_liq = FALSE;
reset_print();
}
}
_st_liq[m] = TRUE;
}
}
*/
if (_tipo_stampa != 3 && _liquidazione)
{
int da;
@ -1913,7 +1932,10 @@ bool CG4400_application::preprocess_page(int file, int counter)
printer().formfeed();
_intesta_liq = FALSE;
reset_print();
<<<<<<< cg4400.cpp
=======
remove(t);
>>>>>>> 1.57
}
}
_st_liq[m] = TRUE;
@ -1999,7 +2021,7 @@ bool CG4400_application::preprocess_page(int file, int counter)
_tipodoc = mov.get(MOV_TIPODOC);
_descr_doc = descr_doc();
TString app = datadoc.string(brief, '/');
TString app = datadoc.string(2, '/');
if (stampa_totali_finali())
_doc_array.add_riga(_tipodoc,_descr_doc,totdoc);
@ -2007,7 +2029,7 @@ bool CG4400_application::preprocess_page(int file, int counter)
//setto le righe di stampa
_r = 1;
if (!_stampa_data_reg)
set_row(_r, "%s", (const char*) _datareg.string(brief, '/'));
set_row(_r, "%s", (const char*) _datareg.string(2, '/'));
set_row(_r, "@9g%5ld", protiva);
if (datadoc.ok())
set_row(_r, "@15g%s", (const char*) app);
@ -2415,28 +2437,21 @@ void CG4400_application::liq_b0_settato()
printer().footerlen(0);
merge_export_file(f,FALSE,TRUE);
_intesta_liq = FALSE;
<<<<<<< cg4400.cpp
=======
remove(f);
>>>>>>> 1.57
}
}
void CG4400_application::liq_other_case()
{
if (_scelta == prosegui_cal_stampa)
if (_scelta == prosegui_cal_stampa)
{
if (stampo_liquidazione(_datareg.month()))
{
_t.temp("reg");
if (_tipo_stampa == 1)
send_message('L', _t, _datareg.month());
else send_message('l', _t, _datareg.month());
}
else //se chiamo la liquidazione con L o l mi calcola anche i progressivi
if (_tipo_stampa != 1)
{
TFilename app;
app.temp();
send_message('C', app, _datareg.month());
}
_t.temp("reg");
if (_tipo_stampa == 1)
send_message('L', _t, _datareg.month());
else send_message('l', _t, _datareg.month());
}
if (_scelta == prosegui_stampa)
{
@ -2447,14 +2462,11 @@ void CG4400_application::liq_other_case()
send_message('S', _t, _datareg.month());
else send_message('s', _t, _datareg.month());
}
if (_tipo_stampa != 1) //in stampa di prova i progressivi me li calcolo io!!!
{ //Why???
TFilename app;
app.temp();
send_message('C', app, _datareg.month());
}
TFilename app;
app.temp();
send_message('C', app, _datareg.month());
}
if (_scelta == no_liquidazione && _tipo_stampa != 1)
if (_scelta == no_liquidazione)
{
TFilename app;
app.temp();
@ -2484,9 +2496,12 @@ print_action CG4400_application::postprocess_page (int file, int counter)
printer().footerlen(0);
merge_export_file(_t,FALSE,TRUE);
_intesta_liq = FALSE;
<<<<<<< cg4400.cpp
=======
remove(_t);
>>>>>>> 1.57
}
//_t = NULL; Come ho potuto scrivere cio?!
_t = NULL;
}
}
}
@ -2531,7 +2546,7 @@ print_action CG4400_application::postprocess_page (int file, int counter)
bool CG4400_application::set_print(int n)
{
TMask m("cg4400a");
TMask m ("cg4400a");
int giorni_del_mese;
bool ok;
@ -2737,8 +2752,12 @@ void CG4400_application::no_movimenti()
printer().footerlen(0);
merge_export_file(f,FALSE,TRUE);
printer().formfeed();
<<<<<<< cg4400.cpp
_intesta_liq = FALSE;
=======
_intesta_liq = FALSE;
remove(f);
>>>>>>> 1.57
}
}
}
@ -2752,7 +2771,7 @@ bool CG4400_application::stampa_registri_IVA(const TMask& m)
bool ok = FALSE;
for (int i = 0; i < _ditte->items(); i++)
{
if (_selected[i])
if (_selected[(long)i])
{
bool msg = TRUE;
_ditta = _ditte->row(i).get_long(1);
@ -2876,8 +2895,7 @@ bool CG4400_application::stampa_registri_IVA(const TMask& m)
_ok_vidi = FALSE;
_stampa_mese = 13;
_scelta = controlla_b0(); //sul registro non va stampata la liq. ma comunque
//va richiamata per il calcolo progressivi (a seconda di b0)
//se non e' stampa di prova
//va richiamata per il calcolo progressivi (a seconda di b0)
ok = setta_mask(i);
if (!ok) continue;
@ -2943,8 +2961,8 @@ void CG4400_application::stampa_liq_mesi_succ()
TFilename t;
t.temp("iva");
if (_tipo_stampa == 1)
send_message('L',t, m); //prima era S ma non andava bene!
else send_message('l',t,m); //prima era s
send_message('S',t, m);
else send_message('s',t,m);
//TString80 nomef; nomef = t.path(); nomef << "\\" << t.name();
//if (fexist(nomef))
if (fexist(t))
@ -2953,8 +2971,12 @@ void CG4400_application::stampa_liq_mesi_succ()
if (m > da) printer().formfeed();
printer().footerlen(0);
merge_export_file(t,FALSE,TRUE);
<<<<<<< cg4400.cpp
_intesta_liq = FALSE;
=======
_intesta_liq = FALSE;
remove(t);
>>>>>>> 1.57
}
}
}

8
cg/cg4400.h
View File

@ -23,8 +23,7 @@
#include <clifo.h>
#include <occas.h>
#include <causali.h>
#include "cglib03.h"
#include "cglib04.h"
#include "cglib03.h"
#include "conto.h"
enum messaggio {
@ -48,8 +47,7 @@ class CG4400_application : public TPrintapp
TBit_array _selected;
TArray_sheet *_ditte;
TArray _nomiditte;
bool _st_liq[13];
bool _test;
bool _st_liq[13];
TRecnotype _nrec;
bool _mov_empty, _stampa_ind_ditta, _stampa_tutti_i_registri, _auto_intraf, _stampa;
bool _corrispettivi, _liquidazione, _riep_liq, _stampa_ind_comp, _esiste_riga_iva, _stampa_cred_pre;
@ -148,7 +146,7 @@ public:
virtual print_action postprocess_page (int, int);
virtual void preprocess_header();
CG4400_application() : TPrintapp(), _ditte(NULL), _selected(10000), _nomiditte(100), _test(FALSE) {}
CG4400_application() : TPrintapp(), _ditte(NULL), _selected(10000), _nomiditte(100) {}
virtual ~CG4400_application() {}
};

1
cg/cg4400a.uml
View File

@ -25,6 +25,7 @@ BEGIN
HELP "Anno di cui si vuole stampare il registro"
FLAGS "A"
WARNING "Inserire l'anno"
VALIDATE FIXLEN_FUNC 4
CHECKTYPE REQUIRED
END

138
cg/cg4500.cpp
View File

@ -260,17 +260,22 @@ bool CG4500_application::setta()
TConfig conf(CONFIG_DITTA);
_annop = conf.get("AnLiIv");
int aivap = atoi(conf.get("AnLiIv"));
TString anno ( format("%04d", aivap+1) );
//int aivap = atoi(conf.get("AnLiIv"));
//TString16 anno ( format("%04d", aivap+1) );
int aivap = atoi(_annop);
int anno = aivap+1;
TabLia.zero();
TabLia.put("CODTAB", format("%05ld%d", get_firm(), anno));
TabLia.zero();
TString16 chiave; chiave.format("%05ld%04d", get_firm(), anno);
TabLia.put("CODTAB",chiave);
if (TabLia.read() == NOERR)
m.set(F_FREQUENZA, TabLia.get("S7"));
else
{
TabLia.zero();
TabLia.put("CODTAB", format("%05ld%d", get_firm(), _annop));
TabLia.zero();
chiave = "";
chiave.format("%05ld%04d", get_firm(), aivap);
TabLia.put("CODTAB", chiave);
if (TabLia.read() == NOERR)
m.set(F_FREQUENZA, TabLia.get("S7"));
else
@ -378,12 +383,13 @@ bool CG4500_application::apertura_es()
TabReg.write(nuovo);
}
}
if (!ok)
{
error_box("Non esiste il registro libro giornale relativo all'es. precedente");
return FALSE;
}
/*
if (!ok)
{
error_box("Non esiste il registro libro giornale relativo all'es. precedente");
return FALSE;
}
*/
//viene aggiornata la tabella degli esercizi
TabEs.zero();
annonew = format ("%04d", _newanno);
@ -402,18 +408,42 @@ bool CG4500_application::apertura_iva()
TTable TabLia ("%LIA");
TTable TabLbu ("%LBU");
TLocalisamfile nditte (LF_NDITTE);
TString annoiva (4);
TDate data;
TString annoiva (4);
bool ok = FALSE;
if (!setta())
return FALSE;
//viene aggiornata la tabella del libro unico. Se esisteva gia' un record relativo al nuovo esercizio IVA, viene cancellato.
//In ogni caso ne viene creato uno nuovo relativo al nuovo esercizio.
annoiva = format ("%04d", _annoiva);
int annop = atoi(_annop);
annoiva = format("%04d", _annoiva);
//viene aggiornata la tabella LIA (liquidazione iva annuale)
TabLia.zero();
TabLia.put ("CODTAB", format("%05ld%04d", get_firm(), _annoiva));
if (TabLia.read() == NOERR)
TabLia.remove();
TabLia.zero();
TRectype newrec (TabLia.curr());
TabLia.put ("CODTAB", format("%05ld%04d", get_firm(), annop));
if (TabLia.read() == NOERR)
{
ok = TRUE;
newrec = TabLia.curr();
newrec.put("CODTAB", format("%05ld%04d", get_firm(), _annoiva));
newrec.put("S7", _frequenza);
TabLia.write(newrec);
}
if (!ok)
{
error_box("Non esiste il record relativo all'anno iva precedente sulla tabella liquidazione annuale iva");
return FALSE;
}
//viene aggiornata la tabella del libro unico.
TabLbu.zero();
TabLbu.put ("CODTAB", annoiva);
@ -425,9 +455,10 @@ bool CG4500_application::apertura_iva()
{
if (TabLbu.curr() != r) break;
TabLbu.remove();
TabLbu.remove();
}
ok = FALSE;
TabLbu.zero();
TRectype nrec (TabLbu.curr());
TabLbu.put ("CODTAB", _annop);
@ -440,9 +471,9 @@ bool CG4500_application::apertura_iva()
{
if (TabLbu.curr() != rec) break;
TRecnotype nr = TabLbu.recno();
TString cod_lib = TabLbu.get("CODTAB");
cod_lib = cod_lib.mid(4,3);
ok = TRUE;
nrec = TabLbu.curr();
TString16 cod;
@ -450,17 +481,18 @@ bool CG4500_application::apertura_iva()
nrec.put("CODTAB", cod);
nrec.put("I0", 0L);
TabLbu.write(nrec);
TabLbu.write(nrec);
TabLbu.readat(nr);
}
if (!ok)
{
error_box("Non esistono i registri del libro unico relativi all'anno iva precedente");
return FALSE;
}
/*
if (!ok)
{
error_box("Non esistono i registri del libro unico relativi all'anno iva precedente");
return FALSE;
}
*/
//viene aggiornata la tabella dei registri. Se esisteva gia' un record relativo al nuovo esercizio, viene cancellato.
//In ogni caso ne viene creato uno nuovo relativo al nuovo esercizio.
//viene aggiornata la tabella dei registri.
TabReg.zero();
TabReg.put ("CODTAB", annoiva);
@ -490,6 +522,7 @@ bool CG4500_application::apertura_iva()
{
if (TabReg.curr() != recc) break;
TRecnotype nr = TabReg.recno();
int tiporeg = TabReg.get_int("I0");
TString cod_reg = TabReg.get("CODTAB");
TDate data_vid = TabReg.get_date("D0");
@ -500,7 +533,7 @@ bool CG4500_application::apertura_iva()
ok = TRUE;
nuovo = TabReg.curr();
TString16 cod;
cod << _annoiva << cod_reg;
cod << annoiva << cod_reg;
nuovo.put("CODTAB", cod);
nuovo.put("I1", 0L);
nuovo.put("I2", 0L);
@ -515,43 +548,20 @@ bool CG4500_application::apertura_iva()
nuovo.put("R2", real(0.0));
TabReg.write(nuovo);
TabReg.readat(nr);
}
}
if (!ok)
{
error_box("Non esistono i registri iva relativi all'anno iva precedente");
return FALSE;
}
//viene aggiornata la tabella LIA (liquidazione iva annuale)
TabLia.zero();
TabLia.put ("CODTAB", format("%05ld%d", get_firm(), annoiva));
if (TabLia.read() == NOERR)
TabLia.remove();
/*
if (!ok)
{
error_box("Non esistono i registri iva relativi all'anno iva precedente");
return FALSE;
}
*/
ok = FALSE;
TabLia.zero();
TRectype newrec (TabLia.curr());
TabLia.put ("CODTAB", format("%05ld%d", get_firm(), _annop));
if (TabLia.read() == NOERR)
{
ok = TRUE;
newrec = TabLia.curr();
newrec.put("CODTAB", format("%05ld%d", get_firm(), annoiva));
newrec.put("S7", _frequenza);
TabLia.write(newrec);
}
if (!ok)
{
error_box("Non esiste il record relativo all'anno iva precedente sulla tabella liquidazione annuale iva");
return FALSE;
}
//viene aggiornato l'anno iva sui parametri ditta
TConfig conf(CONFIG_DITTA);
conf.set("AnLiIv", _annoiva);
conf.set("AnLiIv", annoiva);
//sull'anagrafica ditte viene aggiornata la frequenza versamento
nditte.zero();
@ -569,7 +579,7 @@ bool CG4500_application::apertura_iva()
int cg4500 (int argc, char* argv[])
{
CG4500_application main_app;
main_app.run(argc, argv, "");
main_app.run(argc, argv, "Apertura nuovo esercizio");
return TRUE;
}

11
cg/cg4500b.uml
View File

@ -1,17 +1,15 @@
#include "cg4500b.h"
PAGE "Apertura nuovo esercizio IVA" -1 -1 73 10
PAGE "Apertura esercizio IVA" -1 -1 73 10
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
PROMPT 2 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
END
@ -25,7 +23,8 @@ NUMBER F_ANNOIVA 4
BEGIN
PROMPT 2 4 "Nuovo anno esercizio IVA "
HELP "Anno di cui si vuole aprire un nuovo esercizio IVA"
CHECKTYPE REQUIRED
CHECKTYPE REQUIRED
VALIDATE FIXLEN_FUNC 4
//FLAGS "A"
END

17
cg/cg4600.cpp
View File

@ -22,7 +22,7 @@ bool mask_datac (TMask_field&, KEY);
bool mask_dataap (TMask_field&, KEY);
bool mask_distinti (TMask_field&, KEY);
#define MAX 200
#define MAX 99
class CG4600_application : public TApplication
{
@ -138,7 +138,7 @@ bool mask_dataap (TMask_field& f, KEY k)
TTable TabReg("REG");
int anno = 0;
TString annos (4);
bool ok = TRUE;
bool ok = TRUE;
if ( (k == K_ENTER) && f.to_check(k) )
{
@ -395,6 +395,7 @@ bool CG4600_application::set()
_sld->set_movprovv(FALSE);
_sld->set_movap(FALSE);
_pn->destroy_rows(_numreg); //Azzero l'oggetto pn.
costi ();
_sld->reset(); //Azzera la tabella dei conti dell'oggetto TSaldo_agg
@ -423,7 +424,9 @@ bool CG4600_application::set()
passivita();
_sld->reset();
chiusura_conto_patrimoniale();
message_box("Apertura/chiusura conti completata");
return TRUE;
} //K_ENTER
return FALSE;
@ -561,7 +564,7 @@ void CG4600_application::costi()
if (sezione == 'D') // ---> Tengo una variabile in cui salvo gli
{ // importi trovati sui saldi. Quando ho
sez_rmov = 'A'; // finito di leggere i sottoconti, oppure
tot_saldo += _saldo; // quando ho raggiunto un massimo di 200
tot_saldo += _saldo; // quando ho raggiunto un massimo di 99
_totale_saldo += _saldo;
} // righe di movimento, genero un' altra
else // riga con importo di sezione opposta
@ -692,7 +695,7 @@ void CG4600_application::ricavi()
if (sezione == 'D') // ---> Tengo una variabile in cui salvo gli
{ // importi trovati sui saldi. Quando ho
sez_rmov = 'A'; // finito di leggere i sottoconti, oppure
tot_saldo += _saldo; // quando ho raggiunto un massimo di 200
tot_saldo += _saldo; // quando ho raggiunto un massimo di 99
_totale_saldo += _saldo;
} // righe di movimento, genero un' altra
else // riga con importo di sezione opposta
@ -1014,7 +1017,7 @@ void CG4600_application::attivita()
if (sezione == 'D') // ---> Tengo una variabile in cui salvo gli
{ // importi trovati sui saldi. Quando ho
sez_rmov = 'A'; // finito di leggere i sottoconti, oppure
tot_saldo += _saldo; // quando ho raggiunto un massimo di 200
tot_saldo += _saldo; // quando ho raggiunto un massimo di 99
_totale_saldo += _saldo;
} // righe di movimento, genero un' altra
else // riga con importo di sezione opposta
@ -1200,7 +1203,7 @@ void CG4600_application::passivita()
if (sezione == 'D') // ---> Tengo una variabile in cui salvo gli
{ // importi trovati sui saldi. Quando ho
sez_rmov = 'A'; // finito di leggere i sottoconti, oppure
tot_saldo += _saldo; // quando ho raggiunto un massimo di 200
tot_saldo += _saldo; // quando ho raggiunto un massimo di 99
_totale_saldo += _saldo;
} // righe di movimento, genero un' altra
else // riga con importo di sezione opposta

407
cg/cg5100a.uml
View File

@ -25,6 +25,7 @@ BEGIN
PROMPT 2 1 "@bANNO LIQUIDAZIONE IVA "
HELP "Indicare l'anno dell'esercizio IVA corrente"
FIELD AnLiIv
VALIDATE FIXLEN_FUNC 4
END
BOOLEAN CHK_ANCFCM
@ -214,7 +215,7 @@ BEGIN
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS
COPY OUTPUT FLD_COCACH
CHECKTYPE NORMAL
CHECKTYPE NORMAL
ADD RUN cg0 -4
END
@ -241,7 +242,7 @@ BEGIN
INPUT DESCR FLD_DCOCAAP
COPY DISPLAY FLD_DCOCACH
COPY OUTPUT FLD_COCAAP
CHECKTYPE NORMAL
CHECKTYPE NORMAL
ADD RUN cg0 -4
END
@ -375,257 +376,257 @@ BEGIN
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSBIAPG GRUPPO
OUTPUT FLD_CSBIAPC CONTO
OUTPUT FLD_CSBIAPS SOTTOCONTO
OUTPUT FLD_DCSBIAP DESCR
INPUT GRUPPO FLD_CSBIAPG
INPUT CONTO FLD_CSBIAPC
INPUT SOTTOCONTO FLD_CSBIAPS
HELP ""
FIELD CsBiApG
ADD RUN cg0 -0
OUTPUT FLD_CSBIAPC CONTO
OUTPUT FLD_CSBIAPS SOTTOCONTO
OUTPUT FLD_DCSBIAP DESCR
INPUT GRUPPO FLD_CSBIAPG
INPUT CONTO FLD_CSBIAPC
INPUT SOTTOCONTO FLD_CSBIAPS
HELP ""
FIELD CsBiApG
ADD RUN cg0 -0
END
NUMBER FLD_CSBIAPC 3
BEGIN
PROMPT 33 12 ""
PROMPT 33 12 ""
HELP "Codice del conto di riepilogo del bilancio di apertura"
COPY ALL FLD_CSBIAPG
FIELD CsBiApC
ADD RUN cg0 -0
COPY ALL FLD_CSBIAPG
FIELD CsBiApC
ADD RUN cg0 -0
END
NUMBER FLD_CSBIAPS 6
BEGIN
PROMPT 40 12 ""
PROMPT 40 12 ""
HELP "Codice del conto di riepilogo del bilancio di apertura"
COPY USE FLD_CSBIAPG
COPY INPUT FLD_CSBIAPG
COPY DISPLAY FLD_CSBIAPG
OUTPUT FLD_CSBIAPG GRUPPO
OUTPUT FLD_CSBIAPC CONTO
OUTPUT FLD_CSBIAPS SOTTOCONTO
OUTPUT FLD_DCSBIAP DESCR
CHECKTYPE NORMAL
FIELD CsBiApS
ADD RUN cg0 -0
COPY USE FLD_CSBIAPG
COPY INPUT FLD_CSBIAPG
COPY DISPLAY FLD_CSBIAPG
OUTPUT FLD_CSBIAPG GRUPPO
OUTPUT FLD_CSBIAPC CONTO
OUTPUT FLD_CSBIAPS SOTTOCONTO
OUTPUT FLD_DCSBIAP DESCR
CHECKTYPE NORMAL
FIELD CsBiApS
ADD RUN cg0 -0
END
STRING FLD_DCSBIAP 50 25
BEGIN
PROMPT 50 12 ""
PROMPT 50 12 ""
HELP "Codice del conto di riepilogo del bilancio di apertura"
COPY USE FLD_DCSBICH
INPUT DESCR FLD_DCSBIAP
COPY DISPLAY FLD_DCSBICH
COPY OUTPUT FLD_CSBIAPG
ADD RUN cg0 -0
COPY USE FLD_DCSBICH
INPUT DESCR FLD_DCSBIAP
COPY DISPLAY FLD_DCSBICH
COPY OUTPUT FLD_CSBIAPG
ADD RUN cg0 -0
END
NUMBER FLD_CSUECPG 3
BEGIN
PROMPT 2 13 "Utile esercizio patrim. "
PROMPT 2 13 "Utile esercizio patrim. "
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSUECPG GRUPPO
OUTPUT FLD_CSUECPC CONTO
OUTPUT FLD_CSUECPS SOTTOCONTO
OUTPUT FLD_DCSUECP DESCR
INPUT GRUPPO FLD_CSUECPG
INPUT CONTO FLD_CSUECPC
INPUT SOTTOCONTO FLD_CSUECPS
FIELD CsUeCpG
ADD RUN cg0 -0
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSUECPG GRUPPO
OUTPUT FLD_CSUECPC CONTO
OUTPUT FLD_CSUECPS SOTTOCONTO
OUTPUT FLD_DCSUECP DESCR
INPUT GRUPPO FLD_CSUECPG
INPUT CONTO FLD_CSUECPC
INPUT SOTTOCONTO FLD_CSUECPS
FIELD CsUeCpG
ADD RUN cg0 -0
END
NUMBER FLD_CSUECPC 3
BEGIN
PROMPT 33 13 ""
PROMPT 33 13 ""
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
COPY ALL FLD_CSUECPG
FIELD CsUeCpC
ADD RUN cg0 -0
COPY ALL FLD_CSUECPG
FIELD CsUeCpC
ADD RUN cg0 -0
END
NUMBER FLD_CSUECPS 6
BEGIN
PROMPT 40 13 ""
PROMPT 40 13 ""
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
COPY USE FLD_CSUECPG
COPY INPUT FLD_CSUECPG
COPY DISPLAY FLD_CSUECPG
OUTPUT FLD_CSUECPG GRUPPO
OUTPUT FLD_CSUECPC CONTO
OUTPUT FLD_CSUECPS SOTTOCONTO
OUTPUT FLD_DCSUECP DESCR
CHECKTYPE NORMAL
FIELD CsUeCpS
ADD RUN cg0 -0
COPY USE FLD_CSUECPG
COPY INPUT FLD_CSUECPG
COPY DISPLAY FLD_CSUECPG
OUTPUT FLD_CSUECPG GRUPPO
OUTPUT FLD_CSUECPC CONTO
OUTPUT FLD_CSUECPS SOTTOCONTO
OUTPUT FLD_DCSUECP DESCR
CHECKTYPE NORMAL
FIELD CsUeCpS
ADD RUN cg0 -0
END
STRING FLD_DCSUECP 50 25
BEGIN
PROMPT 50 13 ""
PROMPT 50 13 ""
HELP "Codice del conto patrimoniale dell'utile d'esercizio"
COPY USE FLD_DCSBICH
INPUT DESCR FLD_DCSUECP
COPY DISPLAY FLD_DCSBICH
COPY OUTPUT FLD_CSUECPG
ADD RUN cg0 -0
COPY USE FLD_DCSBICH
INPUT DESCR FLD_DCSUECP
COPY DISPLAY FLD_DCSBICH
COPY OUTPUT FLD_CSUECPG
ADD RUN cg0 -0
END
NUMBER FLD_CSPECPG 3
BEGIN
PROMPT 2 14 "Perdita eserc. patrim. "
PROMPT 2 14 "Perdita eserc. patrim. "
HELP "Codice del conto patrimoniale della perdita d'esercizio"
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSPECPG GRUPPO
OUTPUT FLD_CSPECPC CONTO
OUTPUT FLD_CSPECPS SOTTOCONTO
OUTPUT FLD_DCSPECP DESCR
INPUT GRUPPO FLD_CSPECPG
INPUT CONTO FLD_CSPECPC
INPUT SOTTOCONTO FLD_CSPECPS
FIELD CsPeCpG
ADD RUN cg0 -0
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSPECPG GRUPPO
OUTPUT FLD_CSPECPC CONTO
OUTPUT FLD_CSPECPS SOTTOCONTO
OUTPUT FLD_DCSPECP DESCR
INPUT GRUPPO FLD_CSPECPG
INPUT CONTO FLD_CSPECPC
INPUT SOTTOCONTO FLD_CSPECPS
FIELD CsPeCpG
ADD RUN cg0 -0
END
NUMBER FLD_CSPECPC 3
BEGIN
PROMPT 33 14 ""
PROMPT 33 14 ""
HELP "Codice del conto patrimoniale della perdita d'esercizio"
COPY ALL FLD_CSPECPG
FIELD CsPeCpC
ADD RUN cg0 -0
COPY ALL FLD_CSPECPG
FIELD CsPeCpC
ADD RUN cg0 -0
END
NUMBER FLD_CSPECPS 6
BEGIN
PROMPT 40 14 ""
PROMPT 40 14 ""
HELP "Codice del conto patrimoniale della perdita d'esercizio"
COPY USE FLD_CSPECPG
COPY INPUT FLD_CSPECPG
COPY DISPLAY FLD_CSPECPG
OUTPUT FLD_CSPECPG GRUPPO
OUTPUT FLD_CSPECPC CONTO
OUTPUT FLD_CSPECPS SOTTOCONTO
OUTPUT FLD_DCSPECP DESCR
CHECKTYPE NORMAL
FIELD CsPeCpS
ADD RUN cg0 -0
COPY USE FLD_CSPECPG
COPY INPUT FLD_CSPECPG
COPY DISPLAY FLD_CSPECPG
OUTPUT FLD_CSPECPG GRUPPO
OUTPUT FLD_CSPECPC CONTO
OUTPUT FLD_CSPECPS SOTTOCONTO
OUTPUT FLD_DCSPECP DESCR
CHECKTYPE NORMAL
FIELD CsPeCpS
ADD RUN cg0 -0
END
STRING FLD_DCSPECP 50 25
BEGIN
PROMPT 50 14 ""
PROMPT 50 14 ""
HELP "Codice del conto patrimoniale della perdita d'esercizio"
COPY USE FLD_DCSBICH
INPUT DESCR FLD_DCSPECP
COPY DISPLAY FLD_DCSBICH
COPY OUTPUT FLD_CSPECPG
ADD RUN cg0 -0
COPY USE FLD_DCSBICH
INPUT DESCR FLD_DCSPECP
COPY DISPLAY FLD_DCSBICH
COPY OUTPUT FLD_CSPECPG
ADD RUN cg0 -0
END
NUMBER FLD_CSUECEG 3
BEGIN
PROMPT 2 15 "Utile esercizio econ. "
PROMPT 2 15 "Utile esercizio econ. "
HELP "Codice del conto economico dell'utile d'esercizio"
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSUECEG GRUPPO
OUTPUT FLD_CSUECEC CONTO
OUTPUT FLD_CSUECES SOTTOCONTO
OUTPUT FLD_DCSUECE DESCR
INPUT GRUPPO FLD_CSUECEG
INPUT CONTO FLD_CSUECEC
INPUT SOTTOCONTO FLD_CSUECES
FIELD CsUeCeG
ADD RUN cg0 -0
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSUECEG GRUPPO
OUTPUT FLD_CSUECEC CONTO
OUTPUT FLD_CSUECES SOTTOCONTO
OUTPUT FLD_DCSUECE DESCR
INPUT GRUPPO FLD_CSUECEG
INPUT CONTO FLD_CSUECEC
INPUT SOTTOCONTO FLD_CSUECES
FIELD CsUeCeG
ADD RUN cg0 -0
END
NUMBER FLD_CSUECEC 3
BEGIN
PROMPT 33 15 ""
PROMPT 33 15 ""
HELP "Codice del conto economico dell'utile d'esercizio"
COPY ALL FLD_CSUECEG
FIELD CsUeCeC
ADD RUN cg0 -0
COPY ALL FLD_CSUECEG
FIELD CsUeCeC
ADD RUN cg0 -0
END
NUMBER FLD_CSUECES 6
BEGIN
PROMPT 40 15 ""
PROMPT 40 15 ""
HELP "Codice del conto economico dell'utile d'esercizio"
COPY USE FLD_CSUECEG
COPY INPUT FLD_CSUECEG
COPY DISPLAY FLD_CSUECEG
OUTPUT FLD_CSUECEG GRUPPO
OUTPUT FLD_CSUECEC CONTO
OUTPUT FLD_CSUECES SOTTOCONTO
OUTPUT FLD_DCSUECE DESCR
CHECKTYPE NORMAL
FIELD CsUeCeS
ADD RUN cg0 -0
COPY USE FLD_CSUECEG
COPY INPUT FLD_CSUECEG
COPY DISPLAY FLD_CSUECEG
OUTPUT FLD_CSUECEG GRUPPO
OUTPUT FLD_CSUECEC CONTO
OUTPUT FLD_CSUECES SOTTOCONTO
OUTPUT FLD_DCSUECE DESCR
CHECKTYPE NORMAL
FIELD CsUeCeS
ADD RUN cg0 -0
END
STRING FLD_DCSUECE 50 25
BEGIN
PROMPT 50 15 ""
PROMPT 50 15 ""
HELP "Codice del conto economico dell'utile d'esercizio"
COPY USE FLD_DCSBICH
INPUT DESCR FLD_DCSUECE
COPY DISPLAY FLD_DCSBICH
COPY OUTPUT FLD_CSUECEG
ADD RUN cg0 -0
COPY USE FLD_DCSBICH
INPUT DESCR FLD_DCSUECE
COPY DISPLAY FLD_DCSBICH
COPY OUTPUT FLD_CSUECEG
ADD RUN cg0 -0
END
NUMBER FLD_CSPECEG 3
BEGIN
PROMPT 2 16 "Perdita eserc. econ. "
PROMPT 2 16 "Perdita eserc. econ. "
HELP "Codice del conto economico della perdita d'esercizio"
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSPECEG GRUPPO
OUTPUT FLD_CSPECEC CONTO
OUTPUT FLD_CSPECES SOTTOCONTO
OUTPUT FLD_DCSPECE DESCR
INPUT GRUPPO FLD_CSPECEG
INPUT CONTO FLD_CSPECEC
INPUT SOTTOCONTO FLD_CSPECES
FIELD CsPeCeG
ADD RUN cg0 -0
COPY USE FLD_CSBICHG
COPY DISPLAY FLD_CSBICHG
OUTPUT FLD_CSPECEG GRUPPO
OUTPUT FLD_CSPECEC CONTO
OUTPUT FLD_CSPECES SOTTOCONTO
OUTPUT FLD_DCSPECE DESCR
INPUT GRUPPO FLD_CSPECEG
INPUT CONTO FLD_CSPECEC
INPUT SOTTOCONTO FLD_CSPECES
FIELD CsPeCeG
ADD RUN cg0 -0
END
NUMBER FLD_CSPECEC 3
BEGIN
PROMPT 33 16 ""
PROMPT 33 16 ""
HELP "Codice del conto economico della perdita d'esercizio"
COPY ALL FLD_CSPECEG
FIELD CsPeCeC
ADD RUN cg0 -0
COPY ALL FLD_CSPECEG
FIELD CsPeCeC
ADD RUN cg0 -0
END
NUMBER FLD_CSPECES 6
BEGIN
PROMPT 40 16 ""
PROMPT 40 16 ""
HELP "Codice del conto economico della perdita d'esercizio"
COPY USE FLD_CSPECEG
COPY INPUT FLD_CSPECEG
COPY DISPLAY FLD_CSPECEG
OUTPUT FLD_CSPECEG GRUPPO
OUTPUT FLD_CSPECEC CONTO
OUTPUT FLD_CSPECES SOTTOCONTO
OUTPUT FLD_DCSPECE DESCR
CHECKTYPE NORMAL
FIELD CsPeCeS
ADD RUN cg0 -0
COPY USE FLD_CSPECEG
COPY INPUT FLD_CSPECEG
COPY DISPLAY FLD_CSPECEG
OUTPUT FLD_CSPECEG GRUPPO
OUTPUT FLD_CSPECEC CONTO
OUTPUT FLD_CSPECES SOTTOCONTO
OUTPUT FLD_DCSPECE DESCR
CHECKTYPE NORMAL
FIELD CsPeCeS
ADD RUN cg0 -0
END
STRING FLD_DCSPECE 50 25
BEGIN
PROMPT 50 16 ""
PROMPT 50 16 ""
HELP "Codice del conto economico della perdita d'esercizio"
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
INPUT DESCR FLD_DCSPECE
COPY DISPLAY FLD_DCSBICH
COPY OUTPUT FLD_CSPECEG
ADD RUN cg0 -0
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
INPUT DESCR FLD_DCSPECE
COPY DISPLAY FLD_DCSBICH
COPY OUTPUT FLD_CSPECEG
ADD RUN cg0 -0
END
@ -636,78 +637,78 @@ PAGE "Impostazione parametri ditta" -1 -1 77 8
GROUPBOX DLG_NULL 78 10
BEGIN
PROMPT 1 1 "Ratei/Risconti"
PROMPT 1 1 "Ratei/Risconti"
END
RADIOBUTTON LST_RRFRAM 16
BEGIN
PROMPT 3 2 ""
PROMPT 3 2 ""
HELP "Frequenza del calcolo dei ratei e risconti"
ITEM "A|Freq. Annuale"
ITEM "M|Freq. Mensile"
FIELD RrFrAm
ITEM "A|Freq. Annuale"
ITEM "M|Freq. Mensile"
FIELD RrFrAm
END
BOOLEAN CHK_RRMECO
BEGIN
PROMPT 26 3 "Mese Commerciale"
PROMPT 26 3 "Mese Commerciale"
HELP "Indicare se viene utilizzato nel calcolo il mese commerciale"
FIELD RrMeCo
FIELD RrMeCo
END
STRING FLD_RRCCRA 3
BEGIN
PROMPT 3 6 "Causale ratei "
PROMPT 3 6 "Causale ratei "
HELP "Codice causale dei ratei per movimento di contabilita'"
FLAGS "UZ"
USE LF_CAUSALI
INPUT CODCAUS FLD_RRCCRA
COPY DISPLAY FLD_COCACH
OUTPUT FLD_RRCCRA CODCAUS
FLAGS "UZ"
USE LF_CAUSALI
INPUT CODCAUS FLD_RRCCRA
COPY DISPLAY FLD_COCACH
OUTPUT FLD_RRCCRA CODCAUS
OUTPUT FLD_DRRCCRA DESCR
CHECKTYPE NORMAL
ADD RUN cg0 -4
FIELD RrCcRa
CHECKTYPE NORMAL
ADD RUN cg0 -4
FIELD RrCcRa
END
STRING FLD_DRRCCRA 50 48
BEGIN
PROMPT 26 6 ""
PROMPT 26 6 ""
HELP "Descrizione causale dei ratei per movimento di contabilita'"
USE LF_CAUSALI KEY 2
INPUT DESCR FLD_DRRCCRA
COPY DISPLAY FLD_DCOCACH
COPY OUTPUT FLD_RRCCRA
CHECKTYPE NORMAL
ADD RUN cg0 -4
USE LF_CAUSALI KEY 2
INPUT DESCR FLD_DRRCCRA
COPY DISPLAY FLD_DCOCACH
COPY OUTPUT FLD_RRCCRA
CHECKTYPE NORMAL
ADD RUN cg0 -4
END
STRING FLD_RRCCRI 3
BEGIN
PROMPT 3 8 "Causale risconti "
PROMPT 3 8 "Causale risconti "
HELP "Codice causale dei risconti per movimento di contabilita'"
FLAGS "UZ"
COPY USE FLD_RRCCRA
INPUT CODCAUS FLD_RRCCRI
COPY DISPLAY FLD_COCACH
OUTPUT FLD_RRCCRI CODCAUS
FLAGS "UZ"
COPY USE FLD_RRCCRA
INPUT CODCAUS FLD_RRCCRI
COPY DISPLAY FLD_COCACH
OUTPUT FLD_RRCCRI CODCAUS
OUTPUT FLD_DRRCCRI DESCR
CHECKTYPE NORMAL
ADD RUN cg0 -4
FIELD RrCcRi
CHECKTYPE NORMAL
ADD RUN cg0 -4
FIELD RrCcRi
END
STRING FLD_DRRCCRI 50 48
BEGIN
PROMPT 26 8 ""
PROMPT 26 8 ""
HELP "Descrizione causale dei risconti per movimento di contabilita'"
USE LF_CAUSALI KEY 2
INPUT DESCR FLD_DRRCCRI
COPY DISPLAY FLD_DCOCACH
COPY OUTPUT FLD_RRCCRI
CHECKTYPE NORMAL
ADD RUN cg0 -4
USE LF_CAUSALI KEY 2
INPUT DESCR FLD_DRRCCRI
COPY DISPLAY FLD_DCOCACH
COPY OUTPUT FLD_RRCCRI
CHECKTYPE NORMAL
ADD RUN cg0 -4
END
ENDPAGE