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

Corretta gestione ricerca registri nelle causali

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@624 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-11-15 11:22:16 +00:00
parent af2a5b0337
commit cbfb9ffe34
11 changed files with 608 additions and 600 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
cg/cg0500.cpp
View File

@ -91,7 +91,6 @@ protected:
// int cancella(long items); // int cancella(long items);
public: public:
bool _forcedCopy;
tipo_descr _tipo_des; // Il tipo di causale corrente tipo_descr _tipo_des; // Il tipo di causale corrente
void compila_array (const TString&, int, int, int); void compila_array (const TString&, int, int, int);
@ -184,7 +183,6 @@ void TCaus_app::causale_vendite()
if (_tipo_des == vendita) if (_tipo_des == vendita)
return; return;
clear_descr();
_tipo_des = vendita; _tipo_des = vendita;
int i=0; int i=0;
@ -197,7 +195,6 @@ void TCaus_app::causale_vendite()
set_descr(i++, "C Imp. non soggetti"); set_descr(i++, "C Imp. non soggetti");
set_descr(i++, "C Ritenute fiscali"); set_descr(i++, "C Ritenute fiscali");
set_descr(i++, "C Ritenute soc."); set_descr(i++, "C Ritenute soc.");
carica_righe_libere();
} }
@ -206,7 +203,6 @@ void TCaus_app::causale_acquisti()
if (_tipo_des == acquisto) if (_tipo_des == acquisto)
return; return;
clear_descr();
_tipo_des = acquisto; _tipo_des = acquisto;
int i=0; int i=0;
@ -219,7 +215,6 @@ void TCaus_app::causale_acquisti()
set_descr(i++, "C Imp. non soggetti"); set_descr(i++, "C Imp. non soggetti");
set_descr(i++, "C Ritenute fiscali"); set_descr(i++, "C Ritenute fiscali");
set_descr(i++, "C Ritenute soc."); set_descr(i++, "C Ritenute soc.");
carica_righe_libere();
} }
void TCaus_app::causale_ritenute() void TCaus_app::causale_ritenute()
@ -227,14 +222,12 @@ void TCaus_app::causale_ritenute()
if (_tipo_des == ritenuta_occas) if (_tipo_des == ritenuta_occas)
return; return;
clear_descr();
_tipo_des = ritenuta_occas; _tipo_des = ritenuta_occas;
int i=0; int i=0;
set_descr (i++, "Costo"); set_descr (i++, "Costo");
set_descr (i++, "Cassa/banca"); set_descr (i++, "Cassa/banca");
set_descr (i++, "Erario"); set_descr (i++, "Erario");
carica_righe_libere();
} }
void TCaus_app::causale_inc_pag() void TCaus_app::causale_inc_pag()
@ -244,7 +237,6 @@ void TCaus_app::causale_inc_pag()
if (_tipo_des == tipo_des) if (_tipo_des == tipo_des)
return; return;
clear_descr();
_tipo_des = tipo_des; _tipo_des = tipo_des;
int i=0; int i=0;
@ -261,7 +253,6 @@ void TCaus_app::causale_inc_pag()
set_descr ( i++, "C Ritenute fiscali"); set_descr ( i++, "C Ritenute fiscali");
if (_tipo_des == incasso_pagamento_gesval) if (_tipo_des == incasso_pagamento_gesval)
set_descr (i++, "C Differenza cambio"); set_descr (i++, "C Differenza cambio");
carica_righe_libere();
} }
//////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////
@ -613,41 +604,23 @@ bool TCaus_app::sottoconto_hndl(TMask_field& f, KEY k)
void TCaus_app::compila_array(const TString& tpd, int tpm, int tpr, int m770) void TCaus_app::compila_array(const TString& tpd, int tpm, int tpr, int m770)
{ {
_forcedCopy = FALSE; clear_descr();
if (tpd.empty() || tpd == "IN" || tpd == "AN" || tpd == "PG") if (tpd.empty() || tpd == "IN" || tpd == "AN" || tpd == "PG")
{ {
if (saldaconto()) switch (tpm)
{ {
switch (tpm) { case 3:
case 3: case 5:
case 5: case 6:
case 6: if (saldaconto())
causale_inc_pag(); causale_inc_pag();
break; break;
case 0: case 0:
if (m770 == 6) if (m770 == 6)
{ causale_ritenute();
causale_ritenute(); default:
} break;
else
{
_forcedCopy = TRUE;
clear_descr();
carica_righe_libere();
}
break;
default:
_forcedCopy = TRUE;
clear_descr();
carica_righe_libere();
break;
}
}
else
{ // NO saldaconto
_forcedCopy = TRUE;
clear_descr();
carica_righe_libere();
} }
} }
else // C'e' il tipodoc. else // C'e' il tipodoc.
@ -657,13 +630,8 @@ void TCaus_app::compila_array(const TString& tpd, int tpm, int tpr, int m770)
else else
if (tpr == 2) if (tpr == 2)
causale_acquisti(); causale_acquisti();
else
{
_forcedCopy = TRUE;
clear_descr();
carica_righe_libere();
}
} }
carica_righe_libere();
} }
@ -895,7 +863,7 @@ void TCaus_app::read_firm_params()
_saldaconto = conf.get_bool("GesSal"); _saldaconto = conf.get_bool("GesSal");
_valuta = conf.get_bool("GesVal"); _valuta = conf.get_bool("GesVal");
_anno_iva = (int)conf.get_long("AnLiIv", "cg"); _anno_iva = (int)conf.get_long("AnLiIv", "cg");
if (_anno_iva < 1900) if (_anno_iva < 1800)
{ {
_anno_iva = TDate(TODAY).year(); _anno_iva = TDate(TODAY).year();
error_box("Nei parametri ditta manca l'anno liquidazione IVA: assumo %d", _anno_iva); error_box("Nei parametri ditta manca l'anno liquidazione IVA: assumo %d", _anno_iva);
@ -938,8 +906,6 @@ bool TCaus_app::user_create()
cs.sheet_mask().set_handler(SS_SOTTOCONTO+100, sottoconto_hndl); cs.sheet_mask().set_handler(SS_SOTTOCONTO+100, sottoconto_hndl);
cs.sheet_mask().set_handler(SS_SOTTOCONTO+200, sottoconto_hndl); cs.sheet_mask().set_handler(SS_SOTTOCONTO+200, sottoconto_hndl);
_forcedCopy = FALSE;
return TRUE; return TRUE;
} }

2
cg/cg0500a.uml
View File

@ -143,7 +143,7 @@ END
NUMBER F_ANNOES 4 NUMBER F_ANNOES 4
BEGIN BEGIN
PROMPT 2 5 "" PROMPT 2 5 ""
FLAGS "H" FLAGS "AH"
END END
NUMBER F_TIPO_REG 1 NUMBER F_TIPO_REG 1

3
cg/cg2100.cpp
View File

@ -290,7 +290,6 @@ void TPrimanota_application::init_mask(TMask& m)
read_caus(NULL, 0); // Setta campi obbligatori read_caus(NULL, 0); // Setta campi obbligatori
fill_sheet(m); fill_sheet(m);
const bool intra = _causale.intra();
const bool valintra = _causale.valintra(); const bool valintra = _causale.valintra();
const bool corrisp = _causale.corrispettivi(); const bool corrisp = _causale.corrispettivi();
@ -311,7 +310,7 @@ void TPrimanota_application::init_mask(TMask& m)
m.send_key(K_SHIFT+K_CTRL+forg, -2); // GROUP 2 (fornitori) m.send_key(K_SHIFT+K_CTRL+forg, -2); // GROUP 2 (fornitori)
if (corrisp) m.hide(F_STATOPAIV); if (corrisp) m.hide(F_STATOPAIV);
m.show(F_CORRLIRE, intra); m.show(F_CORRLIRE, valintra);
m.show(F_CORRVALUTA, valintra); m.show(F_CORRVALUTA, valintra);
m.show(F_CODIVA, m.mode() == MODE_INS); m.show(F_CODIVA, m.mode() == MODE_INS);
} }

28
cg/cg2100i.uml
View File

@ -35,8 +35,6 @@ BEGIN
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
// ANDREA E' ARRIVATO FINO A QUESTO PUNTO
NUMBER F_ANNOES 4 NUMBER F_ANNOES 4
BEGIN BEGIN
PROMPT 52 2 "Esercizio " PROMPT 52 2 "Esercizio "
@ -47,6 +45,7 @@ END
DATE F_DATADOC DATE F_DATADOC
BEGIN BEGIN
PROMPT 1 3 "Data del documento " PROMPT 1 3 "Data del documento "
HELP "Data del documento che ha generato il movimento"
FIELD LF_MOV->DATADOC FIELD LF_MOV->DATADOC
WARNING "Specificare la data del documento" WARNING "Specificare la data del documento"
END END
@ -54,6 +53,7 @@ END
STRING F_NUMDOC 7 STRING F_NUMDOC 7
BEGIN BEGIN
PROMPT 52 3 "Documento n. " PROMPT 52 3 "Documento n. "
HELP "Numero del documento che ha generato il movimento"
FIELD LF_MOV->NUMDOC FIELD LF_MOV->NUMDOC
WARNING "Specificare il numero documento" WARNING "Specificare il numero documento"
END END
@ -61,6 +61,7 @@ END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 1 4 "Descrizione documento " PROMPT 1 4 "Descrizione documento "
HELP "Descrizione del documento che ha generato il movimento"
FIELD LF_MOV->DESCR FIELD LF_MOV->DESCR
END END
@ -88,6 +89,7 @@ END
LIST I_SEZIONE1 1 8 LIST I_SEZIONE1 1 8
BEGIN BEGIN
PROMPT 1 7 "Riga 1 " PROMPT 1 7 "Riga 1 "
HELP "Sezione del conto della prima riga"
ITEM "D|Dare" ITEM "D|Dare"
ITEM "A|Avere" ITEM "A|Avere"
END END
@ -95,6 +97,7 @@ END
NUMBER F_TOTALE 15 NUMBER F_TOTALE 15
BEGIN BEGIN
PROMPT 18 7 "" PROMPT 18 7 ""
HELP "Importo del conto di prima riga"
FIELD LF_MOV->TOTDOC FIELD LF_MOV->TOTDOC
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
@ -114,6 +117,7 @@ END
NUMBER F_GRUPPOCLIFO 3 NUMBER F_GRUPPOCLIFO 3
BEGIN BEGIN
PROMPT 51 7 "" PROMPT 51 7 ""
HELP "Codice del conto di prima riga"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Gruppo assente" WARNING "Gruppo assente"
END END
@ -121,6 +125,7 @@ END
NUMBER F_CONTOCLIFO 3 NUMBER F_CONTOCLIFO 3
BEGIN BEGIN
PROMPT 57 7 "" PROMPT 57 7 ""
HELP "Codice del conto di prima riga"
USE LF_PCON SELECT SOTTOCONTO=="" USE LF_PCON SELECT SOTTOCONTO==""
INPUT GRUPPO F_GRUPPOCLIFO INPUT GRUPPO F_GRUPPOCLIFO
INPUT CONTO F_CONTOCLIFO INPUT CONTO F_CONTOCLIFO
@ -136,6 +141,7 @@ END
NUMBER F_CLIENTE 6 NUMBER F_CLIENTE 6
BEGIN BEGIN
PROMPT 65 7 "" PROMPT 65 7 ""
HELP "Codice del conto di prima riga"
FIELD LF_MOV->CODCF FIELD LF_MOV->CODCF
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF "C" INPUT TIPOCF "C"
@ -151,6 +157,7 @@ END
NUMBER F_FORNITORE 6 NUMBER F_FORNITORE 6
BEGIN BEGIN
PROMPT 65 7 "" PROMPT 65 7 ""
HELP "Codice del conto di prima riga"
FIELD LF_MOV->CODCF FIELD LF_MOV->CODCF
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF "F" INPUT TIPOCF "F"
@ -166,6 +173,7 @@ END
NUMBER I_SOTTOCONTO 6 NUMBER I_SOTTOCONTO 6
BEGIN BEGIN
PROMPT 65 7 "" PROMPT 65 7 ""
HELP "Codice del conto di prima riga"
USE LF_PCON SELECT SOTTOCONTO != "" USE LF_PCON SELECT SOTTOCONTO != ""
INPUT SOTTOCONTO I_SOTTOCONTO INPUT SOTTOCONTO I_SOTTOCONTO
INPUT GRUPPO F_GRUPPOCLIFO INPUT GRUPPO F_GRUPPOCLIFO
@ -185,6 +193,7 @@ END
LIST I_SEZIONE2 1 8 LIST I_SEZIONE2 1 8
BEGIN BEGIN
PROMPT 1 8 "Riga 2 " PROMPT 1 8 "Riga 2 "
HELP "Sezione del conto della prima riga"
ITEM "D|Dare" ITEM "D|Dare"
ITEM "A|Avere" ITEM "A|Avere"
END END
@ -192,6 +201,7 @@ END
NUMBER I_IMPORTO2 15 NUMBER I_IMPORTO2 15
BEGIN BEGIN
PROMPT 18 8 "" PROMPT 18 8 ""
HELP "Importo del conto di seconda riga"
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
@ -206,16 +216,19 @@ END
NUMBER I_GRUPPO2 3 NUMBER I_GRUPPO2 3
BEGIN BEGIN
PROMPT 51 8 "" PROMPT 51 8 ""
HELP "Codice del conto di seconda riga"
END END
NUMBER I_CONTO2 3 NUMBER I_CONTO2 3
BEGIN BEGIN
PROMPT 57 8 "" PROMPT 57 8 ""
HELP "Codice del conto di seconda riga"
END END
NUMBER I_SOTTOCONTO2 6 NUMBER I_SOTTOCONTO2 6
BEGIN BEGIN
PROMPT 65 8 "" PROMPT 65 8 ""
HELP "Codice del conto di seconda riga"
COPY USE I_SOTTOCONTO COPY USE I_SOTTOCONTO
INPUT GRUPPO I_GRUPPO2 INPUT GRUPPO I_GRUPPO2
INPUT CONTO I_CONTO2 INPUT CONTO I_CONTO2
@ -234,6 +247,7 @@ END
LIST I_SEZIONE3 1 8 LIST I_SEZIONE3 1 8
BEGIN BEGIN
PROMPT 1 9 "Riga 3 " PROMPT 1 9 "Riga 3 "
HELP "Sezione del conto di terza riga"
ITEM "D|Dare" ITEM "D|Dare"
ITEM "A|Avere" ITEM "A|Avere"
END END
@ -241,6 +255,7 @@ END
NUMBER I_IMPORTO3 15 NUMBER I_IMPORTO3 15
BEGIN BEGIN
PROMPT 18 9 "" PROMPT 18 9 ""
HELP "Importo del conto di terza riga"
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
@ -255,16 +270,19 @@ END
NUMBER I_GRUPPO3 3 NUMBER I_GRUPPO3 3
BEGIN BEGIN
PROMPT 51 9 "" PROMPT 51 9 ""
HELP "Codice del conto di terza riga"
END END
NUMBER I_CONTO3 3 NUMBER I_CONTO3 3
BEGIN BEGIN
PROMPT 57 9 "" PROMPT 57 9 ""
HELP "Codice del conto di terza riga"
END END
NUMBER I_SOTTOCONTO3 6 NUMBER I_SOTTOCONTO3 6
BEGIN BEGIN
PROMPT 65 9 "" PROMPT 65 9 ""
HELP "Codice del conto di terza riga"
COPY USE I_SOTTOCONTO COPY USE I_SOTTOCONTO
INPUT GRUPPO I_GRUPPO3 INPUT GRUPPO I_GRUPPO3
INPUT CONTO I_CONTO3 INPUT CONTO I_CONTO3
@ -281,6 +299,7 @@ END
LIST I_SEZIONE4 1 8 LIST I_SEZIONE4 1 8
BEGIN BEGIN
PROMPT 1 10 "Riga 4 " PROMPT 1 10 "Riga 4 "
HELP "Sezione del conto di quarta riga"
ITEM "D|Dare" ITEM "D|Dare"
ITEM "A|Avere" ITEM "A|Avere"
END END
@ -288,6 +307,7 @@ END
NUMBER I_IMPORTO4 15 NUMBER I_IMPORTO4 15
BEGIN BEGIN
PROMPT 18 10 "" PROMPT 18 10 ""
HELP "Importo del conto di quarta riga"
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
@ -302,16 +322,19 @@ END
NUMBER I_GRUPPO4 3 NUMBER I_GRUPPO4 3
BEGIN BEGIN
PROMPT 51 10 "" PROMPT 51 10 ""
HELP "Codice del conto di quarta riga"
END END
NUMBER I_CONTO4 3 NUMBER I_CONTO4 3
BEGIN BEGIN
PROMPT 57 10 "" PROMPT 57 10 ""
HELP "Codice del conto di quarta riga"
END END
NUMBER I_SOTTOCONTO4 6 NUMBER I_SOTTOCONTO4 6
BEGIN BEGIN
PROMPT 65 10 "" PROMPT 65 10 ""
HELP "Codice del conto di quarta riga"
COPY USE I_SOTTOCONTO COPY USE I_SOTTOCONTO
INPUT GRUPPO I_GRUPPO4 INPUT GRUPPO I_GRUPPO4
INPUT CONTO I_CONTO4 INPUT CONTO I_CONTO4
@ -341,4 +364,3 @@ ENDPAGE
ENDMASK ENDMASK

10
cg/cg2100o.uml
View File

@ -40,18 +40,21 @@ END
STRING O_INDIRIZZO 40 STRING O_INDIRIZZO 40
BEGIN BEGIN
PROMPT 2 4 "Indirizzo " PROMPT 2 4 "Indirizzo "
HELP "Indirizzo di residenza della persona"
FIELD INDIR FIELD INDIR
END END
STRING O_NUMERO 6 STRING O_NUMERO 6
BEGIN BEGIN
PROMPT 55 4 "Numero " PROMPT 55 4 "Numero "
HELP "Numero civico della residenza della persona"
FIELD CIV FIELD CIV
END END
STRING O_STATO 3 STRING O_STATO 3
BEGIN BEGIN
PROMPT 2 5 "Stato " PROMPT 2 5 "Stato "
HELP "Stato di residenza della persona"
FIELD STATO FIELD STATO
FLAGS "U" FLAGS "U"
USE %STA USE %STA
@ -65,6 +68,7 @@ END
STRING O_COMUNE 4 STRING O_COMUNE 4
BEGIN BEGIN
PROMPT 27 5 "Comune " PROMPT 27 5 "Comune "
HELP "Codice del comune di residenza della persona"
FIELD COM FIELD COM
FLAGS "U" FLAGS "U"
USE LF_COMUNI USE LF_COMUNI
@ -81,12 +85,14 @@ END
NUMBER O_CAP 5 NUMBER O_CAP 5
BEGIN BEGIN
PROMPT 56 5 "C.A.P. " PROMPT 56 5 "C.A.P. "
HELP "CAP della residenza della persona"
FIELD CAP FIELD CAP
END END
STRING O_DENCOM 50 STRING O_DENCOM 50
BEGIN BEGIN
PROMPT 2 6 "Denominazione " PROMPT 2 6 "Denominazione "
HELP "Nome del comune di residenza della persona"
USE LF_COMUNI KEY 2 USE LF_COMUNI KEY 2
INPUT DENCOM O_DENCOM INPUT DENCOM O_DENCOM
DISPLAY "Denominazione@50" DENCOM DISPLAY "Denominazione@50" DENCOM
@ -111,12 +117,14 @@ END
DATE O_DATANAS DATE O_DATANAS
BEGIN BEGIN
PROMPT 23 9 "Data " PROMPT 23 9 "Data "
HELP "Data di nascita della persona"
FIELD DNASC FIELD DNASC
END END
STRING O_STATONAS 3 STRING O_STATONAS 3
BEGIN BEGIN
PROMPT 41 9 "Stato " PROMPT 41 9 "Stato "
HELP "Codice dello stato di nascita della persona"
FIELD STATONASC FIELD STATONASC
FLAGS "U" FLAGS "U"
COPY USE O_STATO COPY USE O_STATO
@ -129,6 +137,7 @@ END
STRING O_COMUNENAS 4 STRING O_COMUNENAS 4
BEGIN BEGIN
PROMPT 55 9 "Comune " PROMPT 55 9 "Comune "
HELP "Codice del comune di nascita della persona"
FIELD COMNASC FIELD COMNASC
FLAGS "U" FLAGS "U"
COPY USE O_COMUNE COPY USE O_COMUNE
@ -143,6 +152,7 @@ END
STRING O_DENCOMNAS 50 STRING O_DENCOMNAS 50
BEGIN BEGIN
PROMPT 2 10 "Denominazione " PROMPT 2 10 "Denominazione "
HELP "Nome del comune di nascita della persona"
COPY USE O_DENCOM COPY USE O_DENCOM
INPUT DENCOM O_DENCOMNAS INPUT DENCOM O_DENCOMNAS
COPY DISPLAY O_DENCOM COPY DISPLAY O_DENCOM

7
cg/cg2102.cpp
View File

@ -1004,18 +1004,21 @@ bool TPrimanota_application::iva_sottoconto_handler(TMask_field& f, KEY key)
if (!suspended_handler(f, key)) if (!suspended_handler(f, key))
return FALSE; return FALSE;
if (key == K_TAB && f.dirty() && !app().causale().corrispettivi()) if (key == K_TAB && f.dirty())
{ {
const TLocalisamfile& piano = ((TEdit_field&)f).browse()->cursor()->file(); const TLocalisamfile& piano = ((TEdit_field&)f).browse()->cursor()->file();
int spric = piano.get_int("TIPOSPRIC"); int spric = piano.get_int("TIPOSPRIC");
if (spric == 2 || spric == 3) if ((spric == 2 || spric == 3) && !app().causale().corrispettivi())
{ {
const TFixed_string td(app().causale().tipo_doc()); const TFixed_string td(app().causale().tipo_doc());
if (td == "FV" || td == "NC") spric = 4; if (td == "FV" || td == "NC") spric = 4;
} }
/*
TMask_field& s = f.mask().field(105); TMask_field& s = f.mask().field(105);
if (app().iva() == iva_vendite || s.get().empty()) if (app().iva() == iva_vendite || s.get().empty())
s.set(spric > 0 ? format("%d", spric) : ""); s.set(spric > 0 ? format("%d", spric) : "");
*/
f.mask().set(105, spric > 0 ? format("%d", spric) : "");
} }
return TRUE; return TRUE;
} }

1
cg/cg21iva.uml
View File

@ -127,6 +127,7 @@ BEGIN
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "C/R" TIPOCR
OUTPUT 109 SOTTOCONTO OUTPUT 109 SOTTOCONTO
OUTPUT 107 GRUPPO OUTPUT 107 GRUPPO
OUTPUT 108 CONTO OUTPUT 108 CONTO

2
cg/cg2200a.uml
View File

@ -10,6 +10,7 @@ END
DATE F_FROMDATE DATE F_FROMDATE
BEGIN BEGIN
PROMPT 2 2 "Data " PROMPT 2 2 "Data "
HELP "Data del primo movimento provvisorio da eliminare"
USE LF_MOV KEY 2 SELECT PROVVIS="P" USE LF_MOV KEY 2 SELECT PROVVIS="P"
INPUT DATAREG F_FROMDATE INPUT DATAREG F_FROMDATE
INPUT NUMREG F_FROMREG INPUT NUMREG F_FROMREG
@ -32,6 +33,7 @@ END
GROUPBOX DLG_NULL 40 3 GROUPBOX DLG_NULL 40 3
BEGIN BEGIN
PROMPT 1 4 "Al movimento" PROMPT 1 4 "Al movimento"
HELP "Data dell'ultimo movimento provvisorio da eliminare"
END END
DATE F_TODATE DATE F_TODATE

480
cg/cg4200.cpp
View File

@ -1,240 +1,240 @@
#include <applicat.h> #include <applicat.h>
#include <lffiles.h> #include <isam.h>
#include <mask.h> #include <mask.h>
#include <isam.h>
#include <pconti.h> #include <pconti.h>
#include <assoc.h> #include <assoc.h>
#include <urldefid.h> #include <urldefid.h>
#include <prefix.h> #include <prefix.h>
#include "cg4.h" #include "cg4.h"
#include "cg4200.h" #include "cg4200.h"
class TCopia_archivi : public TApplication class TCopia_archivi : public TApplication
{ {
TMask* _msk; TMask* _msk;
long _default_firm; long _default_firm;
virtual bool create() ; virtual bool create() ;
virtual bool destroy() ; virtual bool destroy() ;
bool menu(MENU_TAG); bool menu(MENU_TAG);
bool copyfile(int logicnum, long from, long to); bool copyfile(int logicnum, long from, long to);
void clearivd(long to); void clearivd(long to);
void copyivd(long from, long to); void copyivd(long from, long to);
public: public:
TCopia_archivi() : _msk(NULL) {} TCopia_archivi() : _msk(NULL) {}
}; };
bool TCopia_archivi::copyfile(int logicnum, long from, long to) bool TCopia_archivi::copyfile(int logicnum, long from, long to)
{ {
if (from > 0) set_firm(from); if (from > 0) set_firm(from);
else prefhndl->set("com"); else prefhndl->set("com");
TSystemisamfile file(logicnum); TSystemisamfile file(logicnum);
TFilename t; t.tempdir(); t << "/tr" << logicnum; TFilename t; t.tempdir(); t << "/tr" << logicnum;
if (file.dump(t) != NOERR) if (file.dump(t) != NOERR)
return error_box("Impossibile leggere i dati da copiare errore n. %d", file.status()); return error_box("Impossibile leggere i dati da copiare errore n. %d", file.status());
set_firm(to); set_firm(to);
TFilename s; s.tempdir(); s << "/sv" << logicnum; TFilename s; s.tempdir(); s << "/sv" << logicnum;
if (file.dump(s) != NOERR) if (file.dump(s) != NOERR)
return error_box("Impossibile salvare i dati originali errore n. %d", file.status()); return error_box("Impossibile salvare i dati originali errore n. %d", file.status());
TDir dir; TDir dir;
dir.get(logicnum, _lock, _nordir, _sysdirop); dir.get(logicnum, _lock, _nordir, _sysdirop);
dir.eod() = 0L; dir.eod() = 0L;
dir.put(logicnum, _nordir, _sysdirop); dir.put(logicnum, _nordir, _sysdirop);
file.packindex(); file.packindex();
if (file.load(t) != NOERR) if (file.load(t) != NOERR)
{ {
error_box("Impossibile scrivere i dati errore n. %d. Cerco di ripristinare i dati originali.", file.status()); error_box("Impossibile scrivere i dati errore n. %d. Cerco di ripristinare i dati originali.", file.status());
dir.get(logicnum, _lock, _nordir, _sysdirop); dir.get(logicnum, _lock, _nordir, _sysdirop);
dir.eod() = 0L; dir.eod() = 0L;
dir.put(logicnum, _nordir, _sysdirop); dir.put(logicnum, _nordir, _sysdirop);
file.packindex(); file.packindex();
if (file.load(s)) if (file.load(s))
error_box("Impossibile scrivere i dati originali errore n. %d", file.status()); error_box("Impossibile scrivere i dati originali errore n. %d", file.status());
return FALSE; return FALSE;
} }
return TRUE; return TRUE;
} }
void TCopia_archivi::clearivd(long to) void TCopia_archivi::clearivd(long to)
{ {
TLocalisamfile pcon(LF_PCON); TLocalisamfile pcon(LF_PCON);
for (pcon.first(); pcon.good(); pcon.next()) for (pcon.first(); pcon.good(); pcon.next())
{ {
pcon.put(PCN_SEZIVD, "0"); pcon.put(PCN_SEZIVD, "0");
pcon.zero(PCN_LETTIVD); pcon.zero(PCN_LETTIVD);
pcon.zero(PCN_NUMRIVD); pcon.zero(PCN_NUMRIVD);
pcon.zero(PCN_NUMIVD); pcon.zero(PCN_NUMIVD);
pcon.put(PCN_SEZIVDOPP, "0"); pcon.put(PCN_SEZIVDOPP, "0");
pcon.zero(PCN_LETTIVDOPP); pcon.zero(PCN_LETTIVDOPP);
pcon.zero(PCN_NUMRIVDOPP); pcon.zero(PCN_NUMRIVDOPP);
pcon.zero(PCN_NUMIVDOPP); pcon.zero(PCN_NUMIVDOPP);
pcon.rewrite(); pcon.rewrite();
} }
} }
void TCopia_archivi::copyivd(long from, long to) void TCopia_archivi::copyivd(long from, long to)
{ {
if (from > 0) set_firm(from); if (from > 0) set_firm(from);
else prefhndl->set("com"); else prefhndl->set("com");
TLocalisamfile pcon(LF_PCON); TLocalisamfile pcon(LF_PCON);
TAssoc_array riclass; TAssoc_array riclass;
for (pcon.first(); pcon.good(); pcon.next()) for (pcon.first(); pcon.good(); pcon.next())
{ {
TString16 key; TString16 key;
TToken_string data; TToken_string data;
key.format("%03d%03d%06ld", pcon.get_int(PCN_GRUPPO), key.format("%03d%03d%06ld", pcon.get_int(PCN_GRUPPO),
pcon.get_int(PCN_CONTO), pcon.get_long(PCN_SOTTOCONTO)); pcon.get_int(PCN_CONTO), pcon.get_long(PCN_SOTTOCONTO));
data.add(pcon.get(PCN_SEZIVD)); data.add(pcon.get(PCN_SEZIVD));
data.add(pcon.get(PCN_LETTIVD)); data.add(pcon.get(PCN_LETTIVD));
data.add(pcon.get(PCN_NUMRIVD)); data.add(pcon.get(PCN_NUMRIVD));
data.add(pcon.get(PCN_NUMIVD)); data.add(pcon.get(PCN_NUMIVD));
data.add(pcon.get(PCN_SEZIVDOPP)); data.add(pcon.get(PCN_SEZIVDOPP));
data.add(pcon.get(PCN_LETTIVDOPP)); data.add(pcon.get(PCN_LETTIVDOPP));
data.add(pcon.get(PCN_NUMRIVDOPP)); data.add(pcon.get(PCN_NUMRIVDOPP));
data.add(pcon.get(PCN_NUMIVDOPP)); data.add(pcon.get(PCN_NUMIVDOPP));
riclass.add(key, data); riclass.add(key, data);
} }
set_firm(to); set_firm(to);
for (pcon.first(); pcon.good(); pcon.next()) for (pcon.first(); pcon.good(); pcon.next())
{ {
TString16 key; TString16 key;
key.format("%03d%03d%06ld", pcon.get_int(PCN_GRUPPO), key.format("%03d%03d%06ld", pcon.get_int(PCN_GRUPPO),
pcon.get_int(PCN_CONTO), pcon.get_long(PCN_SOTTOCONTO)); pcon.get_int(PCN_CONTO), pcon.get_long(PCN_SOTTOCONTO));
TToken_string * data = (TToken_string *) riclass.objptr(key); TToken_string * data = (TToken_string *) riclass.objptr(key);
if (data == NULL) if (data == NULL)
{ {
pcon.put(PCN_SEZIVD, "0"); pcon.put(PCN_SEZIVD, "0");
pcon.zero(PCN_LETTIVD); pcon.zero(PCN_LETTIVD);
pcon.zero(PCN_NUMRIVD); pcon.zero(PCN_NUMRIVD);
pcon.zero(PCN_NUMIVD); pcon.zero(PCN_NUMIVD);
pcon.put(PCN_SEZIVDOPP, "0"); pcon.put(PCN_SEZIVDOPP, "0");
pcon.zero(PCN_LETTIVDOPP); pcon.zero(PCN_LETTIVDOPP);
pcon.zero(PCN_NUMRIVDOPP); pcon.zero(PCN_NUMRIVDOPP);
pcon.zero(PCN_NUMIVDOPP); pcon.zero(PCN_NUMIVDOPP);
} }
else else
{ {
pcon.put(PCN_SEZIVD, data->get(0)); pcon.put(PCN_SEZIVD, data->get(0));
pcon.put(PCN_LETTIVD, data->get()); pcon.put(PCN_LETTIVD, data->get());
pcon.put(PCN_NUMRIVD, data->get()); pcon.put(PCN_NUMRIVD, data->get());
pcon.put(PCN_NUMIVD, data->get()); pcon.put(PCN_NUMIVD, data->get());
pcon.put(PCN_SEZIVDOPP, data->get()); pcon.put(PCN_SEZIVDOPP, data->get());
pcon.put(PCN_LETTIVDOPP, data->get()); pcon.put(PCN_LETTIVDOPP, data->get());
pcon.put(PCN_NUMRIVDOPP, data->get()); pcon.put(PCN_NUMRIVDOPP, data->get());
pcon.put(PCN_NUMIVDOPP, data->get()); pcon.put(PCN_NUMIVDOPP, data->get());
} }
pcon.rewrite(); pcon.rewrite();
} }
} }
bool TCopia_archivi::create() bool TCopia_archivi::create()
{ {
_msk = new TMask("cg4200a") ; _msk = new TMask("cg4200a") ;
_default_firm = get_firm(); _default_firm = get_firm();
dispatch_e_menu(BAR_ITEM(1)); dispatch_e_menu(BAR_ITEM(1));
return TRUE; return TRUE;
} }
bool TCopia_archivi::destroy() bool TCopia_archivi::destroy()
{ {
if (_msk != NULL) delete _msk; if (_msk != NULL) delete _msk;
return TRUE; return TRUE;
} }
bool TCopia_archivi::menu(MENU_TAG) bool TCopia_archivi::menu(MENU_TAG)
{ {
while (_msk->run() == K_ENTER) while (_msk->run() == K_ENTER)
{ {
const long from_firm = _msk->get_long(F_FROMFIRM); const long from_firm = _msk->get_long(F_FROMFIRM);
const long to_firm = _msk->get_long(F_TOFIRM); const long to_firm = _msk->get_long(F_TOFIRM);
const bool copy_pcon = _msk->get_bool(F_PCON); const bool copy_pcon = _msk->get_bool(F_PCON);
const bool copy_causali = _msk->get_bool(F_CAUS); const bool copy_causali = _msk->get_bool(F_CAUS);
const bool copy_clifo = _msk->get_bool(F_CLIFO); const bool copy_clifo = _msk->get_bool(F_CLIFO);
const bool copy_ivd = _msk->get_bool(F_IVD); const bool copy_ivd = _msk->get_bool(F_IVD);
if (copy_pcon || copy_causali || copy_clifo || copy_ivd) if (copy_pcon || copy_causali || copy_clifo || copy_ivd)
{ {
if (prefhndl->exist(to_firm)) if (prefhndl->exist(to_firm))
{ {
set_firm(to_firm); set_firm(to_firm);
TLocalisamfile mov(LF_MOV); TLocalisamfile mov(LF_MOV);
if ((mov.eod() == 0) || (!copy_pcon && !copy_causali && !copy_clifo)) if ((mov.eod() == 0) || (!copy_pcon && !copy_causali && !copy_clifo))
{ {
TString mess("Attenzione "); TString mess("Attenzione ");
int count = 0; int count = 0;
if (copy_pcon) if (copy_pcon)
{ {
mess << "il piano dei conti"; mess << "il piano dei conti";
count++; count++;
} }
if (copy_causali) if (copy_causali)
{ {
if (count > 0) mess << ","; if (count > 0) mess << ",";
mess << " le causali"; mess << " le causali";
count++; count++;
} }
if (copy_clifo) if (copy_clifo)
{ {
if (count > 0) mess << ","; if (count > 0) mess << ",";
mess << " i clienti e fornitori"; mess << " i clienti e fornitori";
count++; count++;
} }
if (copy_ivd) if (copy_ivd)
{ {
if (count > 0) mess << ","; if (count > 0) mess << ",";
mess << " la riclassificazione IV direttiva"; mess << " la riclassificazione IV direttiva";
count++; count++;
} }
mess << " della ditta " << to_firm; mess << " della ditta " << to_firm;
if (count > 1) if (count > 1)
mess << " saranno sovrascritti"; mess << " saranno sovrascritti";
else else
mess << " sara' sovrascritto"; mess << " sara' sovrascritto";
mess << ". Devo continuare"; mess << ". Devo continuare";
if (yesno_box((const char *) mess)) if (yesno_box((const char *) mess))
{ {
if (copy_pcon) if (copy_pcon)
{ {
if (copyfile(LF_PCON, from_firm, to_firm) && !copy_ivd) if (copyfile(LF_PCON, from_firm, to_firm) && !copy_ivd)
clearivd(to_firm); clearivd(to_firm);
} }
if (copy_causali) if (copy_causali)
{ {
if (copyfile(LF_CAUSALI, from_firm, to_firm)) if (copyfile(LF_CAUSALI, from_firm, to_firm))
copyfile(LF_RCAUSALI, from_firm, to_firm); copyfile(LF_RCAUSALI, from_firm, to_firm);
} }
if (copy_clifo) if (copy_clifo)
copyfile(LF_CLIFO, from_firm, to_firm); copyfile(LF_CLIFO, from_firm, to_firm);
if (!copy_pcon && copy_ivd) if (!copy_pcon && copy_ivd)
copyivd(from_firm, to_firm); copyivd(from_firm, to_firm);
} }
} }
else error_box("La copia si puo' effettuare solo se non sono stati registrati movimenti"); else error_box("La copia si puo' effettuare solo se non sono stati registrati movimenti");
set_firm(_default_firm); set_firm(_default_firm);
} }
else error_box("Gli archivi della ditta %d non sono stati ancora generati",to_firm); else error_box("Gli archivi della ditta %d non sono stati ancora generati",to_firm);
_msk->reset(); _msk->reset();
} }
} }
return FALSE; return FALSE;
} }
int cg4200(int argc, char** argv) int cg4200(int argc, char* argv[])
{ {
TCopia_archivi a ; TCopia_archivi a ;
a.run(argc, argv, "Copia archivi"); a.run(argc, argv, "Copia archivi");
return 0; return 0;
} }

241
cg/cg4200a.uml
View File

@ -1,118 +1,123 @@
#include "cg4200.h" #include "cg4200.h"
PAGE "Copia da ditta a ditta" -1 -1 78 16 PAGE "Copia da ditta a ditta" -1 -1 78 16
GROUPBOX DLG_NULL 76 6 GROUPBOX DLG_NULL 76 6
BEGIN BEGIN
PROMPT 1 1 "Copia da" PROMPT 1 1 "Copia da"
END END
RADIOBUTTON F_FROMTYPE 60 RADIOBUTTON F_FROMTYPE 60
BEGIN BEGIN
PROMPT 13 2 "" PROMPT 13 2 ""
ITEMS "C|Archivi Comuni" HELP "Indicare il tipo di archivi da copiare"
MESSAGE CLEAR,F_FROMFIRM|CLEAR,F_DFROMFIRM ITEMS "C|Archivi Comuni"
ITEMS "D|Archivi Ditta" MESSAGE CLEAR,F_FROMFIRM|CLEAR,F_DFROMFIRM
MESSAGE ENABLE,F_FROMFIRM|ENABLE,F_DFROMFIRM ITEMS "D|Archivi Ditta"
FLAGS "Z" MESSAGE ENABLE,F_FROMFIRM|ENABLE,F_DFROMFIRM
END FLAGS "Z"
END
NUMBER F_FROMFIRM 5
BEGIN NUMBER F_FROMFIRM 5
PROMPT 4 5 "Ditta " BEGIN
FLAGS "R" PROMPT 4 5 "Ditta "
USE LF_NDITTE KEY 1 FLAGS "R"
CHECKTYPE NORMAL USE LF_NDITTE KEY 1
INPUT CODDITTA F_FROMFIRM CHECKTYPE NORMAL
DISPLAY "Codice" CODDITTA INPUT CODDITTA F_FROMFIRM
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Codice" CODDITTA
OUTPUT F_FROMFIRM CODDITTA DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_DFROMFIRM RAGSOC OUTPUT F_FROMFIRM CODDITTA
HELP "Codice della ditta da cui prelevare i dati" OUTPUT F_DFROMFIRM RAGSOC
WARNING "Ditta assente" HELP "Codice della ditta da cui prelevare i dati"
END WARNING "Ditta assente"
END
STRING F_DFROMFIRM 50
BEGIN STRING F_DFROMFIRM 50
PROMPT 20 5 "" BEGIN
USE LF_NDITTE KEY 2 PROMPT 20 5 ""
CHECKTYPE NORMAL USE LF_NDITTE KEY 2
INPUT RAGSOC F_DFROMFIRM CHECKTYPE NORMAL
DISPLAY "Ragione sociale @50" RAGSOC INPUT RAGSOC F_DFROMFIRM
DISPLAY "Codice" CODDITTA DISPLAY "Ragione sociale @50" RAGSOC
COPY OUTPUT F_FROMFIRM DISPLAY "Codice" CODDITTA
HELP "Ragione sociale della ditta da cui prelevare i dati" COPY OUTPUT F_FROMFIRM
WARNING "Ditta assente" HELP "Ragione sociale della ditta da cui prelevare i dati"
END WARNING "Ditta assente"
END
GROUPBOX DLG_NULL 76 3
BEGIN GROUPBOX DLG_NULL 76 3
PROMPT 1 7 "Copia su" BEGIN
END PROMPT 1 7 "Copia su"
END
NUMBER F_TOFIRM 5
BEGIN NUMBER F_TOFIRM 5
PROMPT 4 8 "Ditta " BEGIN
FLAGS "FR" PROMPT 4 8 "Ditta "
COPY USE F_FROMFIRM FLAGS "FR"
CHECKTYPE REQUIRED COPY USE F_FROMFIRM
INPUT CODDITTA F_TOFIRM CHECKTYPE REQUIRED
DISPLAY "Codice" CODDITTA INPUT CODDITTA F_TOFIRM
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Codice" CODDITTA
OUTPUT F_TOFIRM CODDITTA DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_DTOFIRM RAGSOC OUTPUT F_TOFIRM CODDITTA
HELP "Codice della ditta su cui duplicare i dati" OUTPUT F_DTOFIRM RAGSOC
WARNING "Ditta assente" HELP "Codice della ditta su cui duplicare i dati"
END WARNING "Ditta assente"
END
STRING F_DTOFIRM 50
BEGIN STRING F_DTOFIRM 50
PROMPT 20 8 "" BEGIN
COPY USE F_DFROMFIRM PROMPT 20 8 ""
CHECKTYPE NORMAL COPY USE F_DFROMFIRM
INPUT RAGSOC F_DTOFIRM CHECKTYPE NORMAL
COPY DISPLAY F_DFROMFIRM INPUT RAGSOC F_DTOFIRM
COPY OUTPUT F_TOFIRM COPY DISPLAY F_DFROMFIRM
HELP "Descrizione della ditta su cui duplicare i dati" COPY OUTPUT F_TOFIRM
WARNING "Ditta assente" HELP "Ragione sociale della ditta su cui duplicare i dati"
END WARNING "Ditta assente"
END
GROUPBOX DLG_NULL 76 4
BEGIN GROUPBOX DLG_NULL 76 4
PROMPT 1 10 "Archivi da duplicare" BEGIN
END PROMPT 1 10 "Archivi da duplicare"
END
BOOLEAN F_PCON
BEGIN BOOLEAN F_PCON
PROMPT 4 11 "Piano dei conti" BEGIN
END PROMPT 4 11 "Piano dei conti"
HELP "Indicare se duplicare l'archivio piano dei conti"
BOOLEAN F_CAUS END
BEGIN
PROMPT 34 11 "Causali" BOOLEAN F_CAUS
END BEGIN
PROMPT 34 11 "Causali"
BOOLEAN F_CLIFO HELP "Indicare se duplicare l'archivio causali"
BEGIN END
PROMPT 54 11 "Clienti/Fornitori"
END BOOLEAN F_CLIFO
BEGIN
BOOLEAN F_IVD PROMPT 54 11 "Clienti/Fornitori"
BEGIN HELP "Indicare se duplicare l'archivio clienti/fornitori"
PROMPT 4 12 "IV Direttiva C.E.E." END
END
BOOLEAN F_IVD
BUTTON DLG_OK 9 2 BEGIN
BEGIN PROMPT 4 12 "IV Direttiva C.E.E."
PROMPT -12 -1 "" HELP "Indicare se duplicare l'archivio IV Direttiva C.E.E."
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -12 -1 ""
MESSAGE EXIT,K_QUIT END
END
BUTTON DLG_QUIT 9 2
ENDPAGE BEGIN
PROMPT -22 -1 ""
ENDMASK MESSAGE EXIT,K_QUIT
END
ENDPAGE
ENDMASK

370
cg/cg5300a.uml
View File

@ -1,185 +1,185 @@
#include "cg5300a.h" #include "cg5300a.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Parametri liquidazione" -1 -1 78 15 PAGE "Parametri liquidazione" -1 -1 78 15
GROUPBOX DLG_NULL 71 3 GROUPBOX DLG_NULL 71 3
BEGIN BEGIN
PROMPT 4 0 "Ditta" PROMPT 4 0 "Ditta"
FLAGS "R" FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 6 1 "Codice " PROMPT 6 1 "Codice "
FLAGS "DFGR" FLAGS "DFGR"
USE LF_NDITTE USE LF_NDITTE
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 20 1 "" PROMPT 20 1 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_YEAR 4 NUMBER F_YEAR 4
BEGIN BEGIN
PROMPT 6 3 "Anno " PROMPT 6 3 "Anno "
HELP "Anno d'esercizio ??????" HELP "Anno d'esercizio ??????"
FIELD LIA->CODTAB FIELD LIA->CODTAB
USE LIA USE LIA
INPUT CODTAB F_YEAR INPUT CODTAB F_YEAR
DISPLAY "Anno@40" CODTAB DISPLAY "Anno@40" CODTAB
DISPLAY "@2" S0 DISPLAY "@2" S0
OUTPUT F_YEAR CODTAB OUTPUT F_YEAR CODTAB
KEY 1 KEY 1
FLAGS "RZ" FLAGS "RZ"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD NONE ADD NONE
END END
GROUPBOX DLG_NULL 71 5 GROUPBOX DLG_NULL 71 5
BEGIN BEGIN
PROMPT 4 4 "Parametri ditta" PROMPT 4 4 "Parametri ditta"
END END
LIST F_FREQ_VERS 14 LIST F_FREQ_VERS 14
BEGIN BEGIN
PROMPT 6 5 "Frequenza versamenti " PROMPT 6 5 "Frequenza versamenti "
HELP "Indicare la frequenza dei versamenti delle liquidazioni IVA" HELP "Indicare la frequenza dei versamenti delle liquidazioni IVA"
ITEM "M|Mensile" ITEM "M|Mensile"
ITEM "T|Trimestrale" ITEM "T|Trimestrale"
FIELD LIA->S7 FIELD LIA->S7
END END
NUMBER F_CRED_PREC 15 0 NUMBER F_CRED_PREC 15 0
BEGIN BEGIN
PROMPT 6 6 "Credito precedente " PROMPT 6 6 "Credito precedente "
HELP "Eventuale credito di imposta dell'anno precedente" HELP "Eventuale credito di imposta dell'anno precedente"
FIELD LIA->R0 FIELD LIA->R0
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
NUMBER F_CRED_COST 15 0 NUMBER F_CRED_COST 15 0
BEGIN BEGIN
PROMPT 6 7 "Credito di costo " PROMPT 6 7 "Credito di costo "
HELP "Eventuale crediti—o di costo dell'anno precedente" HELP "Eventuale crediti—o di costo dell'anno precedente"
FIELD LIA->R5 FIELD LIA->R5
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
SPREADSHEET F_SHEET_PLA 78 6 SPREADSHEET F_SHEET_PLA 78 6
BEGIN BEGIN
PROMPT 1 10 "Parametri attivita'" PROMPT 1 10 "Parametri attivita'"
ITEM "Attivita'@5" ITEM "Attivita'@5"
ITEM "Tipo@1" ITEM "Tipo@1"
ITEM "% Pro-rata@6" ITEM "% Pro-rata@6"
ITEM "Plafond art.8@15" ITEM "Plafond art.8@15"
ITEM "Plafond art.8b@15" ITEM "Plafond art.8b@15"
ITEM "Plafond art.9@15" ITEM "Plafond art.9@15"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "" -1 -1 65 16 PAGE "" -1 -1 65 16
NUMBER F_CODATT 5 NUMBER F_CODATT 5
BEGIN BEGIN
PROMPT 4 1 "Codice Attivita' " PROMPT 4 1 "Codice Attivita' "
FLAGS "DZG" FLAGS "DZG"
USE %AIS USE %AIS
INPUT CODTAB F_CODATT INPUT CODTAB F_CODATT
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODATT CODTAB OUTPUT F_CODATT CODTAB
OUTPUT F_DESATT S0 OUTPUT F_DESATT S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_DESATT 50 30 STRING F_DESATT 50 30
BEGIN BEGIN
PROMPT 31 1 "" PROMPT 31 1 ""
FLAGS "D" FLAGS "D"
END END
LIST F_TIPOATT 26 LIST F_TIPOATT 26
BEGIN BEGIN
PROMPT 4 3 "Tipo " PROMPT 4 3 "Tipo "
HELP "Tipo di attivita' a della ditta" HELP "Tipo di attivita' a della ditta"
FLAGS "U" FLAGS "U"
ITEM " |Altre" ITEM " |Altre"
ITEM "M|Mista" ITEM "M|Mista"
ITEM "E|Mista evidenziata" ITEM "E|Mista evidenziata"
ITEM "S|Servizio o mista generica" ITEM "S|Servizio o mista generica"
END END
NUMBER F_PRORATA 6 2 NUMBER F_PRORATA 6 2
BEGIN BEGIN
PROMPT 4 5 "% Pro-Rata " PROMPT 4 5 "% Pro-Rata "
HELP "Percentuale di pro-rata ???????" HELP "Percentuale di pro-rata ???????"
PICTURE ".2" PICTURE ".2"
NUM_EXPR {(#F_PRORATA>=0.0)&&(#F_PRORATA<=100.0)} NUM_EXPR {(#F_PRORATA>=0.0)&&(#F_PRORATA<=100.0)}
WARNING "La percentuale deve essere compresa tra 0 e 100" WARNING "La percentuale deve essere compresa tra 0 e 100"
FLAGS "R" FLAGS "R"
GROUP 1 GROUP 1
END END
NUMBER F_P8 15 NUMBER F_P8 15
BEGIN BEGIN
PROMPT 4 7 "Plafond art. 8 " PROMPT 4 7 "Plafond art. 8 "
HELP "?????????????" HELP "?????????????"
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
GROUP 1 GROUP 1
END END
NUMBER F_P8B 15 NUMBER F_P8B 15
BEGIN BEGIN
PROMPT 4 9 "Plafond art. 8b " PROMPT 4 9 "Plafond art. 8b "
HELP "????????????" HELP "????????????"
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
GROUP 1 GROUP 1
END END
NUMBER F_P9 15 NUMBER F_P9 15
BEGIN BEGIN
PROMPT 4 11 "Plafond art. 9 " PROMPT 4 11 "Plafond art. 9 "
HELP "?????????????" HELP "?????????????"
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
GROUP 1 GROUP 1
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
END END
BUTTON DLG_NULL 9 2 BUTTON DLG_NULL 9 2
BEGIN BEGIN
PROMPT -23 -1 "Azzera" PROMPT -23 -1 "Azzera"
MESSAGE RESET,1@ MESSAGE RESET,1@
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -33 -1 "" PROMPT -33 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK