Patch level :2.2 224

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :Aggiunta secondissima stesura della stampa pagato (Appare solo la maschera, ma questa volta e' corretta)


git-svn-id: svn://10.65.10.50/trunk@13502 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2005-11-17 19:00:06 +00:00
parent bee78e6470
commit 1985ae8986
5 changed files with 272 additions and 394 deletions

View File

@ -1,5 +1,4 @@
#include <applicat.h>
#include <automask.h>
#include <defmask.h>
#include <execp.h>
#include <progind.h>
@ -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);
}
}*/
}
////////////////////////////////////////////////////////

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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