Correzioni alla lista movimenti

git-svn-id: svn://10.65.10.50/trunk@437 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1994-10-24 11:22:11 +00:00
parent 2004702a52
commit 52187dcf8f
2 changed files with 100 additions and 91 deletions

View File

@ -155,17 +155,17 @@ bool annoes(TMask_field& f, KEY k)
bool data_inizio(TMask_field& f, KEY k) bool data_inizio(TMask_field& f, KEY k)
{ {
CG3100_application & app = (CG3100_application&)main_app(); CG3100_application * app = (CG3100_application*)MainApp();
if (k == K_ENTER) if (k == K_ENTER)
{ {
int decidi; int decidi;
int anno = f.mask().get_int (F_ANNO); int anno = f.mask().get_int (F_ANNO);
TDate data = f.mask().get(F_DATAINI); TDate data = f.mask().get(F_DATAINI);
if (app._masc == "cg3100a") if (app->_masc == "cg3100a")
decidi = f.mask().get_int (F_DECIDI); decidi = f.mask().get_int (F_DECIDI);
if ( anno != 0 && ( (app._masc == "cg3100b") || if ( anno != 0 && ( (app->_masc == "cg3100b") ||
((app._masc == "cg3100a" ) && (decidi == 2)) ) ) ((app->_masc == "cg3100a" ) && (decidi == 2)) ) )
{ {
if (!data.ok()) //se la data e' vuota if (!data.ok()) //se la data e' vuota
f.mask().field(F_DATAINI).set(InizioEsercizio(anno)); f.mask().field(F_DATAINI).set(InizioEsercizio(anno));
@ -182,7 +182,7 @@ bool data_inizio(TMask_field& f, KEY k)
bool data_fine(TMask_field& f, KEY k) bool data_fine(TMask_field& f, KEY k)
{ {
CG3100_application & app = (CG3100_application&)main_app(); CG3100_application * app = (CG3100_application*)MainApp();
if (k == K_ENTER) if (k == K_ENTER)
{ {
@ -190,18 +190,18 @@ bool data_fine(TMask_field& f, KEY k)
int anno = f.mask().get_int (F_ANNO); int anno = f.mask().get_int (F_ANNO);
TDate dataini = f.mask().get(F_DATAINI); TDate dataini = f.mask().get(F_DATAINI);
TDate datafin = f.mask().get(F_DATAFIN); TDate datafin = f.mask().get(F_DATAFIN);
if (app._masc == "cg3100a") if (app->_masc == "cg3100a")
decidi = f.mask().get_int (F_DECIDI); decidi = f.mask().get_int (F_DECIDI);
if ( (app._masc == "cg3100b") || if ( (app->_masc == "cg3100b") ||
((app._masc == "cg3100a" ) && (decidi == 2)) ) ((app->_masc == "cg3100a" ) && (decidi == 2)) )
if ( dataini.ok() && datafin.ok() ) if ( dataini.ok() && datafin.ok() )
if (dataini > datafin) if (dataini > datafin)
{ {
f.error_box("La data iniziale non deve essere superiore alla data finale"); f.error_box("La data iniziale non deve essere superiore alla data finale");
return FALSE; return FALSE;
} }
if ( anno != 0 && ( (app._masc == "cg3100b") || if ( anno != 0 && ( (app->_masc == "cg3100b") ||
((app._masc == "cg3100a" ) && (decidi == 2)) ) ) ((app->_masc == "cg3100a" ) && (decidi == 2)) ) )
{ {
TDate fine = FineEsercizio(anno + 1); TDate fine = FineEsercizio(anno + 1);
if (fine == botime) if (fine == botime)
@ -411,31 +411,35 @@ const int CodiceRegistro (const char* cod, int anno)
bool filter_func_fatture (const TRelation * rel) bool filter_func_fatture (const TRelation * rel)
{ {
CG3100_application & app = (CG3100_application&)main_app(); CG3100_application * app = (CG3100_application*)MainApp();
int tipo_reg; int tipo_reg;
int ann_reg; int ann_reg;
TString cod_reg; TString cod_reg;
TLocalisamfile& mov = rel->lfile(LF_MOV); TLocalisamfile* mov = &(rel->lfile(LF_MOV));
TRectype from (mov.curr()); TRectype from (mov->curr());
TRectype to (mov.curr()); TRectype to (mov->curr());
ann_reg = mov.get_int (MOV_ANNOIVA); ann_reg = mov->get_int (MOV_ANNOIVA);
cod_reg = mov.get (MOV_REG); cod_reg = mov->get (MOV_REG);
tipo_reg = CodiceRegistro (cod_reg, ann_reg); tipo_reg = CodiceRegistro (cod_reg, ann_reg);
from.zero(); from.zero();
to.zero(); to.zero();
if (app._annoes != 0) //anno esercizio specificato nella maschera if (app->_annoes != 0) //anno esercizio specificato nella maschera
{ {
from.put(MOV_ANNOES, app._annoes); from.put(MOV_ANNOES, app->_annoes);
to.put(MOV_ANNOES, app._annoes); to.put(MOV_ANNOES, app->_annoes);
} }
from.put(MOV_TIPO, app._tipo_ini); if (app->_data_ini.ok())
if (app._codice_ini != 0) from.put(MOV_DATAREG, app->_data_ini);
from.put(MOV_CODCF, app._codice_ini); from.put(MOV_TIPO, app->_tipo_ini);
to.put(MOV_TIPO, app._tipo_fin); if (app->_codice_ini != 0)
if (app._codice_fin != 0) from.put(MOV_CODCF, app->_codice_ini);
to.put(MOV_CODCF, app._codice_fin); if (app->_data_fin.ok())
to.put(MOV_DATAREG, app->_data_fin);
to.put(MOV_TIPO, app->_tipo_fin);
if (app->_codice_fin != 0)
to.put(MOV_CODCF, app->_codice_fin);
if (((mov.curr() >= from) && (mov.curr() <= to)) && if (((mov->curr() >= from) && (mov->curr() <= to)) &&
((tipo_reg == 1) || (tipo_reg == 2))) ((tipo_reg == 1) || (tipo_reg == 2)))
return TRUE; return TRUE;
@ -444,47 +448,47 @@ bool filter_func_fatture (const TRelation * rel)
bool filter_func (const TRelation * rel) bool filter_func (const TRelation * rel)
{ {
CG3100_application & app = (CG3100_application&)main_app(); CG3100_application * app = (CG3100_application*)MainApp();
int tipo_reg, ann_reg; int tipo_reg, ann_reg;
TString cod_reg, causale; TString cod_reg, causale;
TLocalisamfile& mov = rel->lfile(LF_MOV); TLocalisamfile* mov = &(rel->lfile(LF_MOV));
TRectype from (mov.curr()); TRectype from (mov->curr());
TRectype to (mov.curr()); TRectype to (mov->curr());
switch (app._scelta_stampa) switch (app->_scelta_stampa)
{ {
case 0: case 0:
ann_reg = mov.get_int(MOV_ANNOIVA); ann_reg = mov->get_int(MOV_ANNOIVA);
causale = mov.get (MOV_CODCAUS); causale = mov->get (MOV_CODCAUS);
from.zero(); from.zero();
to.zero(); to.zero();
if ( (app._decidi == 2) && (app._annoes != 0) ) if ( (app->_decidi == 2) && (app->_annoes != 0) )
{ {
from.put(MOV_ANNOES, app._annoes); from.put(MOV_ANNOES, app->_annoes);
to.put(MOV_ANNOES, app._annoes); to.put(MOV_ANNOES, app->_annoes);
} }
from.put(MOV_CODCAUS, app._causale_ini); from.put(MOV_CODCAUS, app->_causale_ini);
to.put(MOV_CODCAUS, app._causale_fin); to.put(MOV_CODCAUS, app->_causale_fin);
from.put(MOV_REG, app._registro_ini); from.put(MOV_REG, app->_registro_ini);
to.put(MOV_REG, app._registro_fin); to.put(MOV_REG, app->_registro_fin);
if ((mov.curr() >= from) && (mov.curr() <= to)) if ((mov->curr() >= from) && (mov->curr() <= to))
return TRUE; return TRUE;
break; break;
case 1: case 1:
cod_reg = mov.get (MOV_REG); cod_reg = mov->get (MOV_REG);
ann_reg = mov.get_int (MOV_ANNOIVA); ann_reg = mov->get_int (MOV_ANNOIVA);
tipo_reg = CodiceRegistro(cod_reg, ann_reg); tipo_reg = CodiceRegistro(cod_reg, ann_reg);
causale = mov.get (MOV_CODCAUS); causale = mov->get (MOV_CODCAUS);
from.zero(); from.zero();
to.zero(); to.zero();
if ( (app._decidi == 2) && (app._annoes != 0) ) if ( (app->_decidi == 2) && (app->_annoes != 0) )
{ {
from.put(MOV_ANNOES, app._annoes); from.put(MOV_ANNOES, app->_annoes);
to.put(MOV_ANNOES, app._annoes); to.put(MOV_ANNOES, app->_annoes);
} }
from.put(MOV_CODCAUS, app._causale_ini); from.put(MOV_CODCAUS, app->_causale_ini);
to.put(MOV_CODCAUS, app._causale_fin); to.put(MOV_CODCAUS, app->_causale_fin);
if (((mov.curr() >= from) && (mov.curr() <= to)) && if (((mov->curr() >= from) && (mov->curr() <= to)) &&
((tipo_reg != 1) && (tipo_reg != 2))) ((tipo_reg != 1) && (tipo_reg != 2)))
return TRUE; return TRUE;
@ -708,9 +712,9 @@ bool CG3100_application::preprocess_page(int file,int counter)
//TDate data_corrente (current_cursor()->file(LF_MOV)->get_date(MOV_DATAREG)); //TDate data_corrente (current_cursor()->file(LF_MOV)->get_date(MOV_DATAREG));
_tiporegistro = CodiceRegistro(_registro, _anno); _tiporegistro = CodiceRegistro(_registro, _anno);
TLocalisamfile & fl = current_cursor()->file(LF_MOV); TLocalisamfile* fl = &(current_cursor()->file(LF_MOV));
TRectype da (fl.curr()); TRectype da (fl->curr());
TRectype a (fl.curr()); TRectype a (fl->curr());
da.zero(); da.zero();
a.zero(); a.zero();
if (_annoes != 0) if (_annoes != 0)
@ -723,7 +727,7 @@ bool CG3100_application::preprocess_page(int file,int counter)
a.put(MOV_CODCAUS, _causale_fin); a.put(MOV_CODCAUS, _causale_fin);
a.put(MOV_REG, _registro_fin); a.put(MOV_REG, _registro_fin);
if ((fl.curr() >= da) && (fl.curr() <= a)) if ((fl->curr() >= da) && (fl->curr() <= a))
//&&((_tiporegistro == 1)||(_tiporegistro == 2))) //&&((_tiporegistro == 1)||(_tiporegistro == 2)))
{ {
_caus->setkey(1); _caus->setkey(1);
@ -814,9 +818,9 @@ bool CG3100_application::preprocess_page(int file,int counter)
_anno = current_cursor()->curr(LF_MOV).get_int(MOV_ANNOES); _anno = current_cursor()->curr(LF_MOV).get_int(MOV_ANNOES);
_tipodoc = current_cursor()->curr(LF_MOV).get(MOV_TIPODOC); _tipodoc = current_cursor()->curr(LF_MOV).get(MOV_TIPODOC);
TLocalisamfile & fl = current_cursor()->file(LF_MOV); TLocalisamfile* fl = &(current_cursor()->file(LF_MOV));
TRectype da (fl.curr()); TRectype da (fl->curr());
TRectype a (fl.curr()); TRectype a (fl->curr());
da.zero(); da.zero();
a.zero(); a.zero();
if (_annoes != 0) if (_annoes != 0)
@ -827,7 +831,7 @@ bool CG3100_application::preprocess_page(int file,int counter)
da.put(MOV_CODCAUS, _causale_ini); da.put(MOV_CODCAUS, _causale_ini);
a.put(MOV_CODCAUS, _causale_fin); a.put(MOV_CODCAUS, _causale_fin);
if ((fl.curr() >= da) && (fl.curr() <= a)) if ((fl->curr() >= da) && (fl->curr() <= a))
/* /*
if ((_annoes == _anno) || (_annoes == 0)) if ((_annoes == _anno) || (_annoes == 0))
if ((_causale >= _causale_ini) && (_causale <= _causale_fin)) if ((_causale >= _causale_ini) && (_causale <= _causale_fin))
@ -1228,30 +1232,30 @@ int CG3100_application::my_next(TLocalisamfile & mov)
int tipo_reg; int tipo_reg;
int ann_reg; int ann_reg;
esito = mov.next(); esito = mov->next();
switch (_scelta_stampa) switch (_scelta_stampa)
{ {
case 0: case 0:
return esito; return esito;
case 1: case 1:
while (!mov.eof()) while (!mov->eof())
{ {
cod_reg = mov.get (MOV_REG); cod_reg = mov->get (MOV_REG);
ann_reg = mov.get_int (MOV_ANNOIVA); ann_reg = mov->get_int (MOV_ANNOIVA);
causale = mov.get (MOV_CODCAUS); causale = mov->get (MOV_CODCAUS);
if ( ( _annoes != 0l) if ( ( _annoes != 0l)
|| ( (causale < (const char*)_causale_ini) || (causale > (const char*)_causale_fin)) ) || ( (causale < (const char*)_causale_ini) || (causale > (const char*)_causale_fin)) )
{ {
esito=mov.next(); esito=mov->next();
continue; continue;
} }
tipo_reg = CodiceRegistro (cod_reg, ann_reg); tipo_reg = CodiceRegistro (cod_reg, ann_reg);
if ( (tipo_reg != 1) && (tipo_reg != 2) ) if ( (tipo_reg != 1) && (tipo_reg != 2) )
return esito; return esito;
esito=mov.next(); esito=mov->next();
} }
break; break;
@ -1283,8 +1287,9 @@ print_action CG3100_application::postprocess_print(int file,int count)
if ((_scelta_stampa == 0)&&(_controllo_mov_errati != 3)&&(_tot_dare != _tot_avere)) if ((_scelta_stampa == 0)&&(_controllo_mov_errati != 3)&&(_tot_dare != _tot_avere))
set_row(n++, "@11g%s", ERR_77); set_row(n++, "@11g%s", ERR_77);
TLocalisamfile & mov = current_cursor()->file(LF_MOV); TLocalisamfile* mov;
// nrec = mov.recno(); mov=current_cursor()->file(LF_MOV);
// nrec = mov->recno();
pos = current_cursor()->pos(); pos = current_cursor()->pos();
items = current_cursor()->items(); items = current_cursor()->items();
@ -1307,10 +1312,10 @@ print_action CG3100_application::postprocess_print(int file,int count)
// esito = my_next(mov); // esito = my_next(mov);
// if (esito == NOERR) // if (esito == NOERR)
// { // {
// long numrec = mov.get_long(MOV_NUMREG); // long numrec = mov->get_long(MOV_NUMREG);
// datarec = mov.get_date(MOV_DATAREG); // datarec = mov->get_date(MOV_DATAREG);
// } // }
// mov.readat(nrec); // mov->readat(nrec);
_tot_avere_giornaliero += _tot_avere; _tot_avere_giornaliero += _tot_avere;
_tot_dare_giornaliero += _tot_dare; _tot_dare_giornaliero += _tot_dare;
@ -1430,7 +1435,8 @@ bool CG3100_application::segnala_errori_ogniriga()
if ((_tiporegistro == 1)||(_tiporegistro == 2)) //movimento iva if ((_tiporegistro == 1)||(_tiporegistro == 2)) //movimento iva
{ {
long record, numreg; long record, numreg;
TLocalisamfile & rmoviva = current_cursor()->file(LF_RMOVIVA); TLocalisamfile* rmoviva = &(current_cursor()->file(LF_RMOVIVA))
;
_numreg = current_cursor()->file(LF_MOV).get_long(MOV_NUMREG); _numreg = current_cursor()->file(LF_MOV).get_long(MOV_NUMREG);
if (current_cursor()->is_first_match(LF_RMOVIVA)) if (current_cursor()->is_first_match(LF_RMOVIVA))
{ {
@ -1583,6 +1589,7 @@ bool CG3100_application::set_print(int m)
if (msk.run() != K_ENTER) return FALSE; if (msk.run() != K_ENTER) return FALSE;
reset_files(); reset_files();
TLocalisamfile* fl;
//_curr1->set_filterfunction (0); //_curr1->set_filterfunction (0);
_curr1->set_filterfunction (filter_func); _curr1->set_filterfunction (filter_func);
_curr2->set_filterfunction (filter_func); _curr2->set_filterfunction (filter_func);
@ -1612,9 +1619,9 @@ bool CG3100_application::set_print(int m)
if (!provvis) if (!provvis)
_curr1->setfilter("(PROVVIS=\"\")"); _curr1->setfilter("(PROVVIS=\"\")");
else _curr1->setfilter(""); else _curr1->setfilter("");
TLocalisamfile & fl = current_cursor()->file(LF_MOV); fl = &(current_cursor()->file(LF_MOV));
TRectype da (fl.curr()); TRectype da (fl->curr());
TRectype a (fl.curr()); TRectype a (fl->curr());
da.zero(); da.zero();
a.zero(); a.zero();
da.put(MOV_NUMREG, _numreg_ini); da.put(MOV_NUMREG, _numreg_ini);
@ -1631,9 +1638,9 @@ bool CG3100_application::set_print(int m)
_curr2->setfilter("(PROVVIS=\"\")"); _curr2->setfilter("(PROVVIS=\"\")");
else else
_curr2->setfilter(""); _curr2->setfilter("");
TLocalisamfile & fl = current_cursor()->file(LF_MOV); fl = &(current_cursor()->file(LF_MOV));
TRectype da (fl.curr()); TRectype da (fl->curr());
TRectype a (fl.curr()); TRectype a (fl->curr());
da.zero(); da.zero();
a.zero(); a.zero();
if (_data_ini.ok()) if (_data_ini.ok())
@ -1650,9 +1657,12 @@ bool CG3100_application::set_print(int m)
case fatture: case fatture:
{ {
TLocalisamfile & fl = current_cursor()->file(LF_MOV); fl = &(current_cursor()->file(LF_MOV));
TString tipo = msk.get(F_TIPOELENCO); TString tipo = msk.get(F_TIPOELENCO);
bool movprov = msk.get_bool(F_STAMPAMOVP); bool movprov = msk.get_bool(F_STAMPAMOVP);
_data_ini = msk.get(F_DATAINI);
_data_fin = msk.get(F_DATAFIN);
_annoes = msk.get_int(F_ANNO);
if (tipo=="C" || tipo=="F") if (tipo=="C" || tipo=="F")
{ {
_codice_ini = atol(msk.get(F_CODICEINI)); _codice_ini = atol(msk.get(F_CODICEINI));
@ -1679,8 +1689,8 @@ bool CG3100_application::set_print(int m)
if (!movprov) if (!movprov)
_curr3->setfilter("(PROVVIS=\"\")"); _curr3->setfilter("(PROVVIS=\"\")");
else _curr3->setfilter(""); else _curr3->setfilter("");
TRectype da (fl.curr()); TRectype da (fl->curr());
TRectype a (fl.curr()); TRectype a (fl->curr());
da.zero(); da.zero();
a.zero(); a.zero();
if (_codice_ini != 0) if (_codice_ini != 0)
@ -1688,10 +1698,12 @@ bool CG3100_application::set_print(int m)
a.put(MOV_TIPO, _tipo_fin); a.put(MOV_TIPO, _tipo_fin);
if (_codice_fin != 0) if (_codice_fin != 0)
a.put(MOV_CODCF, _codice_fin); a.put(MOV_CODCF, _codice_fin);
/*
if (_data_ini.ok()) if (_data_ini.ok())
da.put(MOV_DATAREG, _data_ini); da.put(MOV_DATAREG, _data_ini);
if (_data_fin.ok()) if (_data_fin.ok())
a.put(MOV_DATAREG, _data_fin); a.put(MOV_DATAREG, _data_fin);
*/
da.put(MOV_TIPO, _tipo_ini); da.put(MOV_TIPO, _tipo_ini);
current_cursor()->setregion(da,a); current_cursor()->setregion(da,a);
add_file(LF_MOV); add_file(LF_MOV);
@ -1701,7 +1713,6 @@ bool CG3100_application::set_print(int m)
break; break;
case movimenti_sezionale: case movimenti_sezionale:
break; break;
@ -1727,8 +1738,8 @@ void CG3100_application::user_create()
_relmov2->add(LF_RMOV, "NUMREG=NUMREG",1); _relmov2->add(LF_RMOV, "NUMREG=NUMREG",1);
_relmov2->add(LF_RMOVIVA, "NUMREG=NUMREG",1); _relmov2->add(LF_RMOVIVA, "NUMREG=NUMREG",1);
_relmov3->add(LF_RMOVIVA, "NUMREG=NUMREG",1); _relmov3->add(LF_RMOVIVA, "NUMREG==NUMREG",1);
_relmov3->add(LF_RMOV, "NUMREG=NUMREG",1); _relmov3->add(LF_RMOV, "NUMREG==NUMREG",1);
_curr1 = new TCursor (_relmov1, "", 1); _curr1 = new TCursor (_relmov1, "", 1);
_curr2 = new TCursor (_relmov2, "", 2); _curr2 = new TCursor (_relmov2, "", 2);

View File

@ -46,9 +46,9 @@ BEGIN
PROMPT 30 3 "Scelta stampa " PROMPT 30 3 "Scelta stampa "
HELP "Indicare il tipo di stampa" HELP "Indicare il tipo di stampa"
ITEM "0|Lista movimenti" ITEM "0|Lista movimenti"
MESSAGE SHOW,F_CONTROLLO|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI|HIDE,1@|RESET,1@|HIDE,F_STAMPA|RESET,F_STAMPA MESSAGE SHOW,F_CONTROLLO|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI|HIDE,1@|RESET,1@
ITEM "1|Lista movimenti di sola prima nota" ITEM "1|Lista movimenti di sola prima nota"
MESSAGE HIDE,F_CONTROLLO|RESET,F_CONTROLLO|HIDE,1@|RESET,1@|HIDE,F_REGISTROFIN|RESET,F_REGISTROFIN|HIDE,F_REGISTROINI|RESET,F_REGISTROINI|HIDE,F_STAMPA|RESET,F_STAMPA MESSAGE HIDE,F_CONTROLLO|RESET,F_CONTROLLO|HIDE,1@|RESET,1@|HIDE,F_REGISTROFIN|RESET,F_REGISTROFIN|HIDE,F_REGISTROINI|RESET,F_REGISTROINI
END END
@ -56,9 +56,9 @@ LIST F_CONTROLLO 21
BEGIN BEGIN
PROMPT 2 7 "Controllo movimenti errati " PROMPT 2 7 "Controllo movimenti errati "
HELP "La scelta 1 stampa solo le registrazioni non errate; la scelta 2 permette di listare tutte le registrazioni inserite, segnalando quelle errate; la scelta 3 stampa solo le registrazioni errate" HELP "La scelta 1 stampa solo le registrazioni non errate; la scelta 2 permette di listare tutte le registrazioni inserite, segnalando quelle errate; la scelta 3 stampa solo le registrazioni errate"
ITEM "3|No" MESSAGE HIDE,1@|RESET,1@|HIDE,F_STAMPA|RESET,F_STAMPA ITEM "3|No" MESSAGE HIDE,1@|RESET,1@
ITEM "2|Si" MESSAGE SHOW,1@|SHOW,F_STAMPA ITEM "2|Si" MESSAGE SHOW,1@
ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@|SHOW,F_STAMPA ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@
END END
TEXT DLG_NULL TEXT DLG_NULL
@ -158,7 +158,6 @@ BEGIN
PROMPT 2 15 "Stampa dal registro iva " PROMPT 2 15 "Stampa dal registro iva "
USE REG SELECT I0<"3" USE REG SELECT I0<"3"
//INPUT CODTAB[1,5] F_ANNO SELECT //INPUT CODTAB[1,5] F_ANNO SELECT
//INPUT CODTAB[1,5] ""
INPUT CODTAB[5,7] F_REGISTROINI INPUT CODTAB[5,7] F_REGISTROINI
DISPLAY "Anno" CODTAB[1,4] DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Cod. registro iva" CODTAB[5,7] DISPLAY "Cod. registro iva" CODTAB[5,7]
@ -174,7 +173,6 @@ BEGIN
PROMPT 40 15 "al reg. iva " PROMPT 40 15 "al reg. iva "
COPY USE F_REGISTROINI COPY USE F_REGISTROINI
//INPUT CODTAB[1,5] F_ANNO SELECT //INPUT CODTAB[1,5] F_ANNO SELECT
//INPUT CODTAB[1,5] ""
INPUT CODTAB[5,7] F_REGISTROFIN INPUT CODTAB[5,7] F_REGISTROFIN
DISPLAY "Anno" CODTAB[1,4] DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Cod. registro iva" CODTAB[5,7] DISPLAY "Cod. registro iva" CODTAB[5,7]