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

Patch level : 2.2 66

Browse Source 
Files correlati     :  ca1.exe
Ricompilazione Demo : [ ]
Commento            :

Prima versione tampe anagrafiche


git-svn-id: svn://10.65.10.50/trunk@12890 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2005-04-01 11:23:49 +00:00
parent 9a685ffcd8
commit 063e4effb5
16 changed files with 362 additions and 156 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
ca/ca1400.cpp
View File

@ -7,6 +7,28 @@
#include "calib01.h" #include "calib01.h"
#include "calib02.h" #include "calib02.h"
class TMask_print_pdc : public TAutomask
{
protected:
bool on_field_event(TOperable_field& o, TField_event e, long jolly) {return true;}
public:
TMask_print_pdc();
virtual ~TMask_print_pdc() {}
};
TMask_print_pdc::TMask_print_pdc()
:TAutomask("ca1400a")
{
ca_create_fields(*this, LF_PCONANA, 2, 2, F_DACONTO, F_DACONTO + 100, 0x0, "#DACONTO");
int nfields = ca_create_fields(*this, LF_PCONANA, 2, 8, F_ACONTO, F_ACONTO + 100, 0x0, "#ACONTO");
for (int i = 0; i < nfields; i++)
{
field(F_DACONTO + i).set_group(1);
field(F_ACONTO + i).set_group(2);
}
}
class TPrint_pdc : public TSkeleton_application class TPrint_pdc : public TSkeleton_application
{ {
bool create(); bool create();
@ -37,33 +59,21 @@ bool TPrint_pdc::create()
void TPrint_pdc::main_loop() void TPrint_pdc::main_loop()
{ {
TFilename path; TFilename path;
TMask m("ca1400a");; TMask_print_pdc m;
while (m.run() == K_ENTER) while (m.run() == K_ENTER)
{ {
TReport_book book; TReport_book book;
TAnal_report rep; TAnal_report rep;
;
path = m.get(F_REPORT); path = m.get(F_REPORT);
if (path.empty()) if (path.empty())
path = "ca1400"; path = "ca1400";
path.ext("rep"); rep.load(path);
path.custom_path(); rep.mask2report(m);
if (rep.load(path))
{
TRecordset * r = rep.recordset();
if (r != NULL)
{
TVariant var;
var = m.get(F_DACONTO);
r->set_var("#DACONTO", var);
var = m.get(F_ACONTO);
r->set_var("#ACONTO", var);
}
}
book.add(rep); book.add(rep);
book.print_or_preview(); book.print_or_preview();
} }
} }

55
ca/ca1400.rep Executable file
View File

@ -0,0 +1,55 @@
<report libraries="ca1100, ca1400" name="ca1400" lpi="6">
<description>Stampa piano dei conti di analitica</description>
<font face="Courier New" size="10" />
<section type="Head" height="8">
<field type="Stringa" width="50" pattern="1">
<prescript description="H0.0 PRESCRIPT">"!RAGSOC"
#REPORT.FIRM</prescript>
</field>
<field x="59" type="Data" width="10" pattern="1">
<source>#SYSTEM.DATE</source>
</field>
<field x="70" type="Stringa" width="10" pattern="1" text="Pag. #.###">
<source>#REPORT.PAGE</source>
</field>
<field y="2" type="Testo" align="center" width="80" height="2" pattern="1" text="Stampa Piano dei Conti Analitica">
<font face="Courier New" bold="1" size="16" />
</field>
<field y="5" type="Testo" width="10" pattern="1" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="25" y="5" type="Testo" width="20" pattern="1" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="71" y="5" type="Testo" width="4" pattern="1" text="Sez.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="75" y="5" type="Testo" width="5" pattern="1" text="Sosp.">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="1" y="6.25" type="Linea" width="80" height="0" pattern="1" />
</section>
<section type="Head" level="1" />
<section type="Body" />
<section type="Body" level="1">
<field type="Stringa" width="25" pattern="1">
<source>CODCONTO</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE_FORMAT_CONTO</prescript>
</field>
<field x="25" type="Stringa" dynamic_height="1" width="47" height="2" pattern="1">
<source>DESCR</source>
</field>
<field x="73" type="Stringa" width="2" pattern="1">
<source>SEZSALDI</source>
</field>
<field x="77" type="Stringa" width="2" pattern="1">
<source>SOSPESO</source>
</field>
</section>
<section type="Foot" />
<section type="Foot" level="1" />
<sql>USE 106
FROM #DACONTO
TO #ACONTO</sql>
</report>

4
ca/ca1400a.h
View File

@ -1,3 +1,3 @@
#define F_DACONTO 101 #define F_DACONTO 101
#define F_ACONTO 102 #define F_ACONTO 110
#define F_REPORT 103 #define F_REPORT 120

25
ca/ca1400a.uml
View File

@ -1,33 +1,20 @@
#include "ca1400a.h" #include "ca1400a.h"
PAGE "Stampa piano dei conti analitica" -1 -1 80 8 PAGE "Stampa piano dei conti analitica" -1 -1 80 17
STRING F_DACONTO 20 GROUPBOX DLG_NULL 78 6
BEGIN BEGIN
PROMPT 2 1 "Da conto " PROMPT 2 1 "Da conto"
FIELD DA_CONTO
USE LF_PCONANA
INPUT CODCONTO F_DACONTO
DISPLAY "Codice@20" CODCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_DACONTO CODCONTO
CHECKTYPE SEARCH
END END
STRING F_ACONTO 20 GROUPBOX DLG_NULL 78 6
BEGIN BEGIN
PROMPT 2 3 "A conto " PROMPT 2 7 "A conto"
FIELD A_CONTO
COPY USE F_DACONTO
INPUT CODCONTO F_ACONTO
COPY DISPLAY F_DACONTO
OUTPUT F_ACONTO CODCONTO
CHECKTYPE SEARCH
END END
STRING F_REPORT 20 STRING F_REPORT 20
BEGIN BEGIN
PROMPT 2 5 "Tipo di stampa " PROMPT 2 14 "Tipo di stampa "
RSELECT "ca1400" RSELECT "ca1400"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END

43
ca/ca1500.cpp
View File

@ -6,6 +6,27 @@
#include "calib01.h" #include "calib01.h"
#include "calib02.h" #include "calib02.h"
class TMask_print_cdc : public TAutomask
{
protected:
bool on_field_event(TOperable_field& o, TField_event e, long jolly) {return true;}
public:
TMask_print_cdc();
virtual ~TMask_print_cdc() {}
};
TMask_print_cdc::TMask_print_cdc()
:TAutomask("ca1500a")
{
ca_create_fields(*this, LF_CDC, 2, 2, F_DACDC, F_DACDC + 100, 0x0, "#DACDC");
int nfields = ca_create_fields(*this, LF_CDC, 2, 8, F_ACDC, F_ACDC + 100, 0x0, "#ACDC");
for (int i = 0; i < nfields; i++)
{
field(F_DACDC + i).set_group(1);
field(F_ACDC + i).set_group(2);
}
}
class TPrint_cdc : public TSkeleton_application class TPrint_cdc : public TSkeleton_application
{ {
@ -19,7 +40,7 @@ bool TPrint_cdc::create()
{ {
const TMultilevel_code_info& mci = ca_multilevel_code_info(LF_CDC); const TMultilevel_code_info& mci = ca_multilevel_code_info(LF_CDC);
if (mci.levels() <= 0) if (mci.levels() <= 0)
return error_box(TR("I centri di costo non sono stati configurati")); return error_box(TR("I centri di costo non sono stati configurati"));
return TSkeleton_application::create(); return TSkeleton_application::create();
} }
@ -27,7 +48,7 @@ bool TPrint_cdc::create()
void TPrint_cdc::main_loop() void TPrint_cdc::main_loop()
{ {
TFilename path; TFilename path;
TMask m("ca1500a");; TMask_print_cdc m;
while (m.run() == K_ENTER) while (m.run() == K_ENTER)
{ {
TReport_book book; TReport_book book;
@ -37,22 +58,8 @@ void TPrint_cdc::main_loop()
if (path.empty()) if (path.empty())
path = "ca1500"; path = "ca1500";
path.ext("rep"); rep.load(path);
path.custom_path(); rep.mask2report(m);
if (rep.load(path))
{
TRecordset * r = rep.recordset();
if (r != NULL)
{
TVariant var;
var = m.get(F_DACDC);
r->set_var("#DACDC", var);
var = m.get(F_ACDC);
r->set_var("#ACDC", var);
}
}
book.add(rep); book.add(rep);
book.print_or_preview(); book.print_or_preview();
} }

61
ca/ca1500.rep Executable file
View File

@ -0,0 +1,61 @@
<report libraries="ca1100,ca1500" name="ca1500" lpi="6">
<description>Stampa centri di costo di analitica</description>
<font face="Courier New" size="10" />
<section type="Head" height="8">
<field type="Stringa" width="50" pattern="1">
<prescript description="H0.0 PRESCRIPT">"!RAGSOC"
#REPORT.FIRM</prescript>
</field>
<field x="59" type="Data" width="10" pattern="1">
<source>#SYSTEM.DATE</source>
</field>
<field x="70" type="Stringa" width="10" pattern="1" text="Pag. #.###">
<source>#REPORT.PAGE</source>
</field>
<field y="2" type="Testo" align="center" width="80" height="2" pattern="1" text="Stampa Centri di Costo Analitica">
<font face="Courier New" bold="1" size="16" />
</field>
<field y="5" type="Testo" width="10" pattern="1" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="25" y="5" type="Testo" width="20" pattern="1" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="60" y="5" type="Testo" width="7" pattern="1" text="Addetti">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="67.5" y="5" type="Testo" width="4" pattern="1" text="Fasi">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="72" y="5" type="Testo" width="8" pattern="1" text="Appoggio">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="1" y="6.25" type="Linea" width="80" height="0" pattern="1" />
</section>
<section type="Head" level="1" />
<section type="Body" />
<section type="Body" level="1">
<field type="Stringa" width="25" pattern="1">
<source>CODCOSTO</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE_FORMAT_COSTO</prescript>
</field>
<field x="25" type="Stringa" dynamic_height="1" width="35" height="20" pattern="1">
<source>DESCRIZ + DESCRAGG</source>
</field>
<field x="60" type="Numero" align="right" width="5" pattern="1">
<source>ADDETTI</source>
</field>
<field x="69" type="Stringa" width="2" pattern="1">
<source>GESTFASI</source>
</field>
<field x="78" type="Stringa" width="2" pattern="1">
<source>APPOGGIO</source>
</field>
</section>
<section type="Foot" />
<section type="Foot" level="1" />
<sql>USE 146
FROM #DACDC
TO #ACDC</sql>
</report>

4
ca/ca1500a.h
View File

@ -1,3 +1,3 @@
#define F_DACDC 101 #define F_DACDC 101
#define F_ACDC 102 #define F_ACDC 110
#define F_REPORT 103 #define F_REPORT 120

25
ca/ca1500a.uml
View File

@ -1,33 +1,20 @@
#include "ca1500a.h" #include "ca1500a.h"
PAGE "Stampa centri di costo" -1 -1 80 8 PAGE "Stampa centri di costo" -1 -1 80 17
STRING F_DACDC 20 GROUPBOX DLG_NULL 78 6
BEGIN BEGIN
PROMPT 2 1 "Da Centro " PROMPT 2 1 "Da centro di costo"
FIELD DA_CDC
USE LF_CDC
INPUT CODCOSTO F_DACDC
DISPLAY "Codice@20" CODCOSTO
DISPLAY "Descrizione@50" DESCRIZ
OUTPUT F_DACDC CODCOSTO
CHECKTYPE SEARCH
END END
STRING F_ACDC 20 GROUPBOX DLG_NULL 78 6
BEGIN BEGIN
PROMPT 2 3 "A Cento " PROMPT 2 7 "A centro di costo"
FIELD A_CDC
COPY USE F_DACDC
INPUT CODCOSTO F_ACDC
COPY DISPLAY F_DACDC
OUTPUT F_ACDC CODCOSTO
CHECKTYPE SEARCH
END END
STRING F_REPORT 20 STRING F_REPORT 20
BEGIN BEGIN
PROMPT 2 5 "Tipo di stampa " PROMPT 2 14 "Tipo di stampa "
RSELECT "ca1500" RSELECT "ca1500"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END

41
ca/ca1600.cpp
View File

@ -6,6 +6,27 @@
#include "calib01.h" #include "calib01.h"
#include "calib02.h" #include "calib02.h"
class TMask_print_cms : public TAutomask
{
protected:
bool on_field_event(TOperable_field& o, TField_event e, long jolly) {return true;}
public:
TMask_print_cms();
virtual ~TMask_print_cms() {}
};
TMask_print_cms::TMask_print_cms()
:TAutomask("ca1600a")
{
ca_create_fields(*this, LF_COMMESSE, 2, 2, F_DACMS, F_DACMS + 100, 0x0, "#DACMS");
int nfields = ca_create_fields(*this, LF_COMMESSE, 2, 8, F_ACMS, F_ACMS + 100, 0x0, "#ACMS");
for (int i = 0; i < nfields; i++)
{
field(F_DACMS + i).set_group(1);
field(F_ACMS + i).set_group(2);
}
}
class TPrint_cms : public TSkeleton_application class TPrint_cms : public TSkeleton_application
{ {
@ -27,7 +48,7 @@ bool TPrint_cms::create()
void TPrint_cms::main_loop() void TPrint_cms::main_loop()
{ {
TFilename path; TFilename path;
TMask m("ca1600a");; TMask_print_cms m;
while (m.run() == K_ENTER) while (m.run() == K_ENTER)
{ {
TReport_book book; TReport_book book;
@ -37,22 +58,8 @@ void TPrint_cms::main_loop()
if (path.empty()) if (path.empty())
path = "ca1600"; path = "ca1600";
path.ext("rep"); rep.load(path);
path.custom_path(); rep.mask2report(m);
if (rep.load(path))
{
TRecordset * r = rep.recordset();
if (r != NULL)
{
TVariant var;
var = m.get(F_DACMS);
r->set_var("#DACMS", var);
var = m.get(F_ACMS);
r->set_var("#ACMS", var);
}
}
book.add(rep); book.add(rep);
book.print_or_preview(); book.print_or_preview();
} }

43
ca/ca1600.rep Executable file
View File

@ -0,0 +1,43 @@
<report libraries="ca1100,ca1600" name="ca1600" lpi="6">
<description>Stampa commesse di analitica</description>
<font face="Courier New" size="10" />
<section type="Head" height="8">
<field type="Stringa" width="50" pattern="1">
<prescript description="H0.0 PRESCRIPT">"!RAGSOC"
#REPORT.FIRM</prescript>
</field>
<field x="59" type="Data" width="10" pattern="1">
<source>#SYSTEM.DATE</source>
</field>
<field x="70" type="Stringa" width="10" pattern="1" text="Pag. #.###">
<source>#REPORT.PAGE</source>
</field>
<field y="2" type="Testo" align="center" width="80" height="2" pattern="1" text="Stampa Commesse Analitica">
<font face="Courier New" bold="1" size="16" />
</field>
<field y="5" type="Testo" width="10" pattern="1" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="25" y="5" type="Testo" width="20" pattern="1" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="1" y="6.25" type="Linea" width="80" height="0" pattern="1" />
</section>
<section type="Head" level="1" />
<section type="Body" />
<section type="Body" level="1">
<field type="Stringa" width="25" pattern="1">
<source>CODCMS</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE_FORMAT_COMMESSA</prescript>
</field>
<field x="25" type="Stringa" dynamic_height="1" width="35" height="20" pattern="1">
<source>DESCRIZ + DESCRAGG</source>
</field>
</section>
<section type="Foot" />
<section type="Foot" level="1" />
<sql>USE 147
FROM #DACMS
TO #ACMS</sql>
</report>

4
ca/ca1600a.h
View File

@ -1,3 +1,3 @@
#define F_DACMS 101 #define F_DACMS 101
#define F_ACMS 102 #define F_ACMS 110
#define F_REPORT 103 #define F_REPORT 120

25
ca/ca1600a.uml
View File

@ -1,33 +1,20 @@
#include "ca1600a.h" #include "ca1600a.h"
PAGE "Stampa commesse" -1 -1 80 8 PAGE "Stampa commesse" -1 -1 80 17
STRING F_DACMS 20 GROUPBOX DLG_NULL 78 6
BEGIN BEGIN
PROMPT 2 1 "Da Commessa " PROMPT 2 1 "Da commess"
FIELD DA_CMS
USE LF_COMMESSE
INPUT CODCMS F_DACMS
DISPLAY "Codice@20" CODCMS
DISPLAY "Descrizione@50" DESCRIZ
OUTPUT F_DACMS CODCMS
CHECKTYPE SEARCH
END END
STRING F_ACMS 20 GROUPBOX DLG_NULL 78 6
BEGIN BEGIN
PROMPT 2 3 "A Commessa " PROMPT 2 7 "A commessa"
FIELD A_CMS
COPY USE F_DACMS
INPUT CODCMS F_ACMS
COPY DISPLAY F_DACMS
OUTPUT F_ACMS CODCMS
CHECKTYPE SEARCH
END END
STRING F_REPORT 20 STRING F_REPORT 20
BEGIN BEGIN
PROMPT 2 5 "Tipo di stampa " PROMPT 2 14 "Tipo di stampa "
RSELECT "ca1600" RSELECT "ca1600"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END

45
ca/ca1700.cpp
View File

@ -6,6 +6,27 @@
#include "calib01.h" #include "calib01.h"
#include "calib02.h" #include "calib02.h"
class TMask_print_fasi : public TAutomask
{
protected:
bool on_field_event(TOperable_field& o, TField_event e, long jolly) {return true;}
public:
TMask_print_fasi();
virtual ~TMask_print_fasi() {}
};
TMask_print_fasi::TMask_print_fasi()
:TAutomask("ca1700a")
{
ca_create_fields(*this, LF_FASI, 2, 2, F_DAFASE, F_DAFASE + 100, 0x0, "#DAFASE");
int nfields = ca_create_fields(*this, LF_FASI, 2, 8, F_AFASE, F_AFASE + 100, 0x0, "#AFASE");
for (int i = 0; i < nfields; i++)
{
field(F_DAFASE + i).set_group(1);
field(F_AFASE + i).set_group(2);
}
}
class TPrint_fasi : public TSkeleton_application class TPrint_fasi : public TSkeleton_application
{ {
@ -18,8 +39,8 @@ public:
bool TPrint_fasi::create() bool TPrint_fasi::create()
{ {
const TMultilevel_code_info& mci = ca_multilevel_code_info(LF_FASI); const TMultilevel_code_info& mci = ca_multilevel_code_info(LF_FASI);
if (mci.levels() <= 0) // if (mci.levels() <= 0)
return error_box(TR("Le fasi non sono state configurate")); // return error_box(TR("Le fasi non sono state configurate"));
return TSkeleton_application::create(); return TSkeleton_application::create();
} }
@ -27,7 +48,7 @@ bool TPrint_fasi::create()
void TPrint_fasi::main_loop() void TPrint_fasi::main_loop()
{ {
TFilename path; TFilename path;
TMask m("ca1700a");; TMask_print_fasi m;
while (m.run() == K_ENTER) while (m.run() == K_ENTER)
{ {
TReport_book book; TReport_book book;
@ -37,22 +58,8 @@ void TPrint_fasi::main_loop()
if (path.empty()) if (path.empty())
path = "ca1700"; path = "ca1700";
path.ext("rep"); rep.load(path);
path.custom_path(); rep.mask2report(m);
if (rep.load(path))
{
TRecordset * r = rep.recordset();
if (r != NULL)
{
TVariant var;
var = m.get(F_DAFASE);
r->set_var("#DAFASE", var);
var = m.get(F_AFASE);
r->set_var("#AFASE", var);
}
}
book.add(rep); book.add(rep);
book.print_or_preview(); book.print_or_preview();
} }

68
ca/ca1700.rep Executable file
View File

@ -0,0 +1,68 @@
<report libraries="ca1100,ca1700" name="ca1700" lpi="6">
<description>Stampa fasi di analitica</description>
<font face="Courier New" size="10" />
<section type="Head" height="8">
<field type="Stringa" width="50" pattern="1">
<prescript description="H0.0 PRESCRIPT">"!RAGSOC"
#REPORT.FIRM</prescript>
</field>
<field x="59" type="Data" width="10" pattern="1">
<source>#SYSTEM.DATE</source>
</field>
<field x="70" type="Stringa" width="10" pattern="1" text="Pag. #.###">
<source>#REPORT.PAGE</source>
</field>
<field y="2" type="Testo" align="center" width="80" height="2" pattern="1" text="Stampa Fasi Analitica">
<font face="Courier New" bold="1" size="16" />
</field>
<field y="4.5" type="Testo" width="22" pattern="1" text="Codice commessa&#2F;fase">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="26" y="4.5" type="Testo" width="20" pattern="1" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="59" y="4.5" type="Testo" width="11" pattern="1" text="Data inizio">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="70" y="4.5" type="Testo" width="10" pattern="1" text="Data fine">
<font face="Courier New" bold="1" size="10" />
</field>
<field y="5.25" type="Testo" width="12" pattern="1" text="Codice fase">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="59" y="5.25" type="Testo" width="11" pattern="1" text="Proroga">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="1" y="6.25" type="Linea" width="80" height="0" pattern="1" />
</section>
<section type="Head" level="1" />
<section type="Body" />
<section type="Body" level="1">
<field type="Stringa" width="25" pattern="1">
<source>CODCMSFAS</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE_FORMAT_CMSCDC</prescript>
</field>
<field x="25" type="Stringa" dynamic_height="1" width="34" height="2" pattern="1">
<source>DESCRIZ</source>
</field>
<field x="59" type="Data" width="10" pattern="1">
<source>DATAINIZIO</source>
</field>
<field x="70" type="Data" width="10" pattern="1">
<source>DATAFINE</source>
</field>
<field y="1" type="Stringa" width="15" pattern="1">
<source>CODFASE</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE_FORMAT_FASE</prescript>
</field>
<field x="59" y="1" type="Data" width="10" pattern="1">
<source>DATAPROR</source>
</field>
</section>
<section type="Foot" />
<section type="Foot" level="1" />
<sql>USE 148
FROM #DAFASE
TO #AFASE</sql>
</report>

4
ca/ca1700a.h
View File

@ -1,3 +1,3 @@
#define F_DAFASE 101 #define F_DAFASE 101
#define F_AFASE 102 #define F_AFASE 110
#define F_REPORT 103 #define F_REPORT 120

25
ca/ca1700a.uml
View File

@ -1,33 +1,20 @@
#include "ca1700a.h" #include "ca1700a.h"
PAGE "Stampa fasi" -1 -1 80 8 PAGE "Stampa fasi" -1 -1 80 17
STRING F_DAFASE 10 GROUPBOX DLG_NULL 78 6
BEGIN BEGIN
PROMPT 2 1 "Da Fase " PROMPT 2 1 "Da fase"
FIELD DA_FASE
USE LF_FASI
INPUT CODFASE F_DAFASE
DISPLAY "Codice@10" CODFASE
DISPLAY "Descrizione@50" DESCRIZ
OUTPUT F_DAFASE CODFASE
CHECKTYPE SEARCH
END END
STRING F_AFASE 10 GROUPBOX DLG_NULL 78 6
BEGIN BEGIN
PROMPT 2 3 "A Fase " PROMPT 2 7 "A fase"
FIELD A_FASE
COPY USE F_DAFASE
INPUT CODFASE F_AFASE
COPY DISPLAY F_DAFASE
OUTPUT F_AFASE CODFASE
CHECKTYPE SEARCH
END END
STRING F_REPORT 20 STRING F_REPORT 20
BEGIN BEGIN
PROMPT 2 5 "Tipo di stampa " PROMPT 2 14 "Tipo di stampa "
RSELECT "ca1700" RSELECT "ca1700"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END