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

Patch level : 2.2 68

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

RiInserita la stampa tabelle con i report


git-svn-id: svn://10.65.10.50/trunk@12899 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2005-04-02 22:36:24 +00:00
parent 6268384525
commit b04f556a02
96 changed files with 486 additions and 484 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
ba/ba3200.cpp
View File

@ -1,9 +1,33 @@
//Programma per stampa report tabelle
#include <applicat.h>
#include <automask.h>
#include <relation.h>
#include <reprint.h>
#include <tabutil.h>
#include "ba3200.h"
///////////////////////////////////////////////////////////
// TMask_print_table
///////////////////////////////////////////////////////////
class TMask_print_table : public TAutomask
{
protected:
bool on_field_event(TOperable_field& o, TField_event e, long jolly) {return true;}
public:
TMask_print_table(const char * name);
virtual ~TMask_print_table() {}
};
TMask_print_table::TMask_print_table(const char * name)
:TAutomask(name)
{
TEdit_field & f = add_string(F_REPORT, 0, "Report ", 2, -3, 20, "B");
f.set_query_button(new TReport_select(&f, name));
f.enable_check();
}
///////////////////////////////////////////////////////////
// TTable_report
@ -11,49 +35,13 @@
class TTable_report : public TReport
{
protected:
virtual bool execute_prescript();
public:
virtual bool use_mask() { return false;}
TTable_report() {}
virtual ~TTable_report() {}
};
bool TTable_report::execute_prescript()
{
TFilename msk = filename().name();
msk.ext(""); msk.lower();
TMask m(msk);
const bool ok = m.run() == K_ENTER;
if (ok)
{
TRectype rec_fr(LF_TAB), rec_to(LF_TAB);
for (int i = 0; i < m.fields(); i++)
{
const TMask_field& fld = m.fld(i);
const TFieldref* fr = fld.field();
if (fr != NULL)
{
if (fld.in_group(1))
fr->write(fld.get(), rec_fr);
if (fld.in_group(2))
fr->write(fld.get(), rec_to);
}
}
TString use = recordset()->query_text();
const TString& cod_fr = rec_fr.get("CODTAB");
if (cod_fr.not_empty())
use << "\nFROM CODTAB='" << cod_fr << '\'';
const TString& cod_to = rec_to.get("CODTAB");
if (cod_to.not_empty())
use << "\nTO CODTAB='" << cod_to << '\'';
set_recordset(use);
}
return ok;
}
///////////////////////////////////////////////////////////
// TTable_reporter
///////////////////////////////////////////////////////////
@ -82,16 +70,25 @@ bool TTable_reporter::get_rpt_name(TFilename& rptname) const
void TTable_reporter::main_loop()
{
TFilename rptname;
if (get_rpt_name(rptname))
{
while (true)
TFilename msk(rptname.name()); msk.ext(""); msk.lower();
TMask_print_table m(msk);
while (m.run() == K_ENTER)
{
TTable_report rep; rep.load(rptname);
TReport_book book;
if (book.add(rep))
book.print_or_preview();
else
break;
TTable_report rep;
TReport_book book;
TString name(m.get(F_REPORT));
if (name.empty())
name = rptname;
rep.load(name);
rep.mask2report(m);
book.add(rep);
book.print_or_preview();
}
}
else
@ -102,6 +99,6 @@ void TTable_reporter::main_loop()
int ba3200(int argc, char* argv[])
{
TTable_reporter app;
app.run(argc, argv, TR("Stampa Report Tabelle"));
app.run(argc, argv, TR("Stampa Tabelle"));
return 0;
}

1
ba/ba3200.h
View File

@ -23,6 +23,7 @@
#define F_FINE8 208
#define F_FINE9 209
#define F_FINE10 210
#define F_REPORT 250
#define F_CODDITTA 211
#define F_RAGSOC 212

7
ba/ba3300.cpp
View File

@ -245,13 +245,6 @@ bool Libribollati_print::codditta_handler(TMask_field& field, KEY key)
app().set_firm(codditta);
m.hide(exist_firm ? -4 : -3);
m.show(exist_firm ? -3 : -4);
//else
//{
//m.field(F_ANNO).hide();
//m.field(F_CODICE).hide();
//m.field(F_ANNOREG).show();
//m.field(F_CODICEREG).show();
//}
app()._ragsoc = nditte.get(N_RAGSOC);
m.set(F_RAGSOC,app()._ragsoc);

6
ba/bastais.rep
View File

@ -1,5 +1,5 @@
<report name="bastais" lpi="6">
<report libraries="bastais" name="bastais" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Attivita'">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %AIS</sql>
<sql>USE %AIS
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

4
ba/bastais.uml
View File

@ -7,7 +7,7 @@ BEGIN
PROMPT 2 1 "Da codice "
FLAGS "UZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD CODTAB
FIELD FROM
USE %AIS
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -21,7 +21,7 @@ BEGIN
PROMPT 3 3 "A codice "
FLAGS "UZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1

6
ba/bastasf.rep
View File

@ -1,5 +1,5 @@
<report name="bastasf" lpi="6">
<report libraries="bastasf" name="bastasf" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Stringa" width="50">
@ -39,5 +39,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE ASF</sql>
<sql>USE ASF
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

40
ba/bastasf.uml
View File

@ -3,37 +3,37 @@
PAGE "Stampa Classi fiscali articoli" -1 -1 50 8
STRING F_INIZIO1 2
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
USE ASF
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
PROMPT 2 1 "Da codice "
FLAGS "U"
USE ASF
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
FIELD FROM
END
STRING F_FINE1 2
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
PROMPT 2 3 "A codice "
FLAGS "U"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
FIELD TO
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

7
ba/bastban.rep
View File

@ -1,5 +1,5 @@
<report name="bastban" lpi="6">
<report libraries="bastban" name="bastban" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Banche">
@ -77,5 +77,8 @@ THEN
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %BAN
JOIN COMUNI INTO COM==S5</sql>
JOIN COMUNI INTO COM==S5
FROM CODTAB=#FROM
TO CODTAB=#TO
</sql>
</report>

14
ba/bastban.uml
View File

@ -6,8 +6,7 @@ STRING F_INIZIO1 5
BEGIN
PROMPT 2 1 "DA codice (ABI) "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[1,5]
FIELD FROM[1,5]
USE %BAN
INPUT CODTAB[1,5] F_INIZIO1
INPUT CODTAB[6,10] F_INIZIO2
@ -24,8 +23,7 @@ STRING F_INIZIO2 5
BEGIN
PROMPT 28 1 "DA codice (CAB) "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[6,10]
FIELD FROM[6,10]
COPY ALL F_INIZIO1
GROUP 1
END
@ -35,8 +33,7 @@ STRING F_FINE1 5
BEGIN
PROMPT 2 3 "A codice (ABI) "
FLAGS "RZ"
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[1,5]
FIELD TO[1,5]
COPY USE F_INIZIO1
INPUT CODTAB[1,5] F_FINE1
INPUT CODTAB[6,10] F_FINE2
@ -51,13 +48,12 @@ STRING F_FINE2 5
BEGIN
PROMPT 28 3 "A codice (CAB) "
FLAGS "RZ"
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[6,10]
FIELD TO[6,10]
COPY ALL F_FINE1
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastcam.rep
View File

@ -1,5 +1,5 @@
<report name="bastcam" lpi="6">
<report libraries="bastcam" name="bastcam" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Stringa" width="50">
@ -51,5 +51,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE CAM</sql>
<sql>USE CAM
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

14
ba/bastcam.uml
View File

@ -5,8 +5,7 @@ PAGE "Stampa Tabella Cambi Giornalieri" -1 -1 58 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da valuta "
HELP "Inserire la valuta iniziale "
FIELD CODTAB[1,3]
FIELD FROM[1,3]
USE CAM
JOIN %VAL ALIAS 200 INTO CODTAB=CODTAB[1,3]
INPUT CODTAB[1,3] F_INIZIO1
@ -23,8 +22,7 @@ END
DATE F_INIZIO2
BEGIN
PROMPT 28 1 "Da data "
HELP "Inserire la data iniziale"
FIELD CODTAB[4,11]
FIELD FROM[4,11]
COPY ALL F_INIZIO1
FLAGS "R"
GROUP 1
@ -33,8 +31,7 @@ END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A valuta "
HELP "Inserire la valuta finale "
FIELD CODTAB[1,3]
FIELD TO[1,3]
COPY USE F_INIZIO1
INPUT CODTAB[1,3] F_FINE1
INPUT CODTAB[4,11] F_FINE2
@ -51,14 +48,13 @@ END
DATE F_FINE2
BEGIN
PROMPT 28 3 "A data "
HELP "Inserire la data finale "
FIELD CODTAB[4,11]
FIELD TO[4,11]
FLAGS "R"
COPY ALL F_FINE1
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastcco.rep
View File

@ -1,5 +1,5 @@
<report name="bastcco" lpi="6">
<report libraries="bastcco" name="bastcco" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Stringa" width="50">
@ -63,5 +63,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE CCO</sql>
<sql>USE CCO
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/bastcco.uml
View File

@ -5,8 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE CCO
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -19,8 +18,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -28,7 +26,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastcfi.rep
View File

@ -1,5 +1,5 @@
<report name="bastcfi" lpi="6">
<report libraries="bastcfi" name="bastcfi" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Categorie Finanziarie">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %CFI</sql>
<sql>USE %CFI
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/bastcfi.uml
View File

@ -5,8 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE %CFI
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -19,8 +18,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -28,7 +26,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastclr.rep
View File

@ -1,5 +1,5 @@
<report name="bastclr" lpi="6">
<report libraries="bastclr" name="bastclr" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Classificazione Pagamenti">
@ -42,5 +42,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE CLR</sql>
<sql>USE CLR
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

13
ba/bastclr.uml
View File

@ -5,8 +5,7 @@ PAGE "Stampa classificazione rate" -1 -1 50 8
STRING F_INIZIO1 1
BEGIN
PROMPT 4 1 "Da Codice "
HELP "Codice della rata dell'ulteriore classificazione"
FIELD CODTAB[1,1]
FIELD FROM[1,1]
SHEET "Cod|Descrizione@60"
INPUT F_INIZIO1
OUTPUT F_INIZIO1
@ -25,7 +24,7 @@ END
STRING F_INIZIO2 1
BEGIN
PROMPT 20 1 ""
FIELD CODTAB[2,2]
FIELD FROM[2,2]
KEY 1
USE %CLR
INPUT CODTAB[1,1] F_INIZIO1
@ -35,7 +34,6 @@ BEGIN
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,1]
OUTPUT F_INIZIO2 CODTAB[2,2]
HELP "Codice dell' ulteriore classificazione"
GROUP 1
END
@ -43,7 +41,7 @@ STRING F_FINE1 1
BEGIN
PROMPT 4 3 "Da Codice "
HELP "Codice della rata dell'ulteriore classificazione"
FIELD CODTAB[1,1]
FIELD TO[1,1]
SHEET "Cod|Descrizione@60"
INPUT F_FINE1
OUTPUT F_FINE1
@ -62,7 +60,7 @@ END
STRING F_FINE2 1
BEGIN
PROMPT 20 3 ""
FIELD CODTAB[2,2]
FIELD TO[2,2]
KEY 1
COPY USE F_INIZIO2
INPUT CODTAB[1,1] F_FINE1
@ -72,11 +70,10 @@ BEGIN
DISPLAY "Descrizione@50" S0
OUTPUT F_FINE1 CODTAB[1,1]
OUTPUT F_FINE2 CODTAB[2,2]
HELP "Codice dell' ulteriore classificazione"
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

7
ba/bastcms.rep
View File

@ -1,5 +1,5 @@
<report name="bastcms" lpi="6">
<report libraries="bastcms" name="bastcms" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Stringa" width="50">
@ -113,5 +113,8 @@
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE CMS
JOIN CLIFO INTO TIPOCF=="C" CODCF==I0</sql>
JOIN CLIFO INTO TIPOCF=="C" CODCF==I0
FROM CODTAB=#FROM
TO CODTAB=#TO
</sql>
</report>

42
ba/bastcms.uml
View File

@ -3,39 +3,37 @@
PAGE "Stampa Tabella Commesse" -1 -1 50 8
STRING F_INIZIO1 20
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD CODTAB
USE CMS
INPUT CODTAB F_INIZIO1
DISPLAY "Codice@20" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
PROMPT 2 1 "Da codice "
FLAGS "U"
FIELD FROM
USE CMS
INPUT CODTAB F_INIZIO1
DISPLAY "Codice@20" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 20
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
PROMPT 2 3 "A codice "
FLAGS "U"
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

6
ba/bastcpg.rep
View File

@ -1,5 +1,5 @@
<report name="bastcpg" lpi="6">
<report libraries="bastcpg" name="bastcpg" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Classificazione Pagamenti">
@ -59,5 +59,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %CPG</sql>
<sql>USE %CPG
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

6
ba/bastcrs.rep
View File

@ -1,5 +1,5 @@
<report name="bastcrs" lpi="6">
<report libraries="bastcrs" name="bastcrs" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Cariche sociali">
@ -41,5 +41,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %CRS</sql>
<sql>USE %CRS
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/bastcrs.uml
View File

@ -6,8 +6,7 @@ STRING F_INIZIO1 2
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE %CRS
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -20,8 +19,7 @@ STRING F_FINE1 2
BEGIN
PROMPT 2 3 "A codice "
FLAGS "RZ"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -29,7 +27,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastctr.rep
View File

@ -1,5 +1,5 @@
<report name="bastctr" lpi="6">
<report libraries="bastctr" name="bastctr" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Causali di Trasporto">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %CTR</sql>
<sql>USE %CTR
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

42
ba/bastctr.uml
View File

@ -3,39 +3,37 @@
PAGE "Stampa Causali di Trasporto" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD CODTAB
USE %CTR
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
PROMPT 2 1 "Da codice "
FLAGS "U"
FIELD FROM
USE %CTR
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
PROMPT 2 3 "A codice "
FLAGS "U"
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

6
ba/bastcve.rep
View File

@ -1,5 +1,5 @@
<report name="bastcve" lpi="6">
<report libraries="bastcve" name="bastcve" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Categorie di Vendita">
@ -81,5 +81,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE CVE</sql>
<sql>USE CVE
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/bastcve.uml
View File

@ -5,8 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD CODTAB
FIELD FROM
USE CVE
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -22,8 +21,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -31,7 +29,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastdpn.rep
View File

@ -1,5 +1,5 @@
<report name="bastdpn" lpi="6">
<report libraries="bastdpn" name="bastdpn" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Descrizioni Aggiuntive di Prima Nota">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %DPN</sql>
<sql>USE %DPN
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

6
ba/bastdpn.uml
View File

@ -11,7 +11,7 @@ BEGIN
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_INIZIO1 CODTAB
FIELD CODTAB
FIELD FROM
GROUP 1
END
@ -22,12 +22,12 @@ BEGIN
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
FIELD CODTAB
FIELD TO
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastesc.rep
View File

@ -1,5 +1,5 @@
<report name="bastesc" lpi="6">
<report libraries="bastesc" name="bastesc" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Esercizi">
@ -45,5 +45,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE ESC</sql>
<sql>USE ESC
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

20
ba/bastesc.uml
View File

@ -4,41 +4,37 @@ PAGE "Stampa esercizi" -1 -1 50 8
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
FLAGS "FRD"
PROMPT 2 1 "Ditta "
FLAGS "FRD"
END
NUMBER F_INIZIO1 4
BEGIN
PROMPT 2 3 "Da anno "
HELP "Anno esercizio con cui iniziare la stampa"
FIELD LF_TAB->CODTAB
FIELD FROM
FLAGS "ZR"
USE ESC KEY 1
INPUT CODTAB F_INIZIO1
DISPLAY "Anno esercizio" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1
OUTPUT F_INIZIO1 CODTAB
DISPLAY "Data fine esercizio" D1
OUTPUT F_INIZIO1 CODTAB
GROUP 1
ADD NONE
END
NUMBER F_FINE1 4
BEGIN
PROMPT 25 3 "a anno "
HELP "Anno esercizio con cui finire la stampa"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
FLAGS "ZR"
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
OUTPUT F_FINE1 CODTAB
GROUP 2
ADD NONE
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -2 ""
END

6
ba/bastfsc.rep
View File

@ -1,5 +1,5 @@
<report name="bastfsc" lpi="6">
<report libraries="bastfsc" name="bastfsc" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Fasi Commesse">
@ -39,5 +39,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE FSC</sql>
<sql>USE FSC
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

42
ba/bastfsc.uml
View File

@ -3,39 +3,37 @@
PAGE "Stampa Tabella Fasi" -1 -1 50 8
STRING F_INIZIO1 10
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD CODTAB
USE FSC
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
PROMPT 2 1 "Da codice "
FLAGS "U"
FIELD FROM
USE FSC
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 10
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
PROMPT 2 3 "A codice "
FLAGS "U"
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

6
ba/bastitl.rep
View File

@ -1,5 +1,5 @@
<report name="bastitl" lpi="6">
<report libraries="bastitl" name="bastitl" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella dei Libri Sociali">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %ITL</sql>
<sql>USE %ITL
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

6
ba/bastitl.uml
View File

@ -11,7 +11,7 @@ BEGIN
DISPLAY "Nome libro@50" S0
OUTPUT F_INIZIO1 CODTAB
FLAGS "Z"
FIELD CODTAB
FIELD FROM
GROUP 1
END
@ -22,12 +22,12 @@ BEGIN
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FIELD CODTAB
FIELD TO
FLAGS "Z"
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastiva.rep
View File

@ -1,5 +1,5 @@
<report name="bastiva" lpi="6">
<report libraries="bastiva" name="bastiva" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Codici IVA">
@ -163,5 +163,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %IVA</sql>
<sql>USE %IVA
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

10
ba/bastiva.uml
View File

@ -6,23 +6,21 @@ STRING F_INIZIO1 4
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se vuoto significa dall'inizio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE %IVA
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
VALIDATE ZEROFILL_FUNC 2
VALIDATE ZEROFILL_FUNC 2
END
STRING F_FINE1 4
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se vuoto significa fino all'ultimo"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -31,7 +29,7 @@ BEGIN
VALIDATE ZEROFILL_FUNC 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastivd.rep
View File

@ -1,5 +1,5 @@
<report name="bastivd" lpi="6">
<report libraries="bastivd" name="bastivd" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella dei Codici IV Direttiva">
@ -53,5 +53,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %IVD</sql>
<sql>USE %IVD
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

18
ba/bastivd.uml
View File

@ -11,8 +11,7 @@ STRING F_INIZIO1 1
BEGIN
PROMPT 2 2 "Sezione "
FLAGS "U"
HELP "Codice da cui iniziare la stampa"
FIELD CODTAB[1,1]
FIELD FROM[1,1]
USE %IVD
INPUT CODTAB[1,1] F_INIZIO1
INPUT CODTAB[2,2] F_INIZIO2
@ -34,7 +33,7 @@ STRING F_INIZIO2 1
BEGIN
PROMPT 17 2 "Lettera "
FLAGS "U"
FIELD CODTAB[2,2]
FIELD FROM[2,2]
COPY ALL F_INIZIO1
GROUP 1
END
@ -43,7 +42,7 @@ NUMBER F_INIZIO3 8 4
BEGIN
PROMPT 31 2 "Classe "
FLAGS "UM"
FIELD CODTAB[3,6]
FIELD FROM[3,6]
COPY ALL F_INIZIO1
GROUP 1
END
@ -52,7 +51,7 @@ NUMBER F_INIZIO4 2
BEGIN
PROMPT 52 2 "Numero "
FLAGS "RZ"
FIELD CODTAB[7,8]
FIELD FROM[7,8]
COPY ALL F_INIZIO1
GROUP 1
END
@ -65,8 +64,7 @@ END
STRING F_FINE1 1
BEGIN
PROMPT 2 5 "Sezione "
HELP "Codice finale da stampare"
FIELD CODTAB[1,1]
FIELD TO[1,1]
FLAGS "U"
COPY USE F_INIZIO1
INPUT CODTAB[1,1] F_FINE1
@ -86,7 +84,7 @@ BEGIN
PROMPT 17 5 "Lettera "
FLAGS "U"
COPY ALL F_FINE1
FIELD CODTAB[2,2]
FIELD TO[2,2]
GROUP 2
END
@ -94,7 +92,7 @@ NUMBER F_FINE3 8 4
BEGIN
PROMPT 31 5 "Classe "
FLAGS "UM"
FIELD CODTAB[3,6]
FIELD TO[3,6]
COPY ALL F_FINE1
GROUP 2
END
@ -103,7 +101,7 @@ NUMBER F_FINE4 2
BEGIN
PROMPT 52 5 "Numero "
FLAGS "RZ"
FIELD CODTAB[7,8]
FIELD TO[7,8]
COPY ALL F_FINE1
GROUP 2
END

6
ba/bastleg.rep
View File

@ -1,5 +1,5 @@
<report name="bastleg" lpi="6">
<report libraries="bastleg" name="bastleg" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Codici Legali">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %LEG</sql>
<sql>USE %LEG
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/bastleg.uml
View File

@ -5,8 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE %LEG
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -19,8 +18,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -28,7 +26,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastlis.rep
View File

@ -1,5 +1,5 @@
<report name="bastlis" lpi="6">
<report libraries="bastlis" name="bastlis" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Codici Listini">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %LIS</sql>
<sql>USE %LIS
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/bastlis.uml
View File

@ -5,8 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE %LIS
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -19,8 +18,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -28,7 +26,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastlng.rep
View File

@ -1,5 +1,5 @@
<report name="bastlng" lpi="6">
<report libraries="bastlng" name="bastlng" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Lingue">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %LNG</sql>
<sql>USE %LNG
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

6
ba/bastlng.uml
View File

@ -11,7 +11,7 @@ BEGIN
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_INIZIO1 CODTAB
FIELD CODTAB
FIELD FROM
GROUP 1
END
@ -23,11 +23,11 @@ BEGIN
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FILED CODTAB
FILED TO
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastmsp.rep
View File

@ -1,5 +1,5 @@
<report name="bastmsp" lpi="6">
<report libraries="bastmsp" name="bastmsp" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Modalita' di Spedizione">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %MSP</sql>
<sql>USE %MSP
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/bastmsp.uml
View File

@ -5,8 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE %MSP
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -19,8 +18,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -28,7 +26,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastndo.rep
View File

@ -1,5 +1,5 @@
<report name="bastndo" lpi="6">
<report libraries="bastndo" name="bastndo" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Note Documento">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %NDO</sql>
<sql>USE %NDO
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/bastndo.uml
View File

@ -5,8 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE %NDO
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -19,8 +18,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -28,7 +26,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastnoc.rep
View File

@ -1,5 +1,5 @@
<report name="bastnoc" lpi="6">
<report libraries="bastnoc" name="bastnoc" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Nomenclatura Combinata">
@ -59,5 +59,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %NOC</sql>
<sql>USE %NOC
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

14
ba/bastnoc.uml
View File

@ -17,7 +17,7 @@ BEGIN
OUTPUT F_INIZIO1 CODTAB[1,4]
OUTPUT F_INIZIO2 CODTAB[5,6]
OUTPUT F_INIZIO3 CODTAB[7,8]
FIELD CODTAB[1,4]
FIELD FROM[1,4]
GROUP 1
END
@ -26,7 +26,7 @@ BEGIN
PROMPT 22 1 ""
FLAGS "U"
COPY ALL F_INIZIO1
FIELD CODTAB[5,6]
FIELD FROM[5,6]
GROUP 1
END
@ -35,7 +35,7 @@ BEGIN
PROMPT 27 1 ""
FLAGS "U"
COPY ALL F_INIZIO1
FIELD CODTAB[7,8]
FIELD FROM[7,8]
GROUP 1
END
@ -54,7 +54,7 @@ BEGIN
OUTPUT F_FINE1 CODTAB[1,4]
OUTPUT F_FINE2 CODTAB[5,6]
OUTPUT F_FINE3 CODTAB[7,8]
FIELD CODTAB[1,4]
FIELD TO[1,4]
GROUP 2
END
@ -63,7 +63,7 @@ BEGIN
PROMPT 22 3 ""
FLAGS "U"
COPY ALL F_FINE1
FIELD CODTAB[5,6]
FIELD TO[5,6]
GROUP 2
END
@ -72,11 +72,11 @@ BEGIN
PROMPT 27 3 ""
FLAGS "U"
COPY ALL F_FINE1
FIELD CODTAB[7,8]
FIELD TO[7,8]
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastnot.rep
View File

@ -1,5 +1,5 @@
<report name="bastnot" lpi="6">
<report libraries="bastnot" name="bastnot" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Note Cliente">
@ -41,5 +41,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %NOT</sql>
<sql>USE %NOT
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/bastnot.uml
View File

@ -5,8 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE %NOT
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -20,8 +19,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -29,7 +27,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastois.rep
View File

@ -1,5 +1,5 @@
<report name="bastois" lpi="6">
<report libraries="bastois" name="bastois" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Vecchi Codici Attivita'">
@ -41,5 +41,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %OIS</sql>
<sql>USE %OIS
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

14
ba/bastois.uml
View File

@ -6,9 +6,8 @@ STRING F_INIZIO1 4
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
USE %OIS
FIELD CODTAB[1,4]
FIELD FROM[1,4]
INPUT CODTAB[1,4] F_INIZIO1
INPUT CODTAB[5,] F_INIZIO2
DISPLAY "Codice" CODTAB[1,4]
@ -22,9 +21,8 @@ END
STRING F_INIZIO2 1
BEGIN
PROMPT 28 1 "subcodice "
HELP "Subcodice da cui iniziare la stampa. Vuoto = inizio archivio"
FLAGS "U"
FIELD CODTAB[5,]
FIELD FROM[5,]
COPY ALL F_INIZIO1
GROUP 1
END
@ -34,9 +32,8 @@ STRING F_FINE1 4
BEGIN
PROMPT 2 3 "A codice "
FLAGS "RZ"
HELP "Codice di fine. Vuoto = fine archivio"
COPY USE F_INIZIO1
FIELD CODTAB[1,4]
FIELD TO[1,4]
INPUT CODTAB[1,4] F_FINE1
INPUT CODTAB[5,] F_FINE2
COPY DISPLAY F_INIZIO1
@ -50,13 +47,12 @@ STRING F_FINE2 1
BEGIN
PROMPT 28 3 "subcodice "
FLAGS "U"
FIELD CODTAB[5,]
HELP "Subcodice di fine. Vuoto = fine archivio"
FIELD TO[5,]
COPY ALL F_FINE1
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastpor.rep
View File

@ -1,5 +1,5 @@
<report name="bastpor" lpi="6">
<report libraries="bastpor" name="bastpor" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Modalita' di Consegna">
@ -47,5 +47,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %POR</sql>
<sql>USE %POR
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/bastpor.uml
View File

@ -5,8 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE %POR
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -19,8 +18,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -28,7 +26,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastreg.rep
View File

@ -1,5 +1,5 @@
<report name="bastreg" lpi="6">
<report libraries="bastreg" name="bastreg" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Stringa" width="50">
@ -91,5 +91,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE REG</sql>
<sql>USE REG
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

24
ba/bastreg.uml
View File

@ -4,16 +4,15 @@ PAGE "Stampa registri" -1 -1 74 8
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
HELP "Ditta di cui stampare i registri"
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
PROMPT 1 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
END
STRING F_RAGSOC 50
@ -32,8 +31,7 @@ NUMBER F_INIZIO2 4
BEGIN
PROMPT 1 4 "Stampa i registri dell'anno "
FLAGS "RZ"
FIELD CODTAB[1,4]
HELP "Stampa i registri dell'anno indicato. Vuoto = tutti i registri"
FIELD FROM[1,4]
MESSAGE COPY, F_FINE2
GROUP 1
END
@ -42,7 +40,7 @@ END
NUMBER F_FINE2 4
BEGIN
FLAGS "HRZ"
FIELD CODTAB[1,4]
FIELD TO[1,4]
GROUP 2
END

6
ba/bastsad.rep
View File

@ -1,5 +1,5 @@
<report name="bastsad" lpi="6">
<report libraries="bastsad" name="bastsad" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Spese da Addebitare">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %SAD</sql>
<sql>USE %SAD
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/bastsad.uml
View File

@ -5,8 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE %SAD
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -19,8 +18,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -28,7 +26,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastscc.rep
View File

@ -1,5 +1,5 @@
<report name="bastscc" lpi="6">
<report libraries="bastscc" name="bastscc" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Sconti Clienti">
@ -41,5 +41,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %SCC</sql>
<sql>USE %SCC
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/bastscc.uml
View File

@ -5,8 +5,7 @@ STRING F_INIZIO1 2
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE %SCC
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -19,8 +18,7 @@ STRING F_FINE1 2
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -28,7 +26,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastsce.rep
View File

@ -1,5 +1,5 @@
<report name="bastsce" lpi="6">
<report libraries="bastsce" name="bastsce" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Stati CEE">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %SCE</sql>
<sql>USE %SCE
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

6
ba/bastsce.uml
View File

@ -10,7 +10,7 @@ BEGIN
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
FIELD CODTAB
FIELD FROM
FLAGS "U"
GROUP 1
END
@ -23,12 +23,12 @@ BEGIN
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_FINE1 CODTAB
FIELD CODTAB
FIELD TO
GROUP 2
FLAGS "U"
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/baststa.rep
View File

@ -1,5 +1,5 @@
<report name="baststa" lpi="6">
<report libraries="baststa" name="baststa" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Stati">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %STA</sql>
<sql>USE %STA
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/baststa.uml
View File

@ -6,8 +6,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE %STA
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -20,8 +19,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "RZ"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -29,7 +27,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/baststt.rep
View File

@ -1,5 +1,5 @@
<report name="baststt" lpi="6">
<report libraries="baststt" name="baststt" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Codici Statistici">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %STT</sql>
<sql>USE %STT
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/baststt.uml
View File

@ -5,8 +5,7 @@ PAGE "Stampa codici statistici" -1 -1 50 8
STRING F_INIZIO1 7
BEGIN
PROMPT 2 1 "Da codice "
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE %STT
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -18,8 +17,7 @@ END
STRING F_FINE1 7
BEGIN
PROMPT 2 3 "A codice "
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -27,7 +25,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastsua.rep
View File

@ -1,5 +1,5 @@
<report name="bastsua" lpi="6">
<report libraries="bastsua" name="bastsua" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Stringa" width="50">
@ -78,5 +78,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE SUA</sql>
<sql>USE SUA
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

14
ba/bastsua.uml
View File

@ -5,8 +5,7 @@ PAGE "Stampa Tabella Gestione Subagenti" -1 -1 58 8
STRING F_INIZIO1 5
BEGIN
PROMPT 2 1 "Da cod. agente "
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[1,5]
FIELD FROM[1,5]
USE AGE
INPUT CODTAB[1,5] F_INIZIO1
DISPLAY "Codice Agente" CODTAB[1,5]
@ -18,8 +17,7 @@ END
STRING F_INIZIO2 2
BEGIN
PROMPT 28 1 "Da cod. subagente "
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[6,7]
FIELD FROM[6,7]
USE SUA
INPUT CODTAB[1,5] F_INIZIO1
INPUT CODTAB[6,7] F_INIZIO2
@ -35,8 +33,7 @@ END
STRING F_FINE1 5
BEGIN
PROMPT 2 3 "A codice agente "
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[1,5]
FIELD TO[1,5]
COPY USE F_INIZIO1
INPUT CODTAB[1,5] F_FINE1
COPY DISPLAY F_INIZIO1
@ -48,8 +45,7 @@ END
STRING F_FINE2 2
BEGIN
PROMPT 28 3 "A codice subagente "
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[6,7]
FIELD TO[6,7]
USE SUA
INPUT CODTAB[1,5] F_FINE1
INPUT CODTAB[6,7] F_FINE2
@ -61,7 +57,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/basttit.rep
View File

@ -1,5 +1,5 @@
<report name="basttit" lpi="6">
<report libraries="basttit" name="basttit" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Titoli Onorifici">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %TIT</sql>
<sql>USE %TIT
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/basttit.uml
View File

@ -5,8 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE %TIT
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -19,8 +18,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
@ -28,7 +26,7 @@ BEGIN
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/basttpd.rep
View File

@ -1,5 +1,5 @@
<report name="basttpd" lpi="6">
<report libraries="basttpd" name="basttpd" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Tipi Documento">
@ -53,5 +53,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %TPD</sql>
<sql>USE %TPD
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

6
ba/basttpd.uml
View File

@ -11,7 +11,7 @@ BEGIN
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
FLAGS "U"
FIELD LF_TABCOM->CODTAB
FIELD FROM
GROUP 1
END
@ -23,11 +23,11 @@ BEGIN
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FLAGS "U"
FIELD LF_TABCOM->CODTAB
FIELD TO
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastucc.rep
View File

@ -1,5 +1,5 @@
<report name="bastucc" lpi="6">
<report libraries="bastucc" name="bastucc" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Uffici Concessioni">
@ -73,5 +73,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %UCC</sql>
<sql>USE %UCC
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

6
ba/bastucc.uml
View File

@ -5,13 +5,12 @@ PAGE "Stampa uffici concessione" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
USE %UCC
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Ufficio@30" S0
OUTPUT F_INIZIO1 CODTAB
FIELD LF_TABCOM->CODTAB
FIELD FROM
GROUP 1
FLAGS "RZ"
END
@ -19,12 +18,11 @@ END
NUMBER F_FINE1 3
BEGIN
PROMPT 3 3 "A codice "
HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FIELD LF_TABCOM->CODTAB
FIELD TO
GROUP 2
FLAGS "RZ"
END

6
ba/bastucs.rep
View File

@ -1,5 +1,5 @@
<report name="bastucs" lpi="6">
<report libraries="bastucs" name="bastucs" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Centri di Servizio">
@ -61,5 +61,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %UCS</sql>
<sql>USE %UCS
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

6
ba/bastucs.uml
View File

@ -5,27 +5,25 @@ PAGE "Stampa centri servizio" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
USE %UCS
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
FIELD CODTAB
FIELD FROM
FLAGS "RZ"
END
NUMBER F_FINE1 3
BEGIN
PROMPT 4 3 "A codice "
HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
FIELD CODTAB
FIELD TO
FLAGS "RZ"
END

6
ba/bastues.rep
View File

@ -1,5 +1,5 @@
<report name="bastues" lpi="6">
<report libraries="bastues" name="bastues" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Uffici Esattoria">
@ -61,5 +61,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %UES</sql>
<sql>USE %UES
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

6
ba/bastues.uml
View File

@ -5,27 +5,25 @@ PAGE "Stampa uffici esattoria" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
USE %UES
FLAGS "RZ"
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@25" S0
OUTPUT F_INIZIO1 CODTAB
FIELD LF_TABCOM->CODTAB
FIELD FROM
GROUP 1
END
NUMBER F_FINE1 3
BEGIN
PROMPT 3 3 "A codice "
HELP "Codice di fine. Vuoto = fine archivio"
COPY USE F_INIZIO1
FLAGS "RZ"
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FIELD LF_TABCOM->CODTAB
FIELD TO
GROUP 2
END

6
ba/bastuid.rep
View File

@ -1,5 +1,5 @@
<report name="bastuid" lpi="6">
<report libraries="bastuid" name="bastuid" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Uffici Imposte Dirette">
@ -61,5 +61,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %UID</sql>
<sql>USE %UID
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/bastuid.uml
View File

@ -5,13 +5,12 @@ PAGE "Stampa Uffici Imposte Dirette" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
USE %UID
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB
FIELD LF_TABCOM->CODTAB
FIELD FROM
GROUP 1
FLAGS "RZ"
END
@ -19,17 +18,16 @@ END
NUMBER F_FINE1 3
BEGIN
PROMPT 3 3 "A codice "
HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
FIELD LF_TABCOM->CODTAB
FIELD TO
FLAGS "RZ"
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastuiv.rep
View File

@ -1,5 +1,5 @@
<report name="bastuiv" lpi="6">
<report libraries="bastuiv" name="bastuiv" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Uffici IVA">
@ -61,5 +61,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %UIV</sql>
<sql>USE %UIV
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

4
ba/bastuiv.uml
View File

@ -12,7 +12,7 @@ BEGIN
OUTPUT F_INIZIO1 CODTAB
GROUP 1
FLAGS "RZ"
FIELD LF_TABCOM->CODTAB
FIELD FROM
END
NUMBER F_FINE1 3
@ -24,7 +24,7 @@ BEGIN
OUTPUT F_FINE1 CODTAB
GROUP 2
FLAGS "RZ"
FIELD LF_TABCOM->CODTAB
FIELD TO
END
BUTTON DLG_PRINT 10 2

6
ba/basture.rep
View File

@ -1,5 +1,5 @@
<report name="basture" lpi="6">
<report libraries="basture" name="basture" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Uffici Registro">
@ -61,5 +61,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %URE</sql>
<sql>USE %URE
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

8
ba/basture.uml
View File

@ -5,7 +5,6 @@ PAGE "Stampa Uffici registro" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
USE %URE
FLAGS "U"
INPUT CODTAB F_INIZIO1
@ -13,25 +12,24 @@ BEGIN
DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB
FLAGS "RZ"
FIELD CODTAB
FIELD FROM
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 4 3 "A codice "
HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
FLAGS "U"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FLAGS "RZ"
FIELD CODTAB
FIELD TO
GROUP 2
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END

6
ba/bastuue.rep
View File

@ -1,5 +1,5 @@
<report name="bastuue" lpi="6">
<report libraries="bastuue" name="bastuue" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Uffici Unici Entrate">
@ -35,5 +35,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %UUE</sql>
<sql>USE %UUE
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

4
ba/bastuue.uml
View File

@ -10,7 +10,7 @@ BEGIN
DISPLAY "Codice" CODTAB
DISPLAY "Dizione@30" S0
OUTPUT F_INIZIO1 CODTAB
FIELD CODTAB
FIELD FROM
GROUP 1
FLAGS "RZ"
END
@ -22,7 +22,7 @@ BEGIN
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FIELD CODTAB
FIELD TO
GROUP 2
FLAGS "RZ"
END

6
ba/bastval.rep
View File

@ -1,5 +1,5 @@
<report name="bastval" lpi="6">
<report libraries="bastval" name="bastval" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Valute">
@ -47,5 +47,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %VAL</sql>
<sql>USE %VAL
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

6
ba/bastval.uml
View File

@ -5,8 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "UZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
FIELD FROM
USE %VAL
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -19,8 +18,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "UZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1

6
ba/bastver.rep
View File

@ -1,5 +1,5 @@
<report name="bastver" lpi="6">
<report libraries="bastver" name="bastver" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Versamenti ed Interessi IVA">
@ -115,5 +115,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %VER</sql>
<sql>USE %VER
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

12
ba/bastver.uml
View File

@ -5,9 +5,8 @@ PAGE "Stampa tabella versamenti ed interessi IVA " -1 -1 40 8
NUMBER F_INIZIO1 4
BEGIN
PROMPT 1 1 "Da anno "
HELP "Anno esercizio con cui iniziare la stampa"
FLAGS "ZR"
FIELD %VER->CODTAB[1,4]
FIELD FROM[1,4]
USE %VER KEY 1
INPUT CODTAB[1,4] F_INIZIO1
DISPLAY "Anno esercizio@23" CODTAB[1,4]
@ -20,9 +19,8 @@ END
NUMBER F_INIZIO2 2
BEGIN
PROMPT 28 1 "Mese "
HELP "Mese esercizio con cui iniziare la stampa"
FLAGS "ZR"
FIELD %VER->CODTAB[5,6]
FIELD TO[5,6]
COPY USE F_INIZIO1
INPUT CODTAB[1,4] F_INIZIO1
INPUT CODTAB[5,6] F_INIZIO2
@ -34,9 +32,8 @@ END
NUMBER F_FINE1 4
BEGIN
PROMPT 1 3 "Ad anno "
HELP "Anno esercizio con cui finire la stampa"
FLAGS "ZR"
FIELD %VER->CODTAB[1,4]
FIELD TO[1,4]
COPY USE F_INIZIO1
INPUT CODTAB[1,4] F_FINE1
COPY DISPLAY F_INIZIO1
@ -48,9 +45,8 @@ END
NUMBER F_FINE2 2
BEGIN
PROMPT 28 3 "Mese "
HELP "Mese esercizio con cui finire la stampa"
FLAGS "ZR"
FIELD %VER->CODTAB[5,6]
FIELD TO[5,6]
COPY USE F_INIZIO1
INPUT CODTAB[1,4] F_FINE1
INPUT CODTAB[5,6] F_FINE2

7
ba/bastvet.rep
View File

@ -1,5 +1,5 @@
<report name="bastvet" lpi="6">
<report libraries="bastvet" name="bastvet" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Vettori">
@ -108,5 +108,8 @@
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE %VET
JOIN COMUNI INTO COM==S9
JOIN %STA ALIAS 200 INTO CODTAB==S8</sql>
JOIN %STA ALIAS 200 INTO CODTAB==S8
FROM CODTAB=#FROM
TO CODTAB=#TO
</sql>
</report>

41
ba/bastvet.uml
View File

@ -4,40 +4,37 @@ PAGE "Stampa vettori" -1 -1 50 8
STRING F_INIZIO1 6
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "ZU"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %VET
INPUT CODTAB F_INIZIO1
DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0
OUTPUT F_INIZIO1 CODTAB
KEY 1
GROUP 1
PROMPT 2 1 "Da codice "
FLAGS "ZU"
FIELD FROM
USE %VET
INPUT CODTAB F_INIZIO1
DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 6
BEGIN
PROMPT 2 3 "A codice "
FLAGS "ZU"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
PROMPT 2 3 "A codice "
FLAGS "ZU"
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

6
ba/bastzon.rep
View File

@ -1,5 +1,5 @@
<report name="bastzon" lpi="6">
<report libraries="bastzon" name="bastzon" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Zone">
@ -39,5 +39,7 @@
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<sql>USE ZON</sql>
<sql>USE ZON
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

6
ba/bastzon.uml
View File

@ -5,8 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD CODTAB
FIELD FROM
USE ZON
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -19,8 +18,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD CODTAB
FIELD TO
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1