Aggiunto editor dei profili estratto conto.
git-svn-id: svn://10.65.10.50/trunk@2317 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo
parent
7cb2f9ed77
commit
088de429da
21
sc/sc3.cpp
Executable file
21
sc/sc3.cpp
Executable file
@ -0,0 +1,21 @@
|
||||
#include <xvt.h>
|
||||
#include <stdlib.h>
|
||||
#include <checks.h>
|
||||
|
||||
#include "sc3.h"
|
||||
|
||||
#define usage "Errore - uso : sc3 -{0}"
|
||||
|
||||
int main(int argc,char** argv)
|
||||
{
|
||||
const int n = (argc > 1) ? (atoi(&argv[1][1])) : 0;
|
||||
|
||||
switch(n)
|
||||
{
|
||||
case 0:
|
||||
sc3100(argc,argv); break;
|
||||
default:
|
||||
error_box(usage);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
4
sc/sc3.h
Executable file
4
sc/sc3.h
Executable file
@ -0,0 +1,4 @@
|
||||
|
||||
int sc3100(int argc, char** argv);
|
||||
|
||||
|
||||
49
sc/sc3.url
Executable file
49
sc/sc3.url
Executable file
@ -0,0 +1,49 @@
|
||||
#include <default.url>
|
||||
|
||||
#define MENU_FILE_ALT TASK_MENUBAR+4000
|
||||
|
||||
#define M_FIL1_NEW MENU_FILE_ALT+101
|
||||
#define M_FIL1_OPEN MENU_FILE_ALT+102
|
||||
#define M_FIL1_SAVE MENU_FILE_ALT+103
|
||||
#define M_FIL1_SAVEAS MENU_FILE_ALT+104
|
||||
#define M_FIL1_QUIT MENU_FILE_ALT+105
|
||||
|
||||
MENU MENU_FILE_ALT
|
||||
ITEM M_FIL1_NEW "~Nuovo"
|
||||
ITEM M_FIL1_OPEN "~Apri"
|
||||
ITEM M_FIL1_SAVE "~Salva"
|
||||
ITEM M_FIL1_SAVEAS "Salva ~con Nome"
|
||||
ITEM M_FIL1_QUIT "~Fine"
|
||||
SEPARATOR
|
||||
ITEM M_FILE_ABOUT "~Informazioni"
|
||||
|
||||
MENU TASK_MENUBAR
|
||||
SUBMENU MENU_FILE "~File"
|
||||
SUBMENU BAR_ITEM(1) "~Dati"
|
||||
SUBMENU BAR_ITEM(2) "~Testa"
|
||||
SUBMENU BAR_ITEM(3) "~Corpo"
|
||||
SUBMENU BAR_ITEM(4) "~Piede"
|
||||
SUBMENU BAR_ITEM(5) "~Sfondo"
|
||||
|
||||
MENU BAR_ITEM(1)
|
||||
ITEM MENU_ITEM(11) "~Relazione"
|
||||
ITEM MENU_ITEM(12) "~Parametri"
|
||||
ITEM MENU_ITEM(13) "Caratteri ~fincatura"
|
||||
ITEM MENU_ITEM(14) "~Cambia profilo"
|
||||
ITEM MENU_ITEM(15) "Imposta formato ~numeri"
|
||||
ITEM MENU_ITEM(16) "Imposta formato ~date"
|
||||
|
||||
MENU BAR_ITEM(2)
|
||||
ITEM MENU_ITEM(21) "~Normale"
|
||||
|
||||
MENU BAR_ITEM(3)
|
||||
ITEM MENU_ITEM(31) "~Normale"
|
||||
|
||||
MENU BAR_ITEM(4)
|
||||
ITEM MENU_ITEM(41) "~Normale"
|
||||
|
||||
MENU BAR_ITEM(5)
|
||||
ITEM MENU_ITEM(51) "~Normale"
|
||||
|
||||
|
||||
|
||||
443
sc/sc3100.cpp
Executable file
443
sc/sc3100.cpp
Executable file
@ -0,0 +1,443 @@
|
||||
#ifndef __PRINTER_H
|
||||
#include <printer.h>
|
||||
#endif
|
||||
|
||||
#include "../ba/baformed.h"
|
||||
#include "sc3.h"
|
||||
#include "sc3100a.h"
|
||||
#include "sc3100b.h"
|
||||
#include "sc3100c.h"
|
||||
#include "sc21pec.h"
|
||||
|
||||
class TForm_EC_editor : public TForm_editor
|
||||
{
|
||||
protected:
|
||||
static bool cpy_handler(TMask_field& f, KEY k);
|
||||
static bool font_handler(TMask_field& f, KEY k);
|
||||
void load_fonts(TMask& m);
|
||||
bool recalculate_positions(const char* name, int size);
|
||||
virtual const char* selection_mask() const { return "sc3100a"; }
|
||||
virtual bool ask_profile();
|
||||
virtual bool edit(char s, pagetype p);
|
||||
public:
|
||||
};
|
||||
|
||||
/////////////////////////////////////////////////////////////////
|
||||
// serve per ricalcolare le posizioni //
|
||||
/////////////////////////////////////////////////////////////////
|
||||
|
||||
typedef struct {
|
||||
char name_1[80]; // Fontname old
|
||||
char name_2[80]; // Fontname new
|
||||
int size_1; // size (height) of old font
|
||||
int size_2; // size (height) of new font
|
||||
double ratio; // ratio (width_old_font/width_new_font)
|
||||
} s_data;
|
||||
|
||||
BOOLEAN XVT_CALLCONV1 wprms (long data)
|
||||
{
|
||||
s_data* st =(s_data*)data;
|
||||
WINDOW prwin = xvt_print_create_win(printer().get_printrcd(),"");
|
||||
long width_old,width_new;
|
||||
TString spc(100);
|
||||
spc.fill('m');
|
||||
xvt_set_font(prwin,st->name_1, XVT_FS_NONE, st->size_1);
|
||||
width_old = xvt_dwin_get_text_width(prwin,(char*)(const char*)spc, 100);
|
||||
xvt_set_font(prwin,st->name_2, XVT_FS_NONE, st->size_2);
|
||||
width_new = xvt_dwin_get_text_width(prwin,(char*)(const char*)spc, 100);
|
||||
st->ratio = (double)width_old / (double)width_new;
|
||||
xvt_vobj_destroy(prwin);
|
||||
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
bool TForm_EC_editor::cpy_handler(TMask_field& f, KEY k)
|
||||
{
|
||||
if (k==K_SPACE)
|
||||
{
|
||||
TLocalisamfile frm(LF_FORM),rfr(LF_RFORM);
|
||||
TMask mm("sc3100b");
|
||||
if (mm.run() == K_ENTER) // Prende in input il nome del profilo sorgente
|
||||
{
|
||||
long scode = mm.get_long(F_CCODES);
|
||||
long dcode = mm.get_long(F_CCODED);
|
||||
char slng = mm.get(F_CCODELS)[0];
|
||||
char dlng = mm.get(F_CCODELD)[0];
|
||||
TString form = mm.get(F_CBASE);
|
||||
TString scod,dcod;
|
||||
scod.format("%04ld%c",scode,slng); // Codice profilo sorgente
|
||||
if (scode == 0) scod = "";
|
||||
dcod.format("%04ld%c",dcode,dlng); // Codice profilo destinazione
|
||||
frm.zero();
|
||||
frm.put("TIPOPROF",form);frm.put("CODPROF",dcod);
|
||||
if (frm.read()==NOERR)
|
||||
{
|
||||
error_box("Il profilo specificato come destinazione e' gia' esistente.");
|
||||
return TRUE;
|
||||
}
|
||||
//Effettua la copia dei record.
|
||||
frm.zero(); frm.put("TIPOPROF",form); // Questo vale per tutti
|
||||
frm.put("CODPROF",scod); //Profilo sorgente...
|
||||
if (frm.read()==NOERR)
|
||||
{
|
||||
TLocalisamfile rfr_to_write(LF_RFORM);
|
||||
frm.put("CODPROF",dcod); //Cambia il codice del profilo con quello di destinazione e lo scrive
|
||||
frm.put("DESC",mm.get(F_CDESCD)); // Mette la descrizione
|
||||
if (frm.write() != NOERR)
|
||||
frm.rewrite();
|
||||
if (frm.status() != NOERR)
|
||||
{
|
||||
error_box("Errore %d in scrittura testata profilo.",frm.status());
|
||||
return TRUE;
|
||||
}
|
||||
rfr.zero();rfr.put("TIPOPROF",form);
|
||||
rfr.put("CODPROF",scod); //Profilo sorgente
|
||||
rfr.read(_isgteq);
|
||||
while ( rfr.get("CODPROF") == scod && rfr_to_write.good() && !rfr.eof())
|
||||
{
|
||||
rfr_to_write.curr() = rfr.curr();
|
||||
rfr_to_write.put("CODPROF",dcod); // cambia il codice del profilo con quello di destinazione
|
||||
if (rfr_to_write.write() != NOERR)
|
||||
rfr_to_write.rewrite();
|
||||
rfr.read(_isgreat);
|
||||
}
|
||||
if (rfr_to_write.status() != NOERR)
|
||||
{
|
||||
error_box("Errore %d in scrittura righe profilo.",rfr_to_write.status());
|
||||
return TRUE;
|
||||
}
|
||||
} else
|
||||
error_box("Non esiste il profilo sorgente specificato.");
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TForm_EC_editor::font_handler(TMask_field& f, KEY key)
|
||||
{
|
||||
if (key == K_SPACE)
|
||||
{
|
||||
main_app().begin_wait();
|
||||
|
||||
const char* family = f.get();
|
||||
const int MAXSIZES = 16;
|
||||
long sizes[MAXSIZES];
|
||||
BOOLEAN scalable;
|
||||
const int num_sizes = (int)xvt_fmap_get_family_sizes(printer().get_printrcd(),
|
||||
(char*)family, sizes, &scalable, MAXSIZES);
|
||||
|
||||
TToken_string pn1(80), pn2(80);
|
||||
if (scalable)
|
||||
{
|
||||
for (int i = 4; i <= 32; i++)
|
||||
{
|
||||
pn1.add(i);
|
||||
pn2.add(i);
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
if (num_sizes > 0)
|
||||
{
|
||||
for (int i = 0; i < num_sizes; i++)
|
||||
pn1.add(sizes[i]);
|
||||
}
|
||||
else pn1.add(printer().get_char_size());
|
||||
pn2 = pn1;
|
||||
}
|
||||
TList_field& lst = (TList_field&)f.mask().field(F_SSIZE);
|
||||
lst.replace_items(pn1, pn2);
|
||||
lst.set(format("%d",printer().get_char_size()));
|
||||
|
||||
main_app().end_wait();
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
void TForm_EC_editor::load_fonts(TMask& m)
|
||||
{
|
||||
const int MAX_FAMILIES = 128;
|
||||
char* family[MAX_FAMILIES];
|
||||
const int num_families = (int)xvt_fmap_get_families(printer().get_printrcd(), family, MAX_FAMILIES);
|
||||
bool font_found = FALSE;
|
||||
TToken_string pn1(256), pn2(256);
|
||||
|
||||
for (int i = 0; i < num_families; i++)
|
||||
{
|
||||
pn1.add(family[i]);
|
||||
pn2.add(family[i]);
|
||||
if (!font_found)
|
||||
if (form().fontname() == family[i]) font_found = TRUE;
|
||||
xvt_mem_free(family[i]);
|
||||
}
|
||||
TList_field& lst = (TList_field&)m.field(F_SFONT);
|
||||
lst.replace_items(pn1, pn2);
|
||||
if (!font_found) warning_box("Il font %s non esiste per la stampante di default.",(const char*) form().fontname());
|
||||
lst.set(form().fontname());
|
||||
}
|
||||
|
||||
bool TForm_EC_editor::recalculate_positions(const char* name, int size)
|
||||
{
|
||||
if (!form().dirty()) form().set_dirty();
|
||||
s_data prm;
|
||||
prm.size_1=form().fontsize();
|
||||
strcpy(prm.name_1,form().fontname());
|
||||
prm.size_2=size;
|
||||
strcpy(prm.name_2,name);
|
||||
prm.ratio = 1.0;
|
||||
// Next 3 lines may be changed
|
||||
xvt_print_open();
|
||||
xvt_print_start_thread (wprms, (long)&prm);
|
||||
xvt_print_close();
|
||||
|
||||
form().fontname() = name;
|
||||
form().fontsize() = size;
|
||||
const char sechar[4] = { 'B', 'F', 'G', 'H' };
|
||||
for (int sn = 0; sn < 4 ; sn++)
|
||||
{
|
||||
const char sc = sechar[sn];
|
||||
for (pagetype pt = odd_page; pt <= last_page; pt = pagetype(pt+1))
|
||||
{
|
||||
TPrint_section* sec = form().exist(sc, pt);
|
||||
if (sec != NULL)
|
||||
{
|
||||
sec->set_dirty();
|
||||
for (word i = 0; i < sec->fields() ; i++)
|
||||
{
|
||||
TForm_item& fi = sec->field(i);
|
||||
if (fi.x() > 0 && (prm.ratio != 1.0))
|
||||
{
|
||||
real x_pos;
|
||||
x_pos = fi.x() * prm.ratio;
|
||||
x_pos.round();
|
||||
fi.x() = (short)x_pos.integer();
|
||||
fi.set_dirty();
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TForm_EC_editor::edit(char s, pagetype p)
|
||||
{
|
||||
TMask m("sc3100c");
|
||||
TString80 caption;
|
||||
bool dirty = FALSE;
|
||||
bool other = FALSE;
|
||||
KEY k;
|
||||
|
||||
if (extra())
|
||||
{
|
||||
if (s == 'R')
|
||||
dirty = edit_relation();
|
||||
else
|
||||
if (s == 'D')
|
||||
form_config();
|
||||
else
|
||||
if (s == 'K')
|
||||
dirty = edit_fincatura();
|
||||
else
|
||||
if (s == 'J')
|
||||
dirty = edit_formato_numero();
|
||||
else
|
||||
if (s == 'Y')
|
||||
dirty = edit_formato_data();
|
||||
else other = TRUE;
|
||||
}
|
||||
if (!extra() || (extra() && other))
|
||||
{
|
||||
// Carica i fonts disponibili nel listbox
|
||||
load_fonts(m);
|
||||
printer().set_char_size(form().fontsize()); // Questo settera' il carattere della stampante a quello del form
|
||||
// Setta l'handler per il listbox dei fonts
|
||||
m.set_handler(F_SFONT,font_handler);
|
||||
// carica i dati relativi all'offset
|
||||
m.set(F_SX, form().offset_x());
|
||||
m.set(F_SY, form().offset_y());
|
||||
TString ctp;
|
||||
ctp << form().char_to_pos();
|
||||
m.set(F_SCTP, ctp);
|
||||
m.set(F_SIPX, form().ipx());
|
||||
m.set(F_SIPY, form().ipy());
|
||||
// carica i dati relativi ai flags (memorizzati in HEADER LAST)
|
||||
if (form().exist('H', last_page))
|
||||
{
|
||||
TForm_item& flags = form().section('H',last_page).find_field(PEC_FLAGS);
|
||||
TToken_string tt(flags.prompt());
|
||||
if (tt.get(0) != NULL)
|
||||
m.set(F_SVALUTA,tt.get(0));
|
||||
if (tt.get(1) != NULL)
|
||||
m.set(F_FINK,tt.get(1));
|
||||
}
|
||||
// carica i dati relativi allo sfondo (memorizzati in GRAPHICS ODD)
|
||||
if (form().exist('G', odd_page))
|
||||
{
|
||||
TForm_item& pict = form().section('G',odd_page).find_field(PEC_PICTURE);
|
||||
m.set(F_BACKGROUND,pict.prompt());
|
||||
m.set(F_BACKWIDTH,pict.width());
|
||||
m.set(F_BACKHEIGHT,pict.height());
|
||||
m.set(F_BACKX,pict.x());
|
||||
m.set(F_BACKY,pict.y());
|
||||
}
|
||||
while (TRUE)
|
||||
{
|
||||
bool local_dirty = FALSE;
|
||||
k = m.run();
|
||||
if ((m.field(F_SFONT).dirty() || m.field(F_SSIZE).dirty()))
|
||||
{
|
||||
TString ff(m.get(F_SFONT));
|
||||
dirty = recalculate_positions(ff, m.get_int(F_SSIZE)); // Va bene dirty e non local_dirty
|
||||
printer().set_char_size(m.get_int(F_SSIZE)); // Questo settera' il carattere della stampante a quello del form
|
||||
}
|
||||
if (k==K_F3) local_dirty = edit_fincatura();
|
||||
else if (k==K_F4) local_dirty = edit_formato_data();
|
||||
else if (k==K_F5) local_dirty = edit_formato_numero();
|
||||
else if (k!= K_ESC && k!=K_ENTER)
|
||||
{
|
||||
if (k==K_F6) { s = 'H'; caption = "Testa"; }
|
||||
else if (k==K_F7) { s = 'B'; caption = "Corpo"; }
|
||||
else if (k==K_F8) { s = 'F'; caption = "Piede"; }
|
||||
local_dirty = TRUE;
|
||||
if (!form().exist(s, odd_page))
|
||||
{
|
||||
const KEY k = yesnocancel_box("La sezione %s non esiste:\n"
|
||||
"si desidera generarla?",
|
||||
(const char*)caption);
|
||||
if (k == K_ESC)
|
||||
local_dirty = FALSE;
|
||||
else
|
||||
{
|
||||
TPrint_section* sec = form().exist(s, odd_page, TRUE);
|
||||
if (k == K_YES)
|
||||
{
|
||||
const TPrint_section* def = form().exist(s, odd_page);
|
||||
if (def) *sec = *def;
|
||||
else local_dirty = FALSE;
|
||||
}
|
||||
}
|
||||
}
|
||||
if (local_dirty)
|
||||
local_dirty = form().section(s,odd_page).edit(caption);
|
||||
}
|
||||
if (local_dirty) dirty=TRUE;
|
||||
if (k==K_ESC || k==K_ENTER)
|
||||
break;
|
||||
} // End of while
|
||||
} // End if
|
||||
|
||||
if (m.dirty() != 0)
|
||||
{
|
||||
form().fontname() = m.get(F_SFONT);
|
||||
form().fontsize() = m.get_int(F_SSIZE);
|
||||
form().offset_x() = m.get_int(F_SX);
|
||||
form().offset_y() = m.get_int(F_SY);
|
||||
form().char_to_pos() = m.get(F_SCTP)[0];
|
||||
form().ipx() = m.get_int(F_SIPX);
|
||||
form().ipy() = m.get_int(F_SIPY);
|
||||
if (form().exist('H', last_page))
|
||||
{
|
||||
TForm_item& flags = form().section('H',last_page).find_field(PEC_FLAGS);
|
||||
TString s(m.get(F_SVALUTA));
|
||||
s << "|" << m.get(F_FINK);
|
||||
form().section('H',last_page).set_dirty();
|
||||
flags.set_prompt(s);
|
||||
flags.set_dirty();
|
||||
}
|
||||
if (form().exist('G', odd_page))
|
||||
{
|
||||
TForm_item& pict = form().section('G',odd_page).find_field(PEC_PICTURE);
|
||||
pict.set_prompt(m.get(F_BACKGROUND));
|
||||
pict.width() = m.get_int(F_BACKWIDTH);
|
||||
pict.height() = m.get_int(F_BACKHEIGHT);
|
||||
pict.x() = m.get_int(F_BACKX);
|
||||
pict.y() = m.get_int(F_BACKY);
|
||||
form().section('G',odd_page).set_dirty();
|
||||
pict.set_dirty();
|
||||
}
|
||||
form().set_dirty();
|
||||
if (!dirty) dirty = TRUE;
|
||||
}
|
||||
if ((dirty && k==K_ESC && yesno_box("Salvare le modifiche?")) || (dirty && k==K_ENTER))
|
||||
{ // Se si preme annulla e sono state effettuate modifiche chiede la conferma per salvare
|
||||
// Se invece si preme conferma e sono state effettuate modifiche non chiede la conferma
|
||||
if (form().code() == "")
|
||||
{
|
||||
TFilename n(form().name()); n.ext("frm");
|
||||
TFilename bak(n); bak.ext("bak");
|
||||
rename(n, bak);
|
||||
ofstream out(n);
|
||||
form().print_on(out);
|
||||
}
|
||||
else
|
||||
form().write_profile();
|
||||
}
|
||||
if (!extra()) dispatch_e_menu(MENU_ITEM(14));
|
||||
return dirty;
|
||||
}
|
||||
|
||||
bool TForm_EC_editor::ask_profile()
|
||||
{
|
||||
KEY k;
|
||||
mask().set_handler(DLG_COPY,cpy_handler);
|
||||
while ((k = mask().run()) != K_QUIT)
|
||||
{
|
||||
TLocalisamfile frm(LF_FORM);
|
||||
TLocalisamfile rfr(LF_RFORM);
|
||||
TString fform = mask().get(F_BASE);
|
||||
TString fdesc = mask().get(F_DESC);
|
||||
long fcode = mask().get_long(F_CODE);
|
||||
char flng = mask().get(F_CODEL)[0];
|
||||
TString cod;
|
||||
cod.format("%04ld%c",fcode,flng);
|
||||
if (!extra() && fcode == 0 && flng=='\0')
|
||||
{
|
||||
error_box("Non e' possibile modificare il profilo standard.");
|
||||
continue;
|
||||
}
|
||||
if (k == K_ENTER)
|
||||
{
|
||||
check_form();
|
||||
set_form(new TForm(fform, (fcode!=0) ? format("%04ld%c",fcode,flng) : "", extra() ? 2 :1, fdesc));
|
||||
break;
|
||||
}
|
||||
else if (k == K_DEL)
|
||||
{
|
||||
if (fcode != 0 &&
|
||||
yesno_box("Confermare la cancellazione del profilo %04ld%c", fcode,flng))
|
||||
{
|
||||
frm.zero();
|
||||
frm.put("TIPOPROF", fform);
|
||||
if (fcode != 0 )
|
||||
frm.put("CODPROF", cod);
|
||||
if (frm.read() == NOERR)
|
||||
frm.remove();
|
||||
rfr.zero();
|
||||
rfr.put("TIPOPROF", fform);
|
||||
rfr.put("CODPROF", cod);
|
||||
if (rfr.read(_isgteq) == NOERR)
|
||||
{
|
||||
for ( ; rfr.get("CODPROF") == cod && rfr.get("TIPOPROF") == fform; rfr.next())
|
||||
rfr.remove();
|
||||
}
|
||||
mask().set(F_CODE,"");
|
||||
mask().set(F_CODEL,"");
|
||||
mask().set(F_DESC,"");
|
||||
}
|
||||
}
|
||||
}
|
||||
if (k == K_QUIT)
|
||||
{
|
||||
dispatch_e_menu(M_FILE_QUIT);
|
||||
return TRUE;
|
||||
}
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
int sc3100(int argc, char** argv)
|
||||
{
|
||||
TForm_EC_editor a;
|
||||
a.run(argc, argv, "Parametrizzazione profili EC");
|
||||
return 0;
|
||||
}
|
||||
3
sc/sc3100a.h
Executable file
3
sc/sc3100a.h
Executable file
@ -0,0 +1,3 @@
|
||||
#define F_CODEL 501
|
||||
#define DLG_COPY 601
|
||||
|
||||
84
sc/sc3100a.uml
Executable file
84
sc/sc3100a.uml
Executable file
@ -0,0 +1,84 @@
|
||||
#include "../ba/bafrm.h"
|
||||
#include "sc3100a.h"
|
||||
|
||||
|
||||
PAGE "Scelta profilo" -1 -1 75 6
|
||||
|
||||
STRING F_BASE 8
|
||||
BEGIN
|
||||
PROMPT 2 1 "Profilo base "
|
||||
HELP "Specificare il nome del profilo di base utilizzato"
|
||||
USE LF_FORM SELECT (TIPOPROF==BASE_EC_PROFILE)
|
||||
INPUT TIPOPROF F_BASE
|
||||
INPUT CODPROF ""
|
||||
FLAGS "D"
|
||||
DISPLAY "Profilo base" TIPOPROF
|
||||
DISPLAY "Descrizione@50" DESC
|
||||
OUTPUT F_BASE TIPOPROF
|
||||
OUTPUT F_DESC DESC
|
||||
END
|
||||
|
||||
NUMBER F_CODE 4
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice profilo "
|
||||
FLAGS "Z"
|
||||
HELP "Codice del profilo"
|
||||
USE LF_FORM SELECT (TIPOPROF==BASE_EC_PROFILE)
|
||||
JOIN %LNG TO LF_FORM ALIAS 200 INTO CODTAB==CODPROF[5,5]
|
||||
INPUT TIPOPROF F_BASE
|
||||
INPUT CODPROF[1,4] F_CODE
|
||||
INPUT CODPROF[5,5] F_CODEL
|
||||
DISPLAY "Profilo base" TIPOPROF
|
||||
DISPLAY "Codice" CODPROF[1,4]
|
||||
DISPLAY "Lingua" CODPROF[5,5]
|
||||
DISPLAY "Descrizione@50" DESC
|
||||
DISPLAY "Desc. Lingua@50" -200->S0
|
||||
OUTPUT F_BASE TIPOPROF
|
||||
OUTPUT F_CODE CODPROF[1,4]
|
||||
OUTPUT F_CODEL CODPROF[5,5]
|
||||
OUTPUT F_DESC DESC
|
||||
END
|
||||
|
||||
STRING F_CODEL 1
|
||||
BEGIN
|
||||
PROMPT 40 2 "Codice lingua "
|
||||
HELP "Codice lingua del profilo"
|
||||
USE %LNG
|
||||
INPUT CODTAB F_CODEL
|
||||
DISPLAY "Codice lingua" CODTAB
|
||||
DISPLAY "Decrizione@50" S0
|
||||
OUTPUT F_CODEL CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESC 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
HELP "Descrizione profilo utente"
|
||||
COPY ALL F_CODE
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -14 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 9 2
|
||||
BEGIN
|
||||
PROMPT -24 -1 ""
|
||||
MESSAGE EXIT,K_DEL
|
||||
END
|
||||
|
||||
BUTTON DLG_COPY 9 2
|
||||
BEGIN
|
||||
PROMPT -34 -1 "~Copia da..."
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 8 2
|
||||
BEGIN
|
||||
PROMPT -44 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
11
sc/sc3100b.h
Executable file
11
sc/sc3100b.h
Executable file
@ -0,0 +1,11 @@
|
||||
// maschera scelta form da copiare
|
||||
#define F_CBASE 401
|
||||
#define F_CCODES 402
|
||||
#define F_CDESCS 403
|
||||
#define F_CCODELS 404
|
||||
#define F_CCODED 405
|
||||
#define F_CDESCD 406
|
||||
#define F_CCODELD 407
|
||||
|
||||
// nome base profilo estratto conto
|
||||
#define BASE_EC_PROFILE "PEC"
|
||||
104
sc/sc3100b.uml
Executable file
104
sc/sc3100b.uml
Executable file
@ -0,0 +1,104 @@
|
||||
#include "sc3100b.h"
|
||||
|
||||
|
||||
PAGE "Scelta profilo da copiare" -1 -1 75 12
|
||||
|
||||
STRING F_CBASE 8
|
||||
BEGIN
|
||||
PROMPT 2 1 "Profilo base "
|
||||
FLAGS "D"
|
||||
HELP "Specificare il nome del profilo di base utilizzato"
|
||||
USE LF_FORM SELECT (TIPOPROF==BASE_EC_PROFILE)
|
||||
INPUT TIPOPROF F_CBASE
|
||||
INPUT CODPROF ""
|
||||
DISPLAY "Profilo base" TIPOPROF
|
||||
DISPLAY "Descrizione@50" DESC
|
||||
OUTPUT F_CBASE TIPOPROF
|
||||
OUTPUT F_CDESCS DESCS
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 73 4
|
||||
BEGIN
|
||||
PROMPT 1 2 "Profilo sorgente"
|
||||
END
|
||||
|
||||
NUMBER F_CCODES 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "Codice profilo "
|
||||
FLAGS "Z"
|
||||
HELP "Codice del profilo"
|
||||
USE LF_FORM SELECT (TIPOPROF==BASE_EC_PROFILE)
|
||||
JOIN %LNG TO LF_FORM ALIAS 200 INTO CODTAB==CODPROF[5,5]
|
||||
INPUT TIPOPROF F_CBASE
|
||||
INPUT CODPROF[1,4] F_CCODES
|
||||
INPUT CODPROF[5,5] F_CCODELS
|
||||
DISPLAY "Profilo base" TIPOPROF
|
||||
DISPLAY "Codice" CODPROF[1,4]
|
||||
DISPLAY "Lingua" CODPROF[5,5]
|
||||
DISPLAY "Descrizione@50" DESC
|
||||
DISPLAY "Desc. Lingua@50" -200->S0
|
||||
OUTPUT F_CBASE TIPOPROF
|
||||
OUTPUT F_CCODES CODPROF[1,4]
|
||||
OUTPUT F_CCODELS CODPROF[5,5]
|
||||
OUTPUT F_CDESCS DESC
|
||||
END
|
||||
|
||||
STRING F_CCODELS 1
|
||||
BEGIN
|
||||
PROMPT 40 3 "Codice lingua "
|
||||
HELP "Codice lingua del profilo"
|
||||
USE %LNG
|
||||
INPUT CODTAB F_CCODELS
|
||||
DISPLAY "Codice lingua" CODTAB
|
||||
DISPLAY "Decrizione@50" S0
|
||||
OUTPUT F_CCODELS CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CDESCS 50
|
||||
BEGIN
|
||||
PROMPT 2 4 "Descrizione "
|
||||
HELP "Descrizione profilo utente"
|
||||
COPY ALL F_CCODES
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 73 4
|
||||
BEGIN
|
||||
PROMPT 1 6 "Profilo destinazione"
|
||||
END
|
||||
|
||||
NUMBER F_CCODED 4
|
||||
BEGIN
|
||||
PROMPT 2 7 "Codice profilo "
|
||||
FLAGS "Z"
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
STRING F_CCODELD 1
|
||||
BEGIN
|
||||
PROMPT 40 7 "Codice lingua "
|
||||
COPY USE F_CCODELS
|
||||
INPUT CODTAB F_CCODELD
|
||||
COPY DISPLAY F_CCODELS
|
||||
OUTPUT F_CCODELD CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CDESCD 50
|
||||
BEGIN
|
||||
PROMPT 2 8 "Descrizione "
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 8 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
22
sc/sc3100c.h
Executable file
22
sc/sc3100c.h
Executable file
@ -0,0 +1,22 @@
|
||||
#define F_SFONT 101
|
||||
#define F_SSIZE 102
|
||||
#define F_SX 103
|
||||
#define F_SY 104
|
||||
#define F_SVALUTA 105
|
||||
#define F_FINK 106
|
||||
#define F_BACKGROUND 107
|
||||
#define F_BACKWIDTH 108
|
||||
#define F_BACKHEIGHT 109
|
||||
#define F_BACKX 110
|
||||
#define F_BACKY 111
|
||||
#define F_SCTP 112
|
||||
#define F_SIPX 113
|
||||
#define F_SIPY 114
|
||||
#define DLG_FINK 301
|
||||
#define DLG_DATE 302
|
||||
#define DLG_NUM 303
|
||||
#define DLG_HEADER 304
|
||||
#define DLG_BODY 305
|
||||
#define DLG_FOOTER 306
|
||||
|
||||
|
||||
155
sc/sc3100c.uml
Executable file
155
sc/sc3100c.uml
Executable file
@ -0,0 +1,155 @@
|
||||
#include "sc3100c.h"
|
||||
|
||||
PAGE "SELEZIONE DATI DI STAMPA" -1 -1 78 14
|
||||
|
||||
LIST F_SFONT 2 16
|
||||
BEGIN
|
||||
PROMPT 1 1 "Font "
|
||||
ITEM "Courier New|Courier New"
|
||||
HELP "Font di stampa su video o stampante"
|
||||
END
|
||||
|
||||
LIST F_SSIZE 3
|
||||
BEGIN
|
||||
PROMPT 1 2 "Dimensione "
|
||||
ITEM "12|12"
|
||||
HELP "Dimensioni del carattere di stampa"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 19 4
|
||||
BEGIN
|
||||
PROMPT 31 1 "Spostamento"
|
||||
END
|
||||
|
||||
NUMBER F_SX 3
|
||||
BEGIN
|
||||
PROMPT 32 2 "Orizzontale "
|
||||
END
|
||||
|
||||
NUMBER F_SY 3
|
||||
BEGIN
|
||||
PROMPT 32 3 "Verticale "
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 22 4
|
||||
BEGIN
|
||||
PROMPT 54 1 "Posizionamento"
|
||||
END
|
||||
|
||||
STRING F_SCTP 1
|
||||
BEGIN
|
||||
PROMPT 55 2 "Carattere "
|
||||
HELP "Carattere da utilizzare per il posizionamento del modulo"
|
||||
END
|
||||
|
||||
NUMBER F_SIPX 3
|
||||
BEGIN
|
||||
PROMPT 55 3 "Coordinate "
|
||||
HELP "Coordinata X di posizionamento iniziale"
|
||||
END
|
||||
|
||||
NUMBER F_SIPY 3
|
||||
BEGIN
|
||||
PROMPT 71 3 ""
|
||||
HELP "Coordinata Y di posizionamento"
|
||||
END
|
||||
|
||||
BOOLEAN F_SVALUTA
|
||||
BEGIN
|
||||
PROMPT 1 5 " E.C. in valuta"
|
||||
END
|
||||
|
||||
LIST F_FINK 2 10
|
||||
BEGIN
|
||||
PROMPT 1 6 "Fincatura "
|
||||
ITEM "0|Nessuna" MESSAGE CLEAR,5@
|
||||
ITEM "1|Testo" MESSAGE CLEAR,5@
|
||||
ITEM "2|Grafica" MESSAGE ENABLE,5@
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 45 5
|
||||
BEGIN
|
||||
PROMPT 31 5 "Sfondo"
|
||||
END
|
||||
|
||||
STRING F_BACKGROUND 50 30
|
||||
BEGIN
|
||||
PROMPT 32 6 "Nome file "
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
NUMBER F_BACKX 3
|
||||
BEGIN
|
||||
PROMPT 32 7 "Posizione X "
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
NUMBER F_BACKY 3
|
||||
BEGIN
|
||||
PROMPT 63 7 "Y "
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
NUMBER F_BACKWIDTH 3
|
||||
BEGIN
|
||||
PROMPT 32 8 "Larghezza "
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
NUMBER F_BACKHEIGHT 3
|
||||
BEGIN
|
||||
PROMPT 63 8 "Altezza "
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
BUTTON DLG_FINK 10 2
|
||||
BEGIN
|
||||
PROMPT -14 10 "~Fincatura"
|
||||
MESSAGE EXIT,K_F3
|
||||
END
|
||||
|
||||
BUTTON DLG_DATE 10 2
|
||||
BEGIN
|
||||
PROMPT -24 10 "~Date"
|
||||
MESSAGE EXIT,K_F4
|
||||
END
|
||||
|
||||
BUTTON DLG_NUM 10 2
|
||||
BEGIN
|
||||
PROMPT -34 10 "~Numeri"
|
||||
MESSAGE EXIT,K_F5
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -44 10 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_HEADER 10 2
|
||||
BEGIN
|
||||
PROMPT -14 -1 "~Testata"
|
||||
MESSAGE EXIT,K_F6
|
||||
END
|
||||
|
||||
BUTTON DLG_BODY 10 2
|
||||
BEGIN
|
||||
PROMPT -24 -1 "~Corpo"
|
||||
MESSAGE EXIT,K_F7
|
||||
END
|
||||
|
||||
BUTTON DLG_FOOTER 10 2
|
||||
BEGIN
|
||||
PROMPT -34 -1 "~Piede"
|
||||
MESSAGE EXIT,K_F8
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -44 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user