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

Stampe delle tabello formato con form

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4609 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-06-12 14:58:19 +00:00
parent c403b2a41b
commit 50bb1a168b
3 changed files with 235 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
mg/mg0200.cpp
View File

@ -7,36 +7,61 @@
#include <tabutil.h>
#include <urldefid.h>
#include <utility.h>
#include "MG0200.h"
class TStampa_tabmag : public TApplication
{
TMask * _mask;
TForm * _form;
void set_print(TString & tabname);
protected:
virtual bool create();
virtual bool destroy();
};
void TStampa_tabmag::set_print(TString & tabname)
{
TString filter;
TRectype from_rec(LF_TAB),to_rec(LF_TAB);
from_rec.put("COD",tabname);
from_rec.put("CODTAB",_mask->get(F_INIZIO1));
to_rec.put("COD",tabname);
to_rec.put("CODTAB",_mask->get(F_FINE1));
if (tabname=="FCA" || tabname=="FCG") {
if (*_mask->get(F_INIZIO2))
filter << "500@->CODTAB[2,20]>=" << _mask->get(F_INIZIO2);
if (filter.not_empty())
filter << "&&";
if (*_mask->get(F_FINE2))
filter << "500@->CODTAB[2,20]<=" << _mask->get(F_FINE2);
_form->find_field('B',odd_page,"GRUPPI").show(_mask->get_bool(F_DETTAGLIO));
}
_form->cursor()->setregion(from_rec,to_rec);
if (filter.not_empty())
_form->cursor()->setfilter(filter);
}
bool TStampa_tabmag::create()
{
_mask = new TMask("bastgca");
while (TRUE) {
if (_mask->run() != K_ENTER)
return FALSE;
TString16 maskname("bast");
TString16 formname("tab_");
TString16 tabname(argv(2));
tabname.upper();
/* _mask->get(F_INIZIO1);
_mask->get(F_INIZIO2);
_mask->get(F_FINE1);
_mask->get(F_FINE2);*/
maskname << tabname;
formname << tabname;
_form = new TForm("tab_gca");
_mask = new TMask(maskname);
while ((_mask->run() == K_ENTER)) {
_form = new TForm(formname);
set_print(tabname);
_form->print();
delete _form;
} // while true
return TRUE;
} // while
return FALSE;
}
bool TStampa_tabmag::destroy()
{
delete _mask;

99
mg/tab_fca.frm Executable file
View File

@ -0,0 +1,99 @@
USE FCA
JOIN GCA TO 5 ALIAS 500 INTO CODTAB[1,1]==CODTAB
END
DESCRIPTION
BEGIN
5->* "Formato del codice"
500->* "Gruppi codice"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 12
CARATTERE "X"
INIZIALE 5 2
FINALE 133
END
SECTION HEADER ODD 3
STRINGA 100 132 1
BEGIN
PROMPT 1 1 "----------------------------------------------------------------------------------------------"
END
STRINGA 101 132 1
BEGIN
PROMPT 21 2 "Tabella Gruppi Formato Codice Articoli"
END
STRINGA 100 132 1
BEGIN
PROMPT 1 3 "----------------------------------------------------------------------------------------------"
END
END
SECTION BODY ODD 2
STRINGA 110 20 1
BEGIN
KEY "CODICE livelo"
PROMPT 2 1 "Livello "
FIELD CODTAB
END
STRINGA 111 50 1
BEGIN
KEY "DESCR.livelo"
PROMPT 12 1 ""
FIELD S0
END
STRINGA 112 18
BEGIN
KEY "FORM.livelo"
PROMPT 4 2 "Formato "
FIELD S1
//PICTURE "('','')"
END
SECTION GRUPPO 3 1 0 FILE -500
SECTION GRUPPI 1 1 1 GROUP
STRINGA 120 20 1
BEGIN
KEY "CODICE livelo"
PROMPT 12 1 ""
FIELD 500@->CODTAB[2,20]
END
STRINGA 121 50 1
BEGIN
KEY "DESCR.livelo"
PROMPT 32 1 ""
FIELD 500@->S0
END
END // GRUPPI
END
STRINGA 131 20 1
BEGIN
KEY "CODICE livelo"
FLAGS "H"
PROMPT 2 1 ""
END
END
SECTION FOOTER ODD 2
NUMERO 101
BEGIN
KEY "NUMPAGE"
PROMPT 50 2 ""
MESSAGE _PAGENO
PICTURE "- ### -"
END
END

99
mg/tab_fcg.frm Executable file
View File

@ -0,0 +1,99 @@
USE FCG
JOIN GCG TO 5 ALIAS 500 INTO CODTAB[1,1]==CODTAB
END
DESCRIPTION
BEGIN
5->* "Formato del codice"
500->* "Gruppi codice"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 12
CARATTERE "X"
INIZIALE 5 2
FINALE 133
END
SECTION HEADER ODD 3
STRINGA 100 132 1
BEGIN
PROMPT 1 1 "----------------------------------------------------------------------------------------------"
END
STRINGA 101 132 1
BEGIN
PROMPT 21 2 "Tabella Gruppi Formato Codice Giacenze"
END
STRINGA 100 132 1
BEGIN
PROMPT 1 3 "----------------------------------------------------------------------------------------------"
END
END
SECTION BODY ODD 2
STRINGA 110 20 1
BEGIN
KEY "CODICE livelo"
PROMPT 2 1 "Livello "
FIELD CODTAB
END
STRINGA 111 50 1
BEGIN
KEY "DESCR.livelo"
PROMPT 12 1 ""
FIELD S0
END
STRINGA 112 18
BEGIN
KEY "FORM.livelo"
PROMPT 4 2 "Formato "
FIELD S1
//PICTURE "('','')"
END
SECTION GRUPPO 3 1 0 FILE -500
SECTION GRUPPI 1 1 1 GROUP
STRINGA 120 20 1
BEGIN
KEY "CODICE livelo"
PROMPT 12 1 ""
FIELD 500@->CODTAB[2,20]
END
STRINGA 121 50 1
BEGIN
KEY "DESCR.livelo"
PROMPT 32 1 ""
FIELD 500@->S0
END
END // GRUPPI
END
STRINGA 131 20 1
BEGIN
KEY "CODICE livelo"
FLAGS "H"
PROMPT 2 1 ""
END
END
SECTION FOOTER ODD 2
NUMERO 101
BEGIN
KEY "NUMPAGE"
PROMPT 50 2 ""
MESSAGE _PAGENO
PICTURE "- ### -"
END
END