diff --git a/ca/ca3600.cpp b/ca/ca3600.cpp index 6be09900a..7060f7392 100755 --- a/ca/ca3600.cpp +++ b/ca/ca3600.cpp @@ -1,5 +1,4 @@ #include -#include #include #include #include @@ -30,22 +29,105 @@ // MASCHERA DI CONFIGURAZIONE //////////////////////////////////////////////////////// -class TPag_per_cms_configmask: public TAutomask +class TPag_per_cms_configmask: public TAnal_report_mask { -public: +protected: virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly); void config_loader(TSheet_field& sf, const char* paragrafo); void config_setter(TSheet_field& sf, const char* paragrafo); + bool esistono_riclassificazioni() const; - TPag_per_cms_configmask():TAutomask("ca3601") +public: + TPag_per_cms_configmask(); + virtual ~TPag_per_cms_configmask() {} +}; + +//costruttore +TPag_per_cms_configmask::TPag_per_cms_configmask() + :TAnal_report_mask("ca3601") +{ + //Controllo sul tipo di piano dei conti da utilizzare (Analitico/Contabile) e su eventuali + //prefissi (esigenza CRPA) + TConfig& cfg = ca_config(); + const bool use_pdcc = cfg.get_bool("UsePdcc"); + + const TMultilevel_code_info& pconana_info = ca_multilevel_code_info(LF_PCONANA); + const int pconana_levels = pconana_info.levels(); + + int pconana_prefix = cfg.get_int("PdcPrefix"); + if (pconana_prefix >= pconana_levels) + pconana_prefix = pconana_levels-1; + + disable(F_PIANO); + set(F_PIANO, use_pdcc ? "C" : "A"); + + // Controllo se voglio (e posso) usare il conto analitico come prefisso di quello contabile + const int pref = cfg.get_int("PdcPrefix"); + if (use_pdcc && pref > 0) { - config_loader(sfield(F_COSTI), "Costi"); - config_loader(sfield(F_PAGAMENTI), "Pagamenti"); - config_loader(sfield(F_RITFIS), "Fiscali"); - config_loader(sfield(F_RITSOC), "Sociali"); + const TMultilevel_code_info& info = ca_multilevel_code_info(LF_PCONANA); + const int levels = info.levels(); + if (levels >= 2 && pref < levels && esistono_riclassificazioni()) + { + enable(F_PIANO); + ca_create_fields(*this, 1, LF_PCONANA, 2, 4, F_PRE1, F_PREDES1, 0x0, PCONANA_CODCONTO); + + // Nascondi i campi che non fanno parte del prefisso + for (int i = 0; i < levels; i++) + { + if (i < pref) + { + field(F_PRE1 + i).check_type(CHECK_REQUIRED); + field(F_PRE1 + i).set_group(6); + field(F_PREDES1 + i).set_group(6); + } + else + { + field(F_PRE1 + i).hide(); + field(F_PREDES1 + i).hide(); + } + } + } } -}; + for (int g = 5; g <= 6; g++) + { + const int logicnum = g == 5 ? LF_PCON : LF_PCONANA; + const short da_dlg = g == 5 ? F_PDC1_INI : F_PAN1_INI; + const short da_des = g == 5 ? F_PDCDES1_INI : F_PANDES1_INI; + const short a_dlg = g == 5 ? F_PDC1_FIN : F_PAN1_FIN; + const short a_des = g == 5 ? F_PDCDES1_FIN : F_PANDES1_FIN; + + const int nfields = ca_create_fields(*this, 1, logicnum, 2, 10, da_dlg, da_des, 0x0, PCONANA_CODCONTO); + ca_create_fields(*this, 1, logicnum, 2, 16, a_dlg, a_des, 0x0, PCONANA_CODCONTO); + + for (int i = 0; i < nfields; i++) + { + TMask_field& daconto = field(da_dlg + i); + daconto.set_group(1); + daconto.set_group(4); + daconto.set_group(g); + daconto.check_type(CHECK_SEARCH); + + field(da_des+i).set_group(4); + field(da_des+i).set_group(g); + + TMask_field& aconto = field(a_dlg + i); + aconto.set_group(2); + aconto.set_group(4); + aconto.set_group(g); + aconto.check_type(CHECK_SEARCH); + + field(a_des+i).set_group(4); + field(a_des+i).set_group(g); + } + } + +/* config_loader(sfield(F_COSTI), "Costi"); + config_loader(sfield(F_PAGAMENTI), "Pagamenti"); + config_loader(sfield(F_RITFIS), "Fiscali"); + config_loader(sfield(F_RITSOC), "Sociali");*/ +} bool TPag_per_cms_configmask::on_field_event(TOperable_field& o, TField_event e, long jolly) { @@ -59,6 +141,21 @@ bool TPag_per_cms_configmask::on_field_event(TOperable_field& o, TField_event e, config_setter(sfield(F_RITSOC), "Sociali"); } break; + /*case F_PRE1: + case F_PRE2: + case F_PRE3: + if ((e == fe_init || e == fe_modify) && o.active()) + { + const int k = o.dlg()-F_PRE1; + set(F_PAN1_INI + k, o.get(), 0x2); + disable(F_PAN1_INI + k); + disable(F_PANDES1_INI + k); + + set(F_PAN1_FIN + k, o.get(), 0x2); + disable(F_PAN1_FIN + k); + disable(F_PANDES1_FIN + k); + } + break;*/ default: break; } @@ -96,6 +193,11 @@ void TPag_per_cms_configmask::config_setter(TSheet_field& sf, const char* paragr } } +bool TPag_per_cms_configmask::esistono_riclassificazioni() const +{ + TLocalisamfile ric(LF_PANAPDC); + return ric.first() == NOERR; +} //=============================================================================================== //////////////////////////////////////////////////////// @@ -108,7 +210,6 @@ protected: virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly); const TString& get_report_class() const; bool test_compatible_report(); - bool esistono_riclassificazioni() const; public: TPag_per_cms_mask(); @@ -177,110 +278,21 @@ bool TPag_per_cms_mask::on_field_event(TOperable_field& o, TField_event e, long return error_box(TR("Impossibile trovare un report compatibile")); } break; - case F_PRE1: - case F_PRE2: - case F_PRE3: - if ((e == fe_init || e == fe_modify) && o.active()) - { - const int k = o.dlg()-F_PRE1; - set(F_PAN1_INI + k, o.get(), 0x2); - disable(F_PAN1_INI + k); - disable(F_PANDES1_INI + k); - - set(F_PAN1_FIN + k, o.get(), 0x2); - disable(F_PAN1_FIN + k); - disable(F_PANDES1_FIN + k); - } - break; default: break; } return TAnal_report_mask::on_field_event(o, e, jolly); } -bool TPag_per_cms_mask::esistono_riclassificazioni() const -{ - TLocalisamfile ric(LF_PANAPDC); - return ric.first() == NOERR; -} - TPag_per_cms_mask::TPag_per_cms_mask() :TAnal_report_mask("ca3600") { - TConfig& cfg = ca_config(); - const bool use_pdcc = cfg.get_bool("UsePdcc"); + // creazione dei campi della pagina della maschera con lo sheet di cdc/cms/fasi + create_sheet(F_RIGHE); + // setta gli handlers a tutti i campi generati della maschera;senza questa chiamata la on_field_event + // non puo' funzionare sui campi generati!!! + set_handlers(); - const TMultilevel_code_info& pconana_info = ca_multilevel_code_info(LF_PCONANA); - const int pconana_levels = pconana_info.levels(); - - int pconana_prefix = cfg.get_int("PdcPrefix"); - if (pconana_prefix >= pconana_levels) - pconana_prefix = pconana_levels-1; - - disable(F_PIANO); - set(F_PIANO, use_pdcc ? "C" : "A"); - - // Controllo se voglio (e posso) usare il conto analitico come prefisso di quello contabile - const int pref = cfg.get_int("PdcPrefix"); - if (use_pdcc && pref > 0) - { - const TMultilevel_code_info& info = ca_multilevel_code_info(LF_PCONANA); - const int levels = info.levels(); - if (levels >= 2 && pref < levels && esistono_riclassificazioni()) - { - enable(F_PIANO); - ca_create_fields(*this, 1, LF_PCONANA, 2, 4, F_PRE1, F_PREDES1, 0x0, PCONANA_CODCONTO); - - // Nascondi i campi che non fanno parte del prefisso - for (int i = 0; i < levels; i++) - { - if (i < pref) - { - field(F_PRE1 + i).check_type(CHECK_REQUIRED); - field(F_PRE1 + i).set_group(6); - field(F_PREDES1 + i).set_group(6); - } - else - { - field(F_PRE1 + i).hide(); - field(F_PREDES1 + i).hide(); - } - } - } - } - - for (int g = 5; g <= 6; g++) - { - const int logicnum = g == 5 ? LF_PCON : LF_PCONANA; - const short da_dlg = g == 5 ? F_PDC1_INI : F_PAN1_INI; - const short da_des = g == 5 ? F_PDCDES1_INI : F_PANDES1_INI; - const short a_dlg = g == 5 ? F_PDC1_FIN : F_PAN1_FIN; - const short a_des = g == 5 ? F_PDCDES1_FIN : F_PANDES1_FIN; - - const int nfields = ca_create_fields(*this, 1, logicnum, 2, 10, da_dlg, da_des, 0x0, PCONANA_CODCONTO); - ca_create_fields(*this, 1, logicnum, 2, 16, a_dlg, a_des, 0x0, PCONANA_CODCONTO); - - for (int i = 0; i < nfields; i++) - { - TMask_field& daconto = field(da_dlg + i); - daconto.set_group(1); - daconto.set_group(4); - daconto.set_group(g); - daconto.check_type(CHECK_SEARCH); - - field(da_des+i).set_group(4); - field(da_des+i).set_group(g); - - TMask_field& aconto = field(a_dlg + i); - aconto.set_group(2); - aconto.set_group(4); - aconto.set_group(g); - aconto.check_type(CHECK_SEARCH); - - field(a_des+i).set_group(4); - field(a_des+i).set_group(g); - } - } } @@ -377,11 +389,11 @@ void TPag_per_cms_recordset::set_filter(const TPag_per_cms_mask& msk, int cms_ro _codfas = rel.curr().get(RMOVANA_CODFASE); } - for (int i = 0; msk.id2pos(F_CDC1_INI+i) > 0; i++) +/* for (int i = 0; msk.id2pos(F_CDC1_INI+i) > 0; i++) { _daconto << msk.get(F_CDC1_INI+i); _aconto << msk.get(F_CDC1_FIN+i); - } + }*/ } //////////////////////////////////////////////////////// diff --git a/ca/ca3600.h b/ca/ca3600.h index c565ef379..8148cc227 100755 --- a/ca/ca3600.h +++ b/ca/ca3600.h @@ -25,38 +25,4 @@ //sheet e righe relative #define F_RIGHE 260 -//campi generati dai piani dei conti -#define F_PIANO 319 -#define F_PRE0 320 -#define F_PRE1 321 -#define F_PRE2 322 -#define F_PRE3 323 -#define F_PREDES1 325 -#define F_PREDES2 326 -#define F_PREDES3 327 - -#define F_PDC0_INI 330 -#define F_PDC1_INI 331 -#define F_PDC4_INI 334 -#define F_PDCDES1_INI 335 -#define F_PDCDES4_INI 338 - -#define F_PDC0_FIN 340 -#define F_PDC1_FIN 341 -#define F_PDC4_FIN 344 -#define F_PDCDES1_FIN 345 -#define F_PDCDES4_FIN 348 - -#define F_PAN0_INI 350 -#define F_PAN1_INI 351 -#define F_PAN4_INI 354 -#define F_PANDES1_INI 355 -#define F_PANDES4_INI 358 - -#define F_PAN0_FIN 360 -#define F_PAN1_FIN 361 -#define F_PAN4_FIN 364 -#define F_PANDES1_FIN 365 -#define F_PANDES4_FIN 368 - #endif // __CA3600_H \ No newline at end of file diff --git a/ca/ca3600.uml b/ca/ca3600.uml index ec1a211d1..2a4926998 100755 --- a/ca/ca3600.uml +++ b/ca/ca3600.uml @@ -28,7 +28,7 @@ END ENDPAGE -PAGE "CdC/Cms/Fasi / Date / Fornitori" -1 -1 78 20 +PAGE "Stampa pagato" -1 -1 78 20 SPREADSHEET F_RIGHE -1 -13 BEGIN @@ -147,37 +147,6 @@ END ENDPAGE -PAGE "Conti" -1 -1 78 20 - -LIST F_PIANO 1 12 -BEGIN - PROMPT 1 1 "Piano dei conti " - ITEM "A|Analitico" - MESSAGE HIDE,5@|SHOW,6@ - ITEM "C|Contabile" - MESSAGE HIDE,6@|SHOW,5@ -END - -GROUPBOX F_PRE0 76 6 -BEGIN - PROMPT 1 3 "@bPrefisso del piano dei conti analitico:" - GROUP 6 -END - -GROUPBOX F_PDC0_INI 76 6 -BEGIN - PROMPT 1 9 "@bDa conto:" - GROUP 4 -END - -GROUPBOX F_PDC0_FIN 76 6 -BEGIN - PROMPT 1 15 "@bA conto:" - GROUP 4 -END - -ENDPAGE - ENDMASK PAGE "Riga Analitica" -1 -1 78 19 diff --git a/ca/ca3601.h b/ca/ca3601.h index 73e377d33..0e9c072df 100755 --- a/ca/ca3601.h +++ b/ca/ca3601.h @@ -4,7 +4,7 @@ #define F_RITFIS 202 #define F_RITSOC 203 -#define F_SC_GRUPPO 101 +/*#define F_SC_GRUPPO 101 #define F_SC_CONTO 102 #define F_SC_SOTTOCONTO 103 #define F_SC_DESCRIZIONE 104 @@ -22,4 +22,38 @@ #define F_SO_GRUPPO 101 #define F_SO_CONTO 102 #define F_SO_SOTTOCONTO 103 -#define F_SO_DESCRIZIONE 104 +#define F_SO_DESCRIZIONE 104*/ + +//campi generati dai piani dei conti +#define F_PIANO 319 +#define F_PRE0 320 +#define F_PRE1 321 +#define F_PRE2 322 +#define F_PRE3 323 +#define F_PREDES1 325 +#define F_PREDES2 326 +#define F_PREDES3 327 + +#define F_PDC0_INI 330 +#define F_PDC1_INI 331 +#define F_PDC4_INI 334 +#define F_PDCDES1_INI 335 +#define F_PDCDES4_INI 338 + +#define F_PDC0_FIN 340 +#define F_PDC1_FIN 341 +#define F_PDC4_FIN 344 +#define F_PDCDES1_FIN 345 +#define F_PDCDES4_FIN 348 + +#define F_PAN0_INI 350 +#define F_PAN1_INI 351 +#define F_PAN4_INI 354 +#define F_PANDES1_INI 355 +#define F_PANDES4_INI 358 + +#define F_PAN0_FIN 360 +#define F_PAN1_FIN 361 +#define F_PAN4_FIN 364 +#define F_PANDES1_FIN 365 +#define F_PANDES4_FIN 368 diff --git a/ca/ca3601.uml b/ca/ca3601.uml index c192c4971..f4b15afc8 100755 --- a/ca/ca3601.uml +++ b/ca/ca3601.uml @@ -1,4 +1,5 @@ #include "ca3601.h" +#include "camask.h" TOOLBAR "" 0 -2 0 2 @@ -18,6 +19,21 @@ ENDPAGE PAGE "Costi / Pagamenti" -1 -1 78 20 +LIST F_PIANO 1 12 +BEGIN + PROMPT 1 1 "Piano dei conti " + ITEM "A|Analitico" + MESSAGE HIDE,5@|SHOW,6@ + ITEM "C|Contabile" + MESSAGE HIDE,6@|SHOW,5@ +END + +GROUPBOX F_PRE0 76 6 +BEGIN + PROMPT 1 3 "@bPrefisso del piano dei conti analitico:" + GROUP 6 +END + TEXT -1 BEGIN PROMPT 1 0 "@bCosti" @@ -86,80 +102,49 @@ ENDMASK //----------------------MOVIMENTI IVA------------------------------// //-----------Pagina di riga dello sheet costi----------------------// -PAGE "Riga Costo" -1 -1 66 10 +PAGE "Riga Costo" -1 -1 78 19 -NUMBER F_SC_GRUPPO 3 +STRING S_CDC1 20 BEGIN - PROMPT 1 2 "Gruppo " - USE LF_PCON KEY 1 SELECT (CONTO="") - INPUT GRUPPO F_SC_GRUPPO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_SC_GRUPPO GRUPPO - CHECKTYPE REQUIRED -END - -NUMBER F_SC_CONTO 3 -BEGIN - PROMPT 1 3 "Conto " - USE LF_PCON KEY 1 SELECT (SOTTOCONTO="") - INPUT GRUPPO F_SC_GRUPPO - INPUT CONTO F_SC_CONTO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_SC_CONTO CONTO - OUTPUT F_SC_GRUPPO GRUPPO - CHECKTYPE NORMAL -END - -NUMBER F_SC_SOTTOCONTO 6 -BEGIN - PROMPT 1 4 "Sottoconto " - USE LF_PCON - INPUT GRUPPO F_SC_GRUPPO - INPUT CONTO F_SC_CONTO - INPUT SOTTOCONTO F_SC_SOTTOCONTO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_SC_SOTTOCONTO SOTTOCONTO - OUTPUT F_SC_GRUPPO GRUPPO - OUTPUT F_SC_CONTO CONTO - OUTPUT F_SC_DESCRIZIONE DESCR + PROMPT 1 2 "Cdc1" + FLAGS "B" CHECKTYPE NORMAL END -STRING F_SC_DESCRIZIONE 50 +STRING S_CDC2 20 BEGIN - PROMPT 1 5 "Descrizione " - USE LF_PCON KEY 2 - INPUT DESCR F_SC_DESCRIZIONE - DISPLAY "Descrizione@50" DESCR - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - OUTPUT F_SC_SOTTOCONTO SOTTOCONTO - OUTPUT F_SC_CONTO CONTO - OUTPUT F_SC_GRUPPO GRUPPO - OUTPUT F_SC_DESCRIZIONE DESCR + PROMPT 21 2 "Cdc2" + FLAGS "B" + CHECKTYPE NORMAL +END + +STRING S_CDC3 20 +BEGIN + PROMPT 41 2 "Cdc3" + FLAGS "B" + CHECKTYPE NORMAL +END + +STRING S_CDC4 20 +BEGIN + PROMPT 61 2 "Cdc4" + FLAGS "B" CHECKTYPE NORMAL END BUTTON DLG_OK 10 2 BEGIN - PROMPT -13 -1 "" + PROMPT -13 -1 "" END BUTTON DLG_DELREC 10 2 BEGIN - PROMPT -23 -1 "" + PROMPT -23 -1 "" END BUTTON DLG_CANCEL 10 2 BEGIN - PROMPT -33 -1 "" + PROMPT -33 -1 "" END ENDPAGE @@ -168,80 +153,49 @@ ENDMASK //-----------Pagina di riga dello sheet pagamenti----------------------// -PAGE "Riga Pagamento" -1 -1 66 10 +PAGE "Riga Pagamento" -1 -1 78 19 -NUMBER F_SP_GRUPPO 3 +STRING S_CDC1 20 BEGIN - PROMPT 1 2 "Gruppo " - USE LF_PCON KEY 1 SELECT (CONTO="") - INPUT GRUPPO F_SP_GRUPPO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_SP_GRUPPO GRUPPO - CHECKTYPE REQUIRED -END - -NUMBER F_SP_CONTO 3 -BEGIN - PROMPT 1 3 "Conto " - USE LF_PCON KEY 1 SELECT (SOTTOCONTO="") - INPUT GRUPPO F_SP_GRUPPO - INPUT CONTO F_SP_CONTO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_SP_CONTO CONTO - OUTPUT F_SP_GRUPPO GRUPPO - CHECKTYPE NORMAL -END - -NUMBER F_SP_SOTTOCONTO 6 -BEGIN - PROMPT 1 4 "Sottoconto " - USE LF_PCON - INPUT GRUPPO F_SP_GRUPPO - INPUT CONTO F_SP_CONTO - INPUT SOTTOCONTO F_SP_SOTTOCONTO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_SP_SOTTOCONTO SOTTOCONTO - OUTPUT F_SP_GRUPPO GRUPPO - OUTPUT F_SP_CONTO CONTO - OUTPUT F_SP_DESCRIZIONE DESCR + PROMPT 1 2 "Cdc1" + FLAGS "B" CHECKTYPE NORMAL END -STRING F_SP_DESCRIZIONE 50 +STRING S_CDC2 20 BEGIN - PROMPT 1 5 "Descrizione " - USE LF_PCON KEY 2 - INPUT DESCR F_SP_DESCRIZIONE - DISPLAY "Descrizione@50" DESCR - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - OUTPUT F_SP_SOTTOCONTO SOTTOCONTO - OUTPUT F_SP_CONTO CONTO - OUTPUT F_SP_GRUPPO GRUPPO - OUTPUT F_SP_DESCRIZIONE DESCR + PROMPT 21 2 "Cdc2" + FLAGS "B" + CHECKTYPE NORMAL +END + +STRING S_CDC3 20 +BEGIN + PROMPT 41 2 "Cdc3" + FLAGS "B" + CHECKTYPE NORMAL +END + +STRING S_CDC4 20 +BEGIN + PROMPT 61 2 "Cdc4" + FLAGS "B" CHECKTYPE NORMAL END BUTTON DLG_OK 10 2 BEGIN - PROMPT -13 -1 "" + PROMPT -13 -1 "" END BUTTON DLG_DELREC 10 2 BEGIN - PROMPT -23 -1 "" + PROMPT -23 -1 "" END BUTTON DLG_CANCEL 10 2 BEGIN - PROMPT -33 -1 "" + PROMPT -33 -1 "" END ENDPAGE @@ -251,80 +205,54 @@ ENDMASK //-------------------MOVIMENTI CONTABILI---------------------------// //-----------Pagina di riga dello sheet costi----------------------// -PAGE "Riga Ritenuta Fiscale" -1 -1 66 10 +PAGE "Riga Ritenuta Fiscale" -1 -1 78 19 -NUMBER F_FI_GRUPPO 3 +STRING S_CDC1 20 BEGIN - PROMPT 1 2 "Gruppo " - USE LF_PCON KEY 1 SELECT (CONTO="") - INPUT GRUPPO F_FI_GRUPPO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_FI_GRUPPO GRUPPO - CHECKTYPE REQUIRED -END - -NUMBER F_FI_CONTO 3 -BEGIN - PROMPT 1 3 "Conto " - USE LF_PCON KEY 1 SELECT (SOTTOCONTO="") - INPUT GRUPPO F_FI_GRUPPO - INPUT CONTO F_FI_CONTO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_FI_CONTO CONTO - OUTPUT F_FI_GRUPPO GRUPPO - CHECKTYPE NORMAL -END - -NUMBER F_FI_SOTTOCONTO 6 -BEGIN - PROMPT 1 4 "Sottoconto " - USE LF_PCON - INPUT GRUPPO F_FI_GRUPPO - INPUT CONTO F_FI_CONTO - INPUT SOTTOCONTO F_FI_SOTTOCONTO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_FI_SOTTOCONTO SOTTOCONTO - OUTPUT F_FI_GRUPPO GRUPPO - OUTPUT F_FI_CONTO CONTO - OUTPUT F_FI_DESCRIZIONE DESCR + PROMPT 1 2 "Cdc1" + FLAGS "B" CHECKTYPE NORMAL END -STRING F_FI_DESCRIZIONE 50 +STRING S_CDC2 20 BEGIN - PROMPT 1 5 "Descrizione " - USE LF_PCON KEY 2 - INPUT DESCR F_FI_DESCRIZIONE - DISPLAY "Descrizione@50" DESCR - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - OUTPUT F_FI_SOTTOCONTO SOTTOCONTO - OUTPUT F_FI_CONTO CONTO - OUTPUT F_FI_GRUPPO GRUPPO - OUTPUT F_FI_DESCRIZIONE DESCR + PROMPT 21 2 "Cdc2" + FLAGS "B" + CHECKTYPE NORMAL +END + +STRING S_CDC3 20 +BEGIN + PROMPT 41 2 "Cdc3" + FLAGS "B" + CHECKTYPE NORMAL +END + +STRING S_CDC4 20 +BEGIN + PROMPT 61 2 "Cdc4" + FLAGS "B" CHECKTYPE NORMAL END BUTTON DLG_OK 10 2 BEGIN - PROMPT -13 -1 "" + PROMPT -13 -1 "" +END + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -13 -1 "" END BUTTON DLG_DELREC 10 2 BEGIN - PROMPT -23 -1 "" + PROMPT -23 -1 "" END BUTTON DLG_CANCEL 10 2 BEGIN - PROMPT -33 -1 "" + PROMPT -33 -1 "" END ENDPAGE @@ -333,80 +261,49 @@ ENDMASK //-----------Pagina di riga dello sheet pagamenti----------------------// -PAGE "Riga Ritenuta Sociale" -1 -1 66 10 +PAGE "Riga Ritenuta Sociale" -1 -1 78 19 -NUMBER F_SO_GRUPPO 3 +STRING S_CDC1 20 BEGIN - PROMPT 1 2 "Gruppo " - USE LF_PCON KEY 1 SELECT (CONTO="") - INPUT GRUPPO F_SO_GRUPPO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_SO_GRUPPO GRUPPO - CHECKTYPE REQUIRED -END - -NUMBER F_SO_CONTO 3 -BEGIN - PROMPT 1 3 "Conto " - USE LF_PCON KEY 1 SELECT (SOTTOCONTO="") - INPUT GRUPPO F_SO_GRUPPO - INPUT CONTO F_SO_CONTO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_SO_CONTO CONTO - OUTPUT F_SO_GRUPPO GRUPPO - CHECKTYPE NORMAL -END - -NUMBER F_SO_SOTTOCONTO 6 -BEGIN - PROMPT 1 4 "Sottoconto " - USE LF_PCON - INPUT GRUPPO F_SO_GRUPPO - INPUT CONTO F_SO_CONTO - INPUT SOTTOCONTO F_SO_SOTTOCONTO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_SO_SOTTOCONTO SOTTOCONTO - OUTPUT F_SO_GRUPPO GRUPPO - OUTPUT F_SO_CONTO CONTO - OUTPUT F_SO_DESCRIZIONE DESCR + PROMPT 1 2 "Cdc1" + FLAGS "B" CHECKTYPE NORMAL END -STRING F_SO_DESCRIZIONE 50 +STRING S_CDC2 20 BEGIN - PROMPT 1 5 "Descrizione " - USE LF_PCON KEY 2 - INPUT DESCR F_SO_DESCRIZIONE - DISPLAY "Descrizione@50" DESCR - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - OUTPUT F_SO_SOTTOCONTO SOTTOCONTO - OUTPUT F_SO_CONTO CONTO - OUTPUT F_SO_GRUPPO GRUPPO - OUTPUT F_SO_DESCRIZIONE DESCR + PROMPT 21 2 "Cdc2" + FLAGS "B" + CHECKTYPE NORMAL +END + +STRING S_CDC3 20 +BEGIN + PROMPT 41 2 "Cdc3" + FLAGS "B" + CHECKTYPE NORMAL +END + +STRING S_CDC4 20 +BEGIN + PROMPT 61 2 "Cdc4" + FLAGS "B" CHECKTYPE NORMAL END BUTTON DLG_OK 10 2 BEGIN - PROMPT -13 -1 "" + PROMPT -13 -1 "" END BUTTON DLG_DELREC 10 2 BEGIN - PROMPT -23 -1 "" + PROMPT -23 -1 "" END BUTTON DLG_CANCEL 10 2 BEGIN - PROMPT -33 -1 "" + PROMPT -33 -1 "" END ENDPAGE