Corretto errrore gestione utente all'inizio
git-svn-id: svn://10.65.10.50/trunk@604 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
430a49010b
commit
1155d509e5
@ -445,8 +445,8 @@ void TMenu_application::test_temp() const
|
|||||||
{
|
{
|
||||||
TFilename dir; dir.tempdir(); // Directory temporanea
|
TFilename dir; dir.tempdir(); // Directory temporanea
|
||||||
|
|
||||||
TFilename name = dir;
|
TFilename name;
|
||||||
name << "/" << "*.*"; // Cerca tutti i file
|
name << dir << "/" << "*.*"; // Cerca tutti i file
|
||||||
|
|
||||||
#if XVT_OS == XVT_OS_WIN
|
#if XVT_OS == XVT_OS_WIN
|
||||||
struct _find_t f;
|
struct _find_t f;
|
||||||
|
|||||||
424
ba/ba1300.cpp
424
ba/ba1300.cpp
@ -1,212 +1,212 @@
|
|||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <applicat.h>
|
|
||||||
#include <xvtility.h>
|
#include <applicat.h>
|
||||||
#include <utility.h>
|
#include <xvtility.h>
|
||||||
#include <prefix.h>
|
#include <utility.h>
|
||||||
#include <mask.h>
|
#include <prefix.h>
|
||||||
#include <isam.h>
|
#include <mask.h>
|
||||||
#include <string.h>
|
#include <isam.h>
|
||||||
#include <sheet.h>
|
#include <sheet.h>
|
||||||
#include <msksheet.h>
|
#include <progind.h>
|
||||||
#include <progind.h>
|
#include <urldefid.h>
|
||||||
#include <urldefid.h>
|
#include <validate.h>
|
||||||
#include <validate.h>
|
|
||||||
#include "ba1.h"
|
#include "ba1.h"
|
||||||
#include "ba1300.h"
|
#include "ba1300.h"
|
||||||
#include "ba1300a.h"
|
#include "ba1300a.h"
|
||||||
|
|
||||||
|
|
||||||
class BA1300_application:public TApplication
|
class BA1300_application:public TApplication
|
||||||
{
|
{
|
||||||
TTestSheet * _testsheet;
|
TTestSheet * _testsheet;
|
||||||
TTestProc * _test,
|
TTestProc * _test,
|
||||||
* _debug;
|
* _debug;
|
||||||
TMask * _mask;
|
TMask * _mask;
|
||||||
long _firm;
|
long _firm;
|
||||||
|
|
||||||
protected:
|
protected:
|
||||||
virtual bool menu(MENU_TAG);
|
virtual bool menu(MENU_TAG);
|
||||||
virtual bool create () ;
|
virtual bool create () ;
|
||||||
virtual bool destroy();
|
virtual bool destroy();
|
||||||
virtual bool extended_firm() const { return TRUE; }
|
virtual bool extended_firm() const { return TRUE; }
|
||||||
|
|
||||||
public:
|
public:
|
||||||
BA1300_application() : _testsheet(NULL), _mask(NULL) {}
|
BA1300_application() : _testsheet(NULL), _mask(NULL) {}
|
||||||
TTestSheet * get_sheet() {return _testsheet;}
|
TTestSheet * get_sheet() {return _testsheet;}
|
||||||
TTestProc * get_test() {return _test;}
|
TTestProc * get_test() {return _test;}
|
||||||
TMask * get_mask() {return _mask;}
|
TMask * get_mask() {return _mask;}
|
||||||
TArray_sheet * field_sheet(TMask *);
|
TArray_sheet * field_sheet(TMask *);
|
||||||
|
|
||||||
};
|
};
|
||||||
|
|
||||||
HIDDEN bool seq_handler(TMask_field& f, KEY key)
|
HIDDEN bool seq_handler(TMask_field& f, KEY key)
|
||||||
{
|
{
|
||||||
if (key==K_ENTER)
|
if (key==K_ENTER)
|
||||||
if (!fexist((const char*)f.get()))
|
if (!fexist((const char*)f.get()))
|
||||||
{
|
{
|
||||||
warning_box("File inesistente");
|
warning_box("File inesistente");
|
||||||
return FALSE;
|
return FALSE;
|
||||||
}
|
}
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool BA1300_application::create() // initvar e arrmask
|
bool BA1300_application::create() // initvar e arrmask
|
||||||
|
|
||||||
{
|
{
|
||||||
_firm = get_firm();
|
_firm = get_firm();
|
||||||
|
|
||||||
if (argc() > 2)
|
if (argc() > 2)
|
||||||
{
|
{
|
||||||
return FALSE;
|
return FALSE;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
_mask = new TMask ("ba1300a"); // Maschera principale
|
_mask = new TMask ("ba1300a"); // Maschera principale
|
||||||
set_firm();
|
set_firm();
|
||||||
_testsheet = new TTestSheet("Selezione Files") ;
|
_testsheet = new TTestSheet("Selezione Files") ;
|
||||||
get_sheet()->add_button(DLG_RESET,"~Reset",K_F6);
|
get_sheet()->add_button(DLG_RESET,"~Reset",K_F6);
|
||||||
}
|
}
|
||||||
return TRUE ;
|
return TRUE ;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool BA1300_application::destroy() // releasev e arrmask
|
bool BA1300_application::destroy() // releasev e arrmask
|
||||||
|
|
||||||
{
|
{
|
||||||
if (_firm) set_firm(_firm);
|
if (_firm) set_firm(_firm);
|
||||||
if (_testsheet != NULL) delete _testsheet;
|
if (_testsheet != NULL) delete _testsheet;
|
||||||
if (_mask != NULL) delete _mask;
|
if (_mask != NULL) delete _mask;
|
||||||
return TRUE ;
|
return TRUE ;
|
||||||
}
|
}
|
||||||
|
|
||||||
TArray_sheet * BA1300_application::field_sheet(TMask * m)
|
TArray_sheet * BA1300_application::field_sheet(TMask * m)
|
||||||
{
|
{
|
||||||
TEdit_field& f=(TEdit_field&) m->field(F_FILE);
|
TEdit_field& f=(TEdit_field&) m->field(F_FILE);
|
||||||
TArray_sheet * s=(TArray_sheet*) f.sheet()->sheet();
|
TArray_sheet * s=(TArray_sheet*) f.sheet()->sheet();
|
||||||
return s;
|
return s;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool BA1300_application::menu(MENU_TAG m)
|
bool BA1300_application::menu(MENU_TAG m)
|
||||||
{
|
{
|
||||||
KEY tasto,tastoS;
|
KEY tasto,tastoS;
|
||||||
long numtest;
|
long numtest;
|
||||||
TMask *msk;
|
TMask *msk;
|
||||||
TDir *cdir;
|
TDir *cdir;
|
||||||
|
|
||||||
disable_menu_item(M_FILE_NEW);
|
disable_menu_item(M_FILE_NEW);
|
||||||
switch (m)
|
switch (m)
|
||||||
{
|
{
|
||||||
case BAR_ITEM(2):
|
case BAR_ITEM(2):
|
||||||
{
|
{
|
||||||
msk = new TMask("ba1300b");
|
msk = new TMask("ba1300b");
|
||||||
cdir = new TDir;
|
cdir = new TDir;
|
||||||
cdir->get(LF_DIR,_nolock,_nordir,_sysdirop);
|
cdir->get(LF_DIR,_nolock,_nordir,_sysdirop);
|
||||||
const int nitems=(int)cdir->eod();
|
const int nitems=(int)cdir->eod();
|
||||||
for (int i=0; i<nitems;i++) // fill sheet
|
for (int i=0; i<nitems;i++) // fill sheet
|
||||||
{
|
{
|
||||||
TToken_string riga(128);
|
TToken_string riga(128);
|
||||||
riga.cut(0);
|
riga.cut(0);
|
||||||
cdir->get(i+1,_nolock,_nordir,_sysdirop);
|
cdir->get(i+1,_nolock,_nordir,_sysdirop);
|
||||||
riga=format("%3d",i+1);
|
riga=format("%3d",i+1);
|
||||||
riga.add(cdir->name());
|
riga.add(cdir->name());
|
||||||
riga.add(format("%ld",cdir->eod()));
|
riga.add(format("%ld",cdir->eod()));
|
||||||
riga.add(format("%ld",cdir->eox()));
|
riga.add(format("%ld",cdir->eox()));
|
||||||
riga.add(format("%u",cdir->len()));
|
riga.add(format("%u",cdir->len()));
|
||||||
riga.add(cdir->des());
|
riga.add(cdir->des());
|
||||||
field_sheet(msk)->add(riga);
|
field_sheet(msk)->add(riga);
|
||||||
}
|
}
|
||||||
msk->set_handler(F_SEQUENZA,seq_handler);
|
msk->set_handler(F_SEQUENZA,seq_handler);
|
||||||
if (msk->run()==K_ENTER)
|
if (msk->run()==K_ENTER)
|
||||||
{
|
{
|
||||||
_debug = new TTestProc;
|
_debug = new TTestProc;
|
||||||
_debug->set_file(msk->get_int(F_FILE));
|
_debug->set_file(msk->get_int(F_FILE));
|
||||||
_debug->load_random(msk->get(F_SEQUENZA));
|
_debug->load_random(msk->get(F_SEQUENZA));
|
||||||
if (!_debug->stopped())
|
if (!_debug->stopped())
|
||||||
_debug->do_debug();
|
_debug->do_debug();
|
||||||
else
|
else
|
||||||
warning_box("File di sequenza non valido");
|
warning_box("File di sequenza non valido");
|
||||||
delete _debug;
|
delete _debug;
|
||||||
}
|
}
|
||||||
delete msk;
|
delete msk;
|
||||||
delete cdir;
|
delete cdir;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case BAR_ITEM(1):
|
case BAR_ITEM(1):
|
||||||
do {
|
do {
|
||||||
switch(tasto=get_mask()->run())
|
switch(tasto=get_mask()->run())
|
||||||
{
|
{
|
||||||
case K_ENTER:
|
case K_ENTER:
|
||||||
if (get_sheet()->checked()>0 && (get_mask()->get_long(F_ITERAZIONI)>0 || get_mask()->get_bool(F_CONTINUO)))
|
if (get_sheet()->checked()>0 && (get_mask()->get_long(F_ITERAZIONI)>0 || get_mask()->get_bool(F_CONTINUO)))
|
||||||
{
|
{
|
||||||
_test = new TTestProc;
|
_test = new TTestProc;
|
||||||
get_test()->set_sheet(get_sheet());
|
get_test()->set_sheet(get_sheet());
|
||||||
get_test()->set_rmc();
|
get_test()->set_rmc();
|
||||||
get_test()->get_win()->set_color(COLOR_BLACK,COLOR_WHITE);
|
get_test()->get_win()->set_color(COLOR_BLACK,COLOR_WHITE);
|
||||||
get_test()->get_win()->clear(COLOR_WHITE);
|
get_test()->get_win()->clear(COLOR_WHITE);
|
||||||
get_test()->get_win()->set_caption("Verifica di stabilita'");
|
get_test()->get_win()->set_caption("Verifica di stabilita'");
|
||||||
get_test()->get_win()->WriteW(10,5,"Test N. :");
|
get_test()->get_win()->WriteW(10,5,"Test N. :");
|
||||||
get_test()->get_win()->WriteW(10,7,"Nome File :");
|
get_test()->get_win()->WriteW(10,7,"Nome File :");
|
||||||
get_test()->get_win()->WriteW(10,9,"Record cancellati :");
|
get_test()->get_win()->WriteW(10,9,"Record cancellati :");
|
||||||
get_test()->get_win()->WriteW(10,10,"Operazione in corso :");
|
get_test()->get_win()->WriteW(10,10,"Operazione in corso :");
|
||||||
get_test()->get_win()->WriteW(10,12,"Tempo trascorso :");
|
get_test()->get_win()->WriteW(10,12,"Tempo trascorso :");
|
||||||
get_test()->get_win()->WriteW(10,13,"Tempo stimato :");
|
get_test()->get_win()->WriteW(10,13,"Tempo stimato :");
|
||||||
get_test()->get_win()->WriteW(10,15,"Ultimo Errore :");
|
get_test()->get_win()->WriteW(10,15,"Ultimo Errore :");
|
||||||
numtest=0;
|
numtest=0;
|
||||||
while (((++numtest)<=get_mask()->get_long(F_ITERAZIONI) || get_mask()->get_bool(F_CONTINUO)) && (!get_test()->stopped()))
|
while (((++numtest)<=get_mask()->get_long(F_ITERAZIONI) || get_mask()->get_bool(F_CONTINUO)) && (!get_test()->stopped()))
|
||||||
{
|
{
|
||||||
if (get_mask()->get_bool(F_CONTINUO))
|
if (get_mask()->get_bool(F_CONTINUO))
|
||||||
get_test()->get_win()->WriteW(33,5,format("%4ld (CONTINUO)",numtest));
|
get_test()->get_win()->WriteW(33,5,format("%4ld (CONTINUO)",numtest));
|
||||||
else
|
else
|
||||||
get_test()->get_win()->WriteW(33,5,format("%4ld/%-4ld",numtest,_mask->get_long(F_ITERAZIONI)));
|
get_test()->get_win()->WriteW(33,5,format("%4ld/%-4ld",numtest,_mask->get_long(F_ITERAZIONI)));
|
||||||
get_test()->set_numt(numtest);
|
get_test()->set_numt(numtest);
|
||||||
get_test()->do_test_1();
|
get_test()->do_test_1();
|
||||||
}
|
}
|
||||||
if (get_test()->rm_copy())
|
if (get_test()->rm_copy())
|
||||||
{
|
{
|
||||||
get_test()->get_win()->WriteW(33,10,"CANCELLAZIONE COPIE ");
|
get_test()->get_win()->WriteW(33,10,"CANCELLAZIONE COPIE ");
|
||||||
for (int i=0;i<get_sheet()->items();i++)
|
for (int i=0;i<get_sheet()->items();i++)
|
||||||
if (get_sheet()->checked(i))
|
if (get_sheet()->checked(i))
|
||||||
get_test()->remove_copy(i+1);
|
get_test()->remove_copy(i+1);
|
||||||
}
|
}
|
||||||
delete _test;
|
delete _test;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
warning_box("Nessun file selezionato");
|
warning_box("Nessun file selezionato");
|
||||||
break;
|
break;
|
||||||
case K_F4:
|
case K_F4:
|
||||||
get_sheet()->sr_status();
|
get_sheet()->sr_status();
|
||||||
while ((tastoS=get_sheet()->run()) == K_F6)
|
while ((tastoS=get_sheet()->run()) == K_F6)
|
||||||
for (int i=0; i<get_sheet()->items();i++)
|
for (int i=0; i<get_sheet()->items();i++)
|
||||||
get_sheet()->uncheck(i);
|
get_sheet()->uncheck(i);
|
||||||
if (tastoS == K_ESC)
|
if (tastoS == K_ESC)
|
||||||
get_sheet()->sr_status(FALSE);
|
get_sheet()->sr_status(FALSE);
|
||||||
else
|
else
|
||||||
{ // Cannot select first two files.
|
{ // Cannot select first two files.
|
||||||
get_sheet()->uncheck(0);
|
get_sheet()->uncheck(0);
|
||||||
get_sheet()->uncheck(1);
|
get_sheet()->uncheck(1);
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case K_F5:
|
case K_F5:
|
||||||
if (fexist((const char*)TString(20).format("test%creport.txt",Separator)))
|
if (fexist((const char*)TString(20).format("test%creport.txt",Separator)))
|
||||||
{
|
{
|
||||||
TTestReport rep_win("Report");
|
TTestReport rep_win("Report");
|
||||||
rep_win.load_report();
|
rep_win.load_report();
|
||||||
rep_win.run();
|
rep_win.run();
|
||||||
} else
|
} else
|
||||||
warning_box("Report non disponibile");
|
warning_box("Report non disponibile");
|
||||||
break;
|
break;
|
||||||
default:
|
default:
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
} while (tasto != K_ESC);
|
} while (tasto != K_ESC);
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
enable_menu_item(M_FILE_NEW);
|
enable_menu_item(M_FILE_NEW);
|
||||||
return xvt_test_menu_tag(BAR_ITEM(2));
|
return xvt_test_menu_tag(BAR_ITEM(2));
|
||||||
}
|
}
|
||||||
|
|
||||||
int ba1300(int argc, char** argv)
|
int ba1300(int argc, char** argv)
|
||||||
{
|
{
|
||||||
BA1300_application a;
|
BA1300_application a;
|
||||||
a.run(argc,argv,"Test dell'ISAM");
|
a.run(argc,argv,"Test dell'ISAM");
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|||||||
382
ba/ba3300a.uml
382
ba/ba3300a.uml
@ -1,189 +1,193 @@
|
|||||||
#include "ba3300.h"
|
#include "ba3300.h"
|
||||||
|
|
||||||
PAGE "Stampa fogli libro bollato" -1 -1 74 20
|
PAGE "Stampa fogli libro bollato" -1 -1 74 20
|
||||||
|
|
||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 3 "Anno Riferimento "
|
PROMPT 3 3 "Anno Riferimento "
|
||||||
USE REG
|
HELP "Anno a cui si riferisce il bollato"
|
||||||
INPUT CODTAB[1,4] F_ANNO
|
USE REG
|
||||||
INPUT CODTAB[5,7] F_CODICE
|
INPUT CODTAB[1,4] F_ANNO
|
||||||
DISPLAY "Anno " CODTAB[1,4]
|
INPUT CODTAB[5,7] F_CODICE
|
||||||
DISPLAY "Codice Registro" CODTAB[5,7]
|
DISPLAY "Anno " CODTAB[1,4]
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Codice Registro" CODTAB[5,7]
|
||||||
DISPLAY "Tipo" I0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_ANNO CODTAB[1,4]
|
DISPLAY "Tipo" I0
|
||||||
OUTPUT F_CODICE CODTAB[5,7]
|
OUTPUT F_ANNO CODTAB[1,4]
|
||||||
OUTPUT F_REGISTRO S0
|
OUTPUT F_CODICE CODTAB[5,7]
|
||||||
FLAGS "URZ"
|
OUTPUT F_REGISTRO S0
|
||||||
CHECKTYPE REQUIRED
|
FLAGS "URZ"
|
||||||
KEY 1
|
CHECKTYPE REQUIRED
|
||||||
END
|
KEY 1
|
||||||
|
END
|
||||||
STRING F_CODDITTA 5
|
|
||||||
BEGIN
|
STRING F_CODDITTA 5
|
||||||
PROMPT 3 2 "Ditta "
|
BEGIN
|
||||||
FLAGS "DFR"
|
PROMPT 3 2 "Ditta "
|
||||||
KEY 1
|
FLAGS "DFR"
|
||||||
END
|
KEY 1
|
||||||
|
END
|
||||||
STRING F_CODICE 3
|
|
||||||
BEGIN
|
STRING F_CODICE 3
|
||||||
PROMPT 3 4 "Codice Registro "
|
BEGIN
|
||||||
FLAGS "U"
|
PROMPT 3 4 "Codice Registro "
|
||||||
COPY ALL F_ANNO
|
HELP "Codice del registro da numerare"
|
||||||
CHECKTYPE REQUIRED
|
FLAGS "U"
|
||||||
KEY 1
|
COPY ALL F_ANNO
|
||||||
END
|
CHECKTYPE REQUIRED
|
||||||
|
KEY 1
|
||||||
STRING F_REGISTRO 50
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT 3 6 "Registro "
|
STRING F_REGISTRO 50
|
||||||
HELP "Indicare la descrizione del registro"
|
BEGIN
|
||||||
USE REG KEY 2
|
PROMPT 3 6 "Registro "
|
||||||
INPUT S0 F_REGISTRO
|
HELP "Descrizione del registro da numerare"
|
||||||
DISPLAY "Descrizione@50" S0
|
USE REG KEY 2
|
||||||
DISPLAY "Anno " CODTAB[1,4]
|
INPUT S0 F_REGISTRO
|
||||||
DISPLAY "Codice Registro" CODTAB[5,7]
|
DISPLAY "Descrizione@50" S0
|
||||||
DISPLAY "Tipo" I0
|
DISPLAY "Anno " CODTAB[1,4]
|
||||||
COPY OUTPUT F_CODICE
|
DISPLAY "Codice Registro" CODTAB[5,7]
|
||||||
CHECKTYPE REQUIRED
|
DISPLAY "Tipo" I0
|
||||||
END
|
COPY OUTPUT F_CODICE
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
STRING F_RAGSOC 50
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT 3 7 "Ragione sociale "
|
STRING F_RAGSOC 50
|
||||||
FLAGS "U"
|
BEGIN
|
||||||
// USE LF_NDITTE KEY 2
|
PROMPT 3 7 "Ragione sociale "
|
||||||
// INPUT RAGSOC F_RAGSOC
|
FLAGS "U"
|
||||||
// DISPLAY "Ragione sociale @50" RAGSOC
|
HELP "Ragione sociale dell'intestatario del registro"
|
||||||
// DISPLAY "Ditta" CODDITTA
|
// USE LF_NDITTE KEY 2
|
||||||
// OUTPUT F_RAGSOC RAGSOC
|
// INPUT RAGSOC F_RAGSOC
|
||||||
// OUTPUT F_CODDITTA CODDITTA
|
// DISPLAY "Ragione sociale @50" RAGSOC
|
||||||
END
|
// DISPLAY "Ditta" CODDITTA
|
||||||
|
// OUTPUT F_RAGSOC RAGSOC
|
||||||
STRING F_INDIRIZZO 35
|
// OUTPUT F_CODDITTA CODDITTA
|
||||||
BEGIN
|
END
|
||||||
PROMPT 3 8 "Indirizzo "
|
|
||||||
// USE LF_UNLOC
|
STRING F_INDIRIZZO 35
|
||||||
// CHECKTYPE NORMAL
|
BEGIN
|
||||||
// INPUT CODULC "1"
|
PROMPT 3 8 "Indirizzo "
|
||||||
// INPUT CODDITTA F_CODDITTA
|
HELP "Indirizzo dell'intestatario del registro"
|
||||||
// DISPLAY "Ditta" CODDITTA
|
// USE LF_UNLOC
|
||||||
// DISPLAY "Indirizzo @35" INDULC
|
// CHECKTYPE NORMAL
|
||||||
// OUTPUT F_INDIRIZZO INDULC
|
// INPUT CODULC "1"
|
||||||
// OUTPUT F_CODDITTA CODDITTA
|
// INPUT CODDITTA F_CODDITTA
|
||||||
// WARNING "Indirizzo assente"
|
// DISPLAY "Ditta" CODDITTA
|
||||||
END
|
// DISPLAY "Indirizzo @35" INDULC
|
||||||
|
// OUTPUT F_INDIRIZZO INDULC
|
||||||
STRING F_CIV 10
|
// OUTPUT F_CODDITTA CODDITTA
|
||||||
BEGIN
|
// WARNING "Indirizzo assente"
|
||||||
PROMPT 51 8 "N.civico "
|
END
|
||||||
END
|
|
||||||
|
STRING F_CIV 10
|
||||||
STRING F_CAP 5
|
BEGIN
|
||||||
BEGIN
|
PROMPT 51 8 "N.civico "
|
||||||
PROMPT 3 9 "CAP "
|
HELP "Numero civico dell'intestatario del registro"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODCOM 4
|
STRING F_CAP 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 15 9 "Comune "
|
PROMPT 3 9 "CAP "
|
||||||
END
|
HELP "CAP del comune dell'intestatario del registro"
|
||||||
|
END
|
||||||
STRING F_COM 28
|
|
||||||
BEGIN
|
STRING F_CODCOM 4
|
||||||
PROMPT 29 9 ""
|
BEGIN
|
||||||
END
|
PROMPT 15 9 "Comune "
|
||||||
|
HELP "Codice del comune dell'intestatario del registro"
|
||||||
STRING F_PROV 5
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT 60 9 "Prov."
|
STRING F_COM 28
|
||||||
END
|
BEGIN
|
||||||
|
PROMPT 29 9 ""
|
||||||
STRING F_COFI 16
|
HELP "Nome del comune dell'intestatario del registro"
|
||||||
BEGIN
|
END
|
||||||
PROMPT 3 10 "Codice fiscale "
|
|
||||||
// USE LF_ANAG KEY 2
|
STRING F_PROV 5
|
||||||
// INPUT RAGSOC F_RAGSOC
|
BEGIN
|
||||||
// DISPLAY "Tipo" TIPOA
|
PROMPT 60 9 "Prov."
|
||||||
// DISPLAY "Codice" CODANAGR
|
HELP "Provincia dell'intestatario del registro"
|
||||||
// DISPLAY "Ragione sociale @50" RAGSOC
|
END
|
||||||
// OUTPUT F_RAGSOC RAGSOC
|
|
||||||
// OUTPUT F_COFI COFI
|
STRING F_COFI 16
|
||||||
// OUTPUT F_PAIV PAIV
|
BEGIN
|
||||||
END
|
PROMPT 3 10 "Codice fiscale "
|
||||||
|
HELP "Codice fiscale dell'intestatario del registro"
|
||||||
STRING F_PAIV 12
|
// USE LF_ANAG KEY 2
|
||||||
BEGIN
|
// INPUT RAGSOC F_RAGSOC
|
||||||
PROMPT 44 10 "Partita I.V.A "
|
// DISPLAY "Tipo" TIPOA
|
||||||
// USE LF_ANAG KEY 2
|
// DISPLAY "Codice" CODANAGR
|
||||||
// INPUT RAGSOC F_RAGSOC
|
// DISPLAY "Ragione sociale @50" RAGSOC
|
||||||
// DISPLAY "Tipo" TIPOA
|
// OUTPUT F_RAGSOC RAGSOC
|
||||||
// DISPLAY "Codice" CODANAGR
|
// OUTPUT F_COFI COFI
|
||||||
// DISPLAY "Ragione sociale @50" RAGSOC
|
// OUTPUT F_PAIV PAIV
|
||||||
// OUTPUT F_RAGSOC RAGSOC
|
END
|
||||||
// OUTPUT F_COFI COFI
|
|
||||||
// OUTPUT F_PAIV PAIV
|
STRING F_PAIV 12
|
||||||
END
|
BEGIN
|
||||||
|
PROMPT 44 10 "Partita I.V.A "
|
||||||
NUMBER F_NPAGINI 6
|
HELP "Partita IVA dell'intestatario del registro"
|
||||||
BEGIN
|
// USE LF_ANAG KEY 2
|
||||||
PROMPT 3 12 "Numero pagina iniziale "
|
// INPUT RAGSOC F_RAGSOC
|
||||||
FLAGS "RU"
|
// DISPLAY "Tipo" TIPOA
|
||||||
NUM_EXPR {#THIS_FIELD >= 0}
|
// DISPLAY "Codice" CODANAGR
|
||||||
WARNING "Numero pagina iniziale errato: non puo' essere negativo"
|
// DISPLAY "Ragione sociale @50" RAGSOC
|
||||||
END
|
// OUTPUT F_RAGSOC RAGSOC
|
||||||
|
// OUTPUT F_COFI COFI
|
||||||
NUMBER F_NPAGFI 6
|
// OUTPUT F_PAIV PAIV
|
||||||
BEGIN
|
END
|
||||||
PROMPT 3 13 "Numero pagina finale "
|
|
||||||
FLAGS "R"
|
NUMBER F_NPAGINI 6
|
||||||
NUM_EXPR {#THIS_FIELD >= #F_NPAGINI}
|
BEGIN
|
||||||
WARNING "Numero pagina finale errato: deve essere maggiore o uguale a quello iniziale"
|
PROMPT 3 12 "Numero pagina iniziale "
|
||||||
END
|
HELP "Numero della prima pagina da numerare"
|
||||||
|
FLAGS "RU"
|
||||||
BOOLEAN F_PRIMO
|
NUM_EXPR {#THIS_FIELD >= 0}
|
||||||
BEGIN
|
WARNING "Numero pagina iniziale errato: non puo' essere negativo"
|
||||||
PROMPT 3 14 "Inizio numerazione dopo primo foglio "
|
END
|
||||||
END
|
|
||||||
|
NUMBER F_NPAGFI 6
|
||||||
LIST F_TIPOST 7
|
BEGIN
|
||||||
BEGIN
|
PROMPT 3 13 "Numero pagina finale "
|
||||||
PROMPT 3 15 "Tipo di stampa "
|
HELP "Numero dell'ultima pagina da numerare"
|
||||||
ITEM "0|132"
|
FLAGS "R"
|
||||||
ITEM "1|132 c."
|
NUM_EXPR {#THIS_FIELD >= #F_NPAGINI}
|
||||||
ITEM "2|198"
|
WARNING "Numero pagina finale errato: deve essere maggiore o uguale a quello iniziale"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_LUNG 2
|
BOOLEAN F_PRIMO
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 16 "Numero di righe "
|
PROMPT 3 14 "Inizio numerazione dopo primo foglio "
|
||||||
FLAGS "R"
|
HELP "Indicare se iniziare la numerazione nel secondo foglio"
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 9 2
|
LIST F_TIPOST 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT 3 15 "Tipo di stampa "
|
||||||
END
|
HELP "Larghezza del foglio"
|
||||||
|
ITEM "0|132"
|
||||||
BUTTON DLG_QUIT 9 2
|
ITEM "1|132 c."
|
||||||
BEGIN
|
ITEM "2|198"
|
||||||
PROMPT -22 -1 ""
|
END
|
||||||
END
|
|
||||||
|
NUMBER F_LUNG 2
|
||||||
ENDPAGE
|
BEGIN
|
||||||
|
PROMPT 3 16 "Numero di righe "
|
||||||
ENDMASK
|
HELP "Lunghezza del foglio"
|
||||||
|
FLAGS "R"
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_OK 9 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -12 -1 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_QUIT 9 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -22 -1 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
|
|||||||
@ -16,7 +16,7 @@ END
|
|||||||
STRING F_CODICE 4
|
STRING F_CODICE 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 6 1 "Codice "
|
PROMPT 6 1 "Codice "
|
||||||
HELP "Inserire il codice di pagamento"
|
HELP "Codice condizione di pagamento"
|
||||||
FIELD %CPG->CODTAB
|
FIELD %CPG->CODTAB
|
||||||
USE %CPG KEY 1 ALIAS 50
|
USE %CPG KEY 1 ALIAS 50
|
||||||
INPUT CODTAB F_CODICE
|
INPUT CODTAB F_CODICE
|
||||||
@ -31,7 +31,7 @@ END
|
|||||||
STRING F_DESC 50
|
STRING F_DESC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 6 2 "Descrizione "
|
PROMPT 6 2 "Descrizione "
|
||||||
HELP "Inserire la descrizione"
|
HELP "Descrizione condizione di pagamento"
|
||||||
FIELD %CPG->S0
|
FIELD %CPG->S0
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -43,6 +43,7 @@ END
|
|||||||
STRING F_INIZIOSCAD 1
|
STRING F_INIZIOSCAD 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 6 5 "Part.iniz. calcolo "
|
PROMPT 6 5 "Part.iniz. calcolo "
|
||||||
|
HELP "Modalit… di inizio conteggio calcolo scadenza"
|
||||||
FIELD %CPG->S1
|
FIELD %CPG->S1
|
||||||
SHEET "Cod|Descrizione@30"
|
SHEET "Cod|Descrizione@30"
|
||||||
INPUT F_INIZIOSCAD
|
INPUT F_INIZIOSCAD
|
||||||
@ -55,12 +56,14 @@ END
|
|||||||
BOOLEAN F_MESECOMM
|
BOOLEAN F_MESECOMM
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 49 5 " Mese commerciale"
|
PROMPT 49 5 " Mese commerciale"
|
||||||
|
HELP "Indicare se si utilizza il mese commerciale (30 gg)"
|
||||||
FIELD %CPG->B0
|
FIELD %CPG->B0
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_TIPO_PRIMA_RATA 1
|
STRING F_TIPO_PRIMA_RATA 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 6 6 "Tipo prima rata "
|
PROMPT 6 6 "Tipo prima rata "
|
||||||
|
HELP "Tipo di conteggio per la prima rata"
|
||||||
FIELD %CPG->S3
|
FIELD %CPG->S3
|
||||||
SHEET "Cod|Descrizione@60"
|
SHEET "Cod|Descrizione@60"
|
||||||
INPUT F_TIPO_PRIMA_RATA
|
INPUT F_TIPO_PRIMA_RATA
|
||||||
@ -76,7 +79,8 @@ END
|
|||||||
|
|
||||||
LIST F_RATE_DIFF 27
|
LIST F_RATE_DIFF 27
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 35 6 " Rate "
|
PROMPT 35 6 " Rate "
|
||||||
|
HELP "Descrizione delle rate"
|
||||||
ITEM "1|Differenziate"
|
ITEM "1|Differenziate"
|
||||||
ITEM "2|Uguali"
|
ITEM "2|Uguali"
|
||||||
ITEM "3|Uguali dall'ultima modificata"
|
ITEM "3|Uguali dall'ultima modificata"
|
||||||
@ -87,11 +91,13 @@ END
|
|||||||
NUMBER F_NUM_RATE 3
|
NUMBER F_NUM_RATE 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 6 7 "Numero di rate "
|
PROMPT 6 7 "Numero di rate "
|
||||||
|
HELP "Numero delle rate"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_INT_RATE 4
|
NUMBER F_INT_RATE 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 35 7 "Intervallo tra rate successive "
|
PROMPT 35 7 "Intervallo tra rate successive "
|
||||||
|
HELP "Giorni di intervallo tra una data e l'altra"
|
||||||
END
|
END
|
||||||
|
|
||||||
SPREADSHEET F_SHEET_RPG 70 9
|
SPREADSHEET F_SHEET_RPG 70 9
|
||||||
@ -113,12 +119,14 @@ PAGE "" -1 -1 78 15
|
|||||||
NUMBER 101 4
|
NUMBER 101 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 1 "Numero giorni "
|
PROMPT 4 1 "Numero giorni "
|
||||||
|
HELP "Numero di giorni per la scadenza"
|
||||||
/* FIELD %RPG->I0 */
|
/* FIELD %RPG->I0 */
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER 102 8 2
|
NUMBER 102 8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 3 "Percentuale "
|
PROMPT 4 3 "Percentuale "
|
||||||
|
HELP "Percentuale della rata"
|
||||||
/* FIELD %RPG->R0 */
|
/* FIELD %RPG->R0 */
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -126,11 +134,11 @@ END
|
|||||||
NUMBER 103 2 0
|
NUMBER 103 2 0
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 4 "Tipo pagamento "
|
PROMPT 4 4 "Tipo pagamento "
|
||||||
HELP ""
|
HELP "Tipo di pagamento per la rata"
|
||||||
SHEET "Codice|Tipo pagamento@32"
|
SHEET "Codice|Tipo pagamento@32"
|
||||||
INPUT 103
|
INPUT 103
|
||||||
OUTPUT 103
|
OUTPUT 103
|
||||||
OUTPUT 104
|
OUTPUT 104
|
||||||
ITEM "1|Rimessa diretta o contanti"
|
ITEM "1|Rimessa diretta o contanti"
|
||||||
ITEM "2|Tratta"
|
ITEM "2|Tratta"
|
||||||
ITEM "3|Ricevuta Bancaria"
|
ITEM "3|Ricevuta Bancaria"
|
||||||
@ -143,7 +151,7 @@ END
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
STRING 104 12
|
STRING 104 18
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 5 "Pagamento "
|
PROMPT 4 5 "Pagamento "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
@ -161,11 +169,11 @@ BEGIN
|
|||||||
OUTPUT 105 CODTAB
|
OUTPUT 105 CODTAB
|
||||||
/* OUTPUT 103 CODTAB[1,1] */
|
/* OUTPUT 103 CODTAB[1,1] */
|
||||||
/* CHECKTYPE NORMAL */
|
/* CHECKTYPE NORMAL */
|
||||||
HELP "Scegliere uno dei codici della tabella, oppure lasciare il campo vuoto"
|
HELP "Codice per ulteriore classificazione della data"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
BUTTON DLG_OK 9 2
|
BUTTON DLG_OK 9 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -13 -1 ""
|
PROMPT -13 -1 ""
|
||||||
|
|||||||
@ -401,14 +401,14 @@ END
|
|||||||
|
|
||||||
DATE FLD_GD2_DINIZIOATT
|
DATE FLD_GD2_DINIZIOATT
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 5 "Inizio Attivit… "
|
PROMPT 1 5 "Inizio Attivita'"
|
||||||
FIELD LF_NDITTE->DINIZIOATT
|
FIELD LF_NDITTE->DINIZIOATT
|
||||||
HELP "Data di inizio attivita'"
|
HELP "Data di inizio attivita'"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_GD2_NULC 3
|
NUMBER FLD_GD2_NULC 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 45 5 "Numero Unit… Locali "
|
PROMPT 45 5 "Numero Unita' Locali "
|
||||||
FIELD LF_NDITTE->NULC
|
FIELD LF_NDITTE->NULC
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Numero delle unita' locali di appartenenza"
|
HELP "Numero delle unita' locali di appartenenza"
|
||||||
@ -486,12 +486,12 @@ END
|
|||||||
|
|
||||||
NUMBER LST_GD2_STATOSOC 1
|
NUMBER LST_GD2_STATOSOC 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 9 "Stato societ… "
|
PROMPT 1 9 "Stato societa' "
|
||||||
FIELD LF_NDITTE->STATOSOC
|
FIELD LF_NDITTE->STATOSOC
|
||||||
SHEET "Codice|Stato@70"
|
SHEET "Codice|Stato@70"
|
||||||
INPUT LST_GD2_STATOSOC
|
INPUT LST_GD2_STATOSOC
|
||||||
OUTPUT LST_GD2_STATOSOC
|
OUTPUT LST_GD2_STATOSOC
|
||||||
HELP "Codice dello stato della societ…"
|
HELP "Codice dello stato della societa'"
|
||||||
ITEM " |Sconosciuto"
|
ITEM " |Sconosciuto"
|
||||||
ITEM "1|Soggetto in normale attivita'"
|
ITEM "1|Soggetto in normale attivita'"
|
||||||
ITEM "2|Soggetto in liquidazione per cessazione di attivita'"
|
ITEM "2|Soggetto in liquidazione per cessazione di attivita'"
|
||||||
|
|||||||
@ -11,6 +11,7 @@ PAGE "Ulteriore classificazione" -1 -1 78 13
|
|||||||
STRING F_CODICERATA 1
|
STRING F_CODICERATA 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 1 "Codice "
|
PROMPT 4 1 "Codice "
|
||||||
|
HELP "Codice della rata dell'ulteriore classificazione"
|
||||||
FIELD %CLR->CODTAB[1,1]
|
FIELD %CLR->CODTAB[1,1]
|
||||||
SHEET "Cod|Descrizione@60"
|
SHEET "Cod|Descrizione@60"
|
||||||
INPUT F_CODICERATA
|
INPUT F_CODICERATA
|
||||||
@ -22,7 +23,7 @@ BEGIN
|
|||||||
ITEM "5|Paghero'"
|
ITEM "5|Paghero'"
|
||||||
ITEM "6|Lettera di accredito"
|
ITEM "6|Lettera di accredito"
|
||||||
ITEM "7|Tratta accettata"
|
ITEM "7|Tratta accettata"
|
||||||
ITEM "8|Altro pagamento"
|
ITEM "8|Altro pagamento"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODICEALFA 1
|
STRING F_CODICEALFA 1
|
||||||
@ -39,7 +40,7 @@ BEGIN
|
|||||||
OUTPUT F_CODICERATA CODTAB[1,1]
|
OUTPUT F_CODICERATA CODTAB[1,1]
|
||||||
OUTPUT F_CODICEALFA CODTAB[2,2]
|
OUTPUT F_CODICEALFA CODTAB[2,2]
|
||||||
OUTPUT F_DESCR S0
|
OUTPUT F_DESCR S0
|
||||||
HELP "Inserire il codice dell' ulteriore classificazione"
|
HELP "Codice dell' ulteriore classificazione"
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -55,7 +56,7 @@ BEGIN
|
|||||||
OUTPUT F_CODICERATA CODTAB[1,1]
|
OUTPUT F_CODICERATA CODTAB[1,1]
|
||||||
OUTPUT F_CODICEALFA CODTAB[2,2]
|
OUTPUT F_CODICEALFA CODTAB[2,2]
|
||||||
OUTPUT F_DESCR S0
|
OUTPUT F_DESCR S0
|
||||||
HELP "Inserire la descrizione dell' ulteriore classificazione"
|
HELP "Descrizione dell' ulteriore classificazione"
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|||||||
@ -11,6 +11,7 @@ PAGE "Tabella deleghe IVA" -1 -1 78 15
|
|||||||
NUMBER F_CODDITTA 5
|
NUMBER F_CODDITTA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 1 "Ditta "
|
PROMPT 4 1 "Ditta "
|
||||||
|
HELP "Codice ditta a cui si riferisce la delega"
|
||||||
FIELD CODTAB[1,5]
|
FIELD CODTAB[1,5]
|
||||||
FLAGS "FR"
|
FLAGS "FR"
|
||||||
KEY 1
|
KEY 1
|
||||||
@ -27,6 +28,7 @@ END
|
|||||||
STRING F_RAGSOC 50
|
STRING F_RAGSOC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 2 "Ragione sociale "
|
PROMPT 4 2 "Ragione sociale "
|
||||||
|
HELP "Ragione sociale ditta a cui si riferisce la delega"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE LF_NDITTE KEY 2
|
USE LF_NDITTE KEY 2
|
||||||
INPUT CODDITTA F_CODDITTA
|
INPUT CODDITTA F_CODDITTA
|
||||||
@ -59,7 +61,7 @@ BEGIN
|
|||||||
OUTPUT F_ANNO CODTAB[6,9]
|
OUTPUT F_ANNO CODTAB[6,9]
|
||||||
OUTPUT F_MESE CODTAB[10,11]
|
OUTPUT F_MESE CODTAB[10,11]
|
||||||
OUTPUT F_TIPO CODTAB[12,12]
|
OUTPUT F_TIPO CODTAB[12,12]
|
||||||
HELP "Introdurre l'anno di versamento"
|
HELP "Anno di versamento"
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_MESE 10
|
LIST F_MESE 10
|
||||||
@ -69,7 +71,7 @@ BEGIN
|
|||||||
FLAGS "MA"
|
FLAGS "MA"
|
||||||
KEY 1
|
KEY 1
|
||||||
COPY ALL F_ANNO
|
COPY ALL F_ANNO
|
||||||
HELP "Introdurre il mese di versamento"
|
HELP "Mese di versamento"
|
||||||
ITEM "13|Annuale"
|
ITEM "13|Annuale"
|
||||||
MESSAGE "2",F_TIPO
|
MESSAGE "2",F_TIPO
|
||||||
VALIDATE MTCHECK_FUNC
|
VALIDATE MTCHECK_FUNC
|
||||||
@ -80,7 +82,7 @@ BEGIN
|
|||||||
PROMPT 4 5 "Tipo "
|
PROMPT 4 5 "Tipo "
|
||||||
FIELD CODTAB[12,12]
|
FIELD CODTAB[12,12]
|
||||||
KEY 1
|
KEY 1
|
||||||
HELP "Introdurre il tipo di versamento"
|
HELP "Tipo di versamento"
|
||||||
ITEM "1|normale"
|
ITEM "1|normale"
|
||||||
MESSAGE ENABLE,F_MESE
|
MESSAGE ENABLE,F_MESE
|
||||||
ITEM "2|annuale"
|
ITEM "2|annuale"
|
||||||
@ -99,12 +101,13 @@ DATE F_DATA
|
|||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 7 "Data "
|
PROMPT 4 7 "Data "
|
||||||
FIELD D0
|
FIELD D0
|
||||||
HELP "Introdurre la data di versamento"
|
HELP "Data di versamento"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_BANCA1 5
|
NUMBER F_BANCA1 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 8 "Codice ABI "
|
PROMPT 4 8 "Codice ABI "
|
||||||
|
HELP "Codice ABI banca di appoggio"
|
||||||
FIELD S7
|
FIELD S7
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
USE %BAN
|
USE %BAN
|
||||||
@ -122,6 +125,7 @@ END
|
|||||||
NUMBER F_BANCA2 5
|
NUMBER F_BANCA2 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 9 "Codice CAB "
|
PROMPT 4 9 "Codice CAB "
|
||||||
|
HELP "Codice CAB banca di appoggio"
|
||||||
FIELD S8
|
FIELD S8
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
COPY ALL F_BANCA1
|
COPY ALL F_BANCA1
|
||||||
@ -134,12 +138,13 @@ BEGIN
|
|||||||
PROMPT 4 10 "Importo "
|
PROMPT 4 10 "Importo "
|
||||||
FIELD R0
|
FIELD R0
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
HELP "Introdurre l'importo versato"
|
HELP "Importo versato"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STAMPATO
|
BOOLEAN F_STAMPATO
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 12 "Stampato "
|
PROMPT 4 12 "Stampato "
|
||||||
|
HELP "Indicare se si tratta di delega gi… stampata"
|
||||||
FIELD B0
|
FIELD B0
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|||||||
@ -11,6 +11,7 @@ PAGE "Tabella libro unico" -1 -1 78 18
|
|||||||
NUMBER F_CODLIB 1
|
NUMBER F_CODLIB 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 1 "Codice libro unico "
|
PROMPT 4 1 "Codice libro unico "
|
||||||
|
HELP "Codice libro unico da gestire"
|
||||||
FIELD %LBU->CODTAB
|
FIELD %LBU->CODTAB
|
||||||
KEY 1
|
KEY 1
|
||||||
USE %LBU
|
USE %LBU
|
||||||
@ -19,6 +20,7 @@ END
|
|||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 53 1 "Anno esercizio "
|
PROMPT 53 1 "Anno esercizio "
|
||||||
|
HELP "Anno d'esercizio a cui si riferisce il libro"
|
||||||
FIELD %LBU->I0
|
FIELD %LBU->I0
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -42,6 +44,7 @@ PAGE "" -1 -1 78 18
|
|||||||
BOOLEAN F_FLG_STAMPA_BOLLATO
|
BOOLEAN F_FLG_STAMPA_BOLLATO
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 1 "Flag di stampa su bollato "
|
PROMPT 4 1 "Flag di stampa su bollato "
|
||||||
|
HELP "Indicare se viene stampato su bollato"
|
||||||
FIELD %LBU->B0
|
FIELD %LBU->B0
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -52,18 +55,21 @@ PAGE "" -1 -1 71 15
|
|||||||
STRING 101 5
|
STRING 101 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 1 "Numero iniziale pagina registro unico "
|
PROMPT 1 1 "Numero iniziale pagina registro unico "
|
||||||
|
HELP "Numero della pagina iniziale del libro unico"
|
||||||
FIELD %LBU->I1
|
FIELD %LBU->I1
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER 102 5
|
NUMBER 102 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 2 "Numero finale pagina registro unico "
|
PROMPT 1 2 "Numero finale pagina registro unico "
|
||||||
|
HELP "Numero della pagina finale del libro unico"
|
||||||
FIELD %LBU->I2
|
FIELD %LBU->I2
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER 103 5
|
NUMBER 103 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 4 "Codice ditta "
|
PROMPT 1 4 "Codice ditta "
|
||||||
|
HELP "Codice ditta a cui si riferisce il libro unico"
|
||||||
FIELD %LBU->I3
|
FIELD %LBU->I3
|
||||||
USE LF_NDITTE KEY 1
|
USE LF_NDITTE KEY 1
|
||||||
INPUT CODDITTA 103
|
INPUT CODDITTA 103
|
||||||
@ -76,12 +82,14 @@ END
|
|||||||
STRING 104 50
|
STRING 104 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 5 "Ragione sociale "
|
PROMPT 1 5 "Ragione sociale "
|
||||||
|
HELP "Ragione sociale ditta a cui si riferisce il libro unico"
|
||||||
FIELD %LBU->S0
|
FIELD %LBU->S0
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER 105 3
|
NUMBER 105 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 7 "Codice registro "
|
PROMPT 1 7 "Codice registro "
|
||||||
|
HELP "Codice resgistro ?????"
|
||||||
FIELD %LBU->I4
|
FIELD %LBU->I4
|
||||||
USE REG
|
USE REG
|
||||||
INPUT CODTAB[5,7] 105
|
INPUT CODTAB[5,7] 105
|
||||||
@ -94,6 +102,7 @@ END
|
|||||||
STRING 106 50
|
STRING 106 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 8 "Descrizione "
|
PROMPT 1 8 "Descrizione "
|
||||||
|
HELP "Descrizione ???????"
|
||||||
FIELD %LBU->S1
|
FIELD %LBU->S1
|
||||||
COPY USE 105
|
COPY USE 105
|
||||||
INPUT S0 106
|
INPUT S0 106
|
||||||
@ -104,12 +113,14 @@ END
|
|||||||
NUMBER 107 5
|
NUMBER 107 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 10 "Numero iniziale pagina registro utente "
|
PROMPT 1 10 "Numero iniziale pagina registro utente "
|
||||||
|
HELP "????"
|
||||||
FIELD %LBU->I5
|
FIELD %LBU->I5
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER 108 5
|
NUMBER 108 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 11 "Numero finale pagina registro utente "
|
PROMPT 1 11 "Numero finale pagina registro utente "
|
||||||
|
HELP "??????"
|
||||||
FIELD %LBU->I6
|
FIELD %LBU->I6
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -126,7 +137,7 @@ END
|
|||||||
BUTTON DLG_NULL 9 2
|
BUTTON DLG_NULL 9 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -33 -1 "Azzera"
|
PROMPT -33 -1 "Azzera"
|
||||||
MESSAGE RESET,1@
|
MESSAGE RESET,1@
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|||||||
325
ba/batbpim.uml
325
ba/batbpim.uml
@ -1,162 +1,163 @@
|
|||||||
#include "batbpim.h"
|
#include "batbpim.h"
|
||||||
#define F_IMPORTO1 1000
|
#define F_IMPORTO1 1000
|
||||||
|
|
||||||
TOOLBAR "" 0 20 0 2
|
TOOLBAR "" 0 20 0 2
|
||||||
#include <toolbar.h>
|
#include <toolbar.h>
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "" -1 -1 78 16
|
PAGE "" -1 -1 78 16
|
||||||
|
|
||||||
NUMBER F_CODDITTA 5
|
NUMBER F_CODDITTA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 1 "Ditta "
|
PROMPT 4 1 "Ditta "
|
||||||
FLAGS "FRD"
|
FLAGS "FRD"
|
||||||
USE LF_NDITTE KEY 1
|
USE LF_NDITTE KEY 1
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
INPUT CODDITTA F_CODDITTA
|
INPUT CODDITTA F_CODDITTA
|
||||||
DISPLAY "Codice" CODDITTA
|
DISPLAY "Codice" CODDITTA
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODDITTA CODDITTA
|
OUTPUT F_CODDITTA CODDITTA
|
||||||
OUTPUT F_RAGSOC RAGSOC
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOC 50
|
STRING F_RAGSOC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 2 "Ragione sociale "
|
PROMPT 4 2 "Ragione sociale "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 4 "Anno "
|
PROMPT 4 4 "Anno "
|
||||||
FLAGS "A"
|
HELP "Anno d'esercizio di competenza"
|
||||||
FIELD LF_TAB->CODTAB[1,4]
|
FLAGS "A"
|
||||||
USE PIM
|
FIELD LF_TAB->CODTAB[1,4]
|
||||||
INPUT CODTAB[1,4] F_ANNO
|
USE PIM
|
||||||
INPUT CODTAB[5,9] F_ATTIVITA
|
INPUT CODTAB[1,4] F_ANNO
|
||||||
INPUT CODTAB[10,12] F_REGISTRO
|
INPUT CODTAB[5,9] F_ATTIVITA
|
||||||
INPUT CODTAB[13,14] F_MESE
|
INPUT CODTAB[10,12] F_REGISTRO
|
||||||
INPUT CODTAB[15,15] F_TIPOCR
|
INPUT CODTAB[13,14] F_MESE
|
||||||
INPUT CODTAB[16,18] F_CODIVA
|
INPUT CODTAB[15,15] F_TIPOCR
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
INPUT CODTAB[16,18] F_CODIVA
|
||||||
DISPLAY "Attivita'" CODTAB[5,9]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Cod. registro" CODTAB[10,12]
|
DISPLAY "Attivita'" CODTAB[5,9]
|
||||||
DISPLAY "Mese" CODTAB[13,14]
|
DISPLAY "Cod. registro" CODTAB[10,12]
|
||||||
DISPLAY "Tipo c/r" CODTAB[15,15]
|
DISPLAY "Mese" CODTAB[13,14]
|
||||||
DISPLAY "Codice IVA" CODTAB[16,18]
|
DISPLAY "Tipo c/r" CODTAB[15,15]
|
||||||
OUTPUT F_ANNO CODTAB[1,4]
|
DISPLAY "Codice IVA" CODTAB[16,18]
|
||||||
OUTPUT F_ATTIVITA CODTAB[5,9]
|
OUTPUT F_ANNO CODTAB[1,4]
|
||||||
OUTPUT F_REGISTRO CODTAB[10,12]
|
OUTPUT F_ATTIVITA CODTAB[5,9]
|
||||||
OUTPUT F_MESE CODTAB[13,14]
|
OUTPUT F_REGISTRO CODTAB[10,12]
|
||||||
OUTPUT F_TIPOCR CODTAB[15,15]
|
OUTPUT F_MESE CODTAB[13,14]
|
||||||
OUTPUT F_CODIVA CODTAB[16,18]
|
OUTPUT F_TIPOCR CODTAB[15,15]
|
||||||
KEY 1
|
OUTPUT F_CODIVA CODTAB[16,18]
|
||||||
END
|
KEY 1
|
||||||
|
END
|
||||||
STRING F_ATTIVITA 5
|
|
||||||
BEGIN
|
STRING F_ATTIVITA 5
|
||||||
PROMPT 4 5 "Codice attivita "
|
BEGIN
|
||||||
HELP "Introdurre il codice dell' attivita'"
|
PROMPT 4 5 "Codice attivita "
|
||||||
FIELD LF_TAB->CODTAB[5,9]
|
HELP "Codice dell' attivita' della ditta"
|
||||||
USE LF_ATTIV
|
FIELD LF_TAB->CODTAB[5,9]
|
||||||
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
|
USE LF_ATTIV
|
||||||
CHECKTYPE NORMAL
|
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
|
||||||
INPUT CODDITTA F_CODDITTA
|
CHECKTYPE NORMAL
|
||||||
INPUT CODATT F_ATTIVITA
|
INPUT CODDITTA F_CODDITTA
|
||||||
DISPLAY "Codice attivita'" LF_TABCOM->CODTAB
|
INPUT CODATT F_ATTIVITA
|
||||||
DISPLAY "Descrizione@30" LF_TABCOM->S0
|
DISPLAY "Codice attivita'" LF_TABCOM->CODTAB
|
||||||
OUTPUT F_ATTIVITA CODATT
|
DISPLAY "Descrizione@30" LF_TABCOM->S0
|
||||||
WARNING "Codice attivita' non presente"
|
OUTPUT F_ATTIVITA CODATT
|
||||||
KEY 1
|
WARNING "Codice attivita' non presente"
|
||||||
END
|
KEY 1
|
||||||
|
END
|
||||||
STRING F_REGISTRO 3
|
|
||||||
BEGIN
|
STRING F_REGISTRO 3
|
||||||
PROMPT 4 6 "Codice registro "
|
BEGIN
|
||||||
FIELD LF_TAB->CODTAB[10,12]
|
PROMPT 4 6 "Codice registro "
|
||||||
FLAGS "R"
|
HELP "Codice registro di riferimento"
|
||||||
USE REG
|
FIELD LF_TAB->CODTAB[10,12]
|
||||||
CHECKTYPE NORMAL
|
FLAGS "R"
|
||||||
INPUT CODTAB[1,3] F_REGISTRO
|
USE REG
|
||||||
INPUT CODTAB[4,7] F_ANNO
|
CHECKTYPE NORMAL
|
||||||
DISPLAY "Codice registro" CODTAB[1,3]
|
INPUT CODTAB[1,4] F_REGISTRO
|
||||||
DISPLAY "Anno" CODTAB[4,7]
|
INPUT CODTAB[5,7] F_ANNO
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Codice registro" CODTAB[1,3]
|
||||||
OUTPUT F_REGISTRO CODTAB[1,3]
|
DISPLAY "Anno" CODTAB[4,7]
|
||||||
OUTPUT F_ANNO CODTAB[4,7]
|
DISPLAY "Descrizione@50" S0
|
||||||
WARNING "Codice registro assente"
|
OUTPUT F_REGISTRO CODTAB[1,4]
|
||||||
KEY 1
|
OUTPUT F_ANNO CODTAB[5,7]
|
||||||
END
|
WARNING "Codice registro assente"
|
||||||
|
KEY 1
|
||||||
LIST F_MESE 10
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT 4 7 "Mese "
|
LIST F_MESE 10
|
||||||
FIELD LF_TAB->CODTAB[13,14]
|
BEGIN
|
||||||
FLAGS "MA"
|
PROMPT 4 7 "Mese "
|
||||||
VALIDATE MTCHECK_FUNC
|
HELP "Mese a cui si fa riferimento"
|
||||||
KEY 1
|
FIELD LF_TAB->CODTAB[13,14]
|
||||||
END
|
FLAGS "MA"
|
||||||
|
VALIDATE MTCHECK_FUNC
|
||||||
NUMBER F_TIPOCR 1
|
KEY 1
|
||||||
BEGIN
|
END
|
||||||
PROMPT 4 8 "Tipo Costo/Ricavo "
|
|
||||||
FIELD LF_TAB->CODTAB[15,15]
|
NUMBER F_TIPOCR 1
|
||||||
COPY ALL F_ANNO
|
BEGIN
|
||||||
KEY 1
|
PROMPT 4 8 "Tipo Costo/Ricavo "
|
||||||
END
|
HELP "Tipo di conto costo o ricavo"
|
||||||
|
FIELD LF_TAB->CODTAB[15,15]
|
||||||
STRING F_CODIVA 3
|
COPY ALL F_ANNO
|
||||||
BEGIN
|
KEY 1
|
||||||
PROMPT 4 10 "Codice IVA "
|
END
|
||||||
FIELD LF_TAB->CODTAB[16,18]
|
|
||||||
USE %IVA
|
STRING F_CODIVA 3
|
||||||
INPUT CODTAB F_CODIVA
|
BEGIN
|
||||||
DISPLAY "Codice" CODTAB
|
PROMPT 4 10 "Codice IVA "
|
||||||
DISPLAY "Descrizione " S0
|
HELP "Codice IVA da applicare"
|
||||||
OUTPUT F_CODIVA CODTAB
|
FIELD LF_TAB->CODTAB[16,18]
|
||||||
KEY 1
|
USE %IVA
|
||||||
END
|
INPUT CODTAB F_CODIVA
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
LIST F_IMPORTO 5
|
DISPLAY "Descrizione " S0
|
||||||
BEGIN
|
OUTPUT F_CODIVA CODTAB
|
||||||
PROMPT 4 9 "Tipo Importo "
|
KEY 1
|
||||||
FIELD PIM->I0
|
END
|
||||||
ITEM "1|Netti" MESSAGE HIDE,F_IMPLORDO|SHOW,F_IMPONIBILE|SHOW,F_IVA
|
|
||||||
ITEM "2|Lordi" MESSAGE HIDE,F_IMPONIBILE|HIDE,F_IVA|SHOW,F_IMPLORDO
|
LIST F_IMPORTO 5
|
||||||
KEY 1
|
BEGIN
|
||||||
END
|
PROMPT 4 9 "Tipo Importo "
|
||||||
|
HELP "Tipo importo da applicare"
|
||||||
NUMBER F_IMPONIBILE 15
|
FIELD PIM->I0
|
||||||
BEGIN
|
ITEM "1|Netti" MESSAGE HIDE,F_IMPLORDO|SHOW,F_IMPONIBILE|SHOW,F_IVA
|
||||||
PROMPT 4 11 "Imponibile "
|
ITEM "2|Lordi" MESSAGE HIDE,F_IMPONIBILE|HIDE,F_IVA|SHOW,F_IMPLORDO
|
||||||
FIELD LF_TAB->R0
|
KEY 1
|
||||||
FLAGS "R"
|
END
|
||||||
END
|
|
||||||
|
NUMBER F_IMPONIBILE 15
|
||||||
NUMBER F_IVA 15
|
BEGIN
|
||||||
BEGIN
|
PROMPT 4 11 "Imponibile "
|
||||||
PROMPT 4 12 "IVA "
|
HELP "Importo dell'imponibile IVA"
|
||||||
FIELD LF_TAB->R1
|
FIELD LF_TAB->R0
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_IMPLORDO 15
|
NUMBER F_IVA 15
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 13 "Importo lordo "
|
PROMPT 4 12 "IVA "
|
||||||
FIELD LF_TAB->R2
|
HELP "Importo dell'imposta IVA"
|
||||||
FLAGS "R"
|
FIELD LF_TAB->R1
|
||||||
END
|
FLAGS "R"
|
||||||
|
END
|
||||||
ENDPAGE
|
|
||||||
|
NUMBER F_IMPLORDO 15
|
||||||
ENDMASK
|
BEGIN
|
||||||
|
PROMPT 4 13 "Importo lordo "
|
||||||
|
HELP "Importo imponibile+IVA"
|
||||||
|
FIELD LF_TAB->R2
|
||||||
|
FLAGS "R"
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
|
|||||||
384
ba/batbpimc.uml
384
ba/batbpimc.uml
@ -1,187 +1,197 @@
|
|||||||
#include "batbpim.h"
|
#include "batbpim.h"
|
||||||
#define F_IMPORTO1 1000
|
#define F_IMPORTO1 1000
|
||||||
|
|
||||||
TOOLBAR "" 0 20 0 2
|
TOOLBAR "" 0 20 0 2
|
||||||
#include <toolbar.h>
|
#include <toolbar.h>
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "" -1 -1 78 16
|
PAGE "" -1 -1 78 16
|
||||||
|
|
||||||
NUMBER F_CODDITTA 5
|
NUMBER F_CODDITTA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 1 "Ditta "
|
PROMPT 4 1 "Ditta "
|
||||||
FLAGS "FRD"
|
FLAGS "FRD"
|
||||||
USE LF_NDITTE KEY 1
|
USE LF_NDITTE KEY 1
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
INPUT CODDITTA F_CODDITTA
|
INPUT CODDITTA F_CODDITTA
|
||||||
DISPLAY "Codice" CODDITTA
|
DISPLAY "Codice" CODDITTA
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODDITTA CODDITTA
|
OUTPUT F_CODDITTA CODDITTA
|
||||||
OUTPUT F_RAGSOC RAGSOC
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOC 50
|
STRING F_RAGSOC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 2 "Ragione sociale "
|
PROMPT 4 2 "Ragione sociale "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 4 "Anno "
|
PROMPT 4 4 "Anno "
|
||||||
FLAGS "A"
|
HELP "Anno d'esercizio di competenza"
|
||||||
FIELD LF_TAB->CODTAB[1,4]
|
FLAGS "A"
|
||||||
USE PIM
|
FIELD LF_TAB->CODTAB[1,4]
|
||||||
INPUT CODTAB[1,4] F_ANNO
|
USE PIM
|
||||||
INPUT CODTAB[5,9] F_ATTIVITA
|
INPUT CODTAB[1,4] F_ANNO
|
||||||
INPUT CODTAB[10,12] F_REGISTRO
|
INPUT CODTAB[5,9] F_ATTIVITA
|
||||||
INPUT CODTAB[13,14] F_MESE
|
INPUT CODTAB[10,12] F_REGISTRO
|
||||||
INPUT CODTAB[15,17] F_CODIVA
|
INPUT CODTAB[13,14] F_MESE
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
INPUT CODTAB[15,17] F_CODIVA
|
||||||
DISPLAY "Attivita'" CODTAB[5,9]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Codice registro" CODTAB[10,12]
|
DISPLAY "Attivita'" CODTAB[5,9]
|
||||||
DISPLAY "Mese" CODTAB[13,14]
|
DISPLAY "Codice registro" CODTAB[10,12]
|
||||||
DISPLAY "Codice IVA" CODTAB[15,17]
|
DISPLAY "Mese" CODTAB[13,14]
|
||||||
OUTPUT F_ANNO CODTAB[1,4]
|
DISPLAY "Codice IVA" CODTAB[15,17]
|
||||||
OUTPUT F_ATTIVITA CODTAB[5,9]
|
OUTPUT F_ANNO CODTAB[1,4]
|
||||||
OUTPUT F_REGISTRO CODTAB[10,12]
|
OUTPUT F_ATTIVITA CODTAB[5,9]
|
||||||
OUTPUT F_MESE CODTAB[13,14]
|
OUTPUT F_REGISTRO CODTAB[10,12]
|
||||||
OUTPUT F_CODIVA CODTAB[15,17]
|
OUTPUT F_MESE CODTAB[13,14]
|
||||||
KEY 1
|
OUTPUT F_CODIVA CODTAB[15,17]
|
||||||
END
|
KEY 1
|
||||||
|
END
|
||||||
STRING F_ATTIVITA 5
|
|
||||||
BEGIN
|
STRING F_ATTIVITA 5
|
||||||
PROMPT 4 5 "Codice attivita "
|
BEGIN
|
||||||
HELP "Introdurre il codice dell' attivita'"
|
PROMPT 4 5 "Codice attivita "
|
||||||
FIELD LF_TAB->CODTAB[5,9]
|
HELP "Codice dell' attivita' della ditta"
|
||||||
USE LF_ATTIV
|
FIELD LF_TAB->CODTAB[5,9]
|
||||||
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
|
USE LF_ATTIV
|
||||||
CHECKTYPE NORMAL
|
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
|
||||||
INPUT CODDITTA F_CODDITTA
|
CHECKTYPE NORMAL
|
||||||
INPUT CODATT F_ATTIVITA
|
INPUT CODDITTA F_CODDITTA
|
||||||
DISPLAY "Codice attivita'" LF_TABCOM->CODTAB
|
INPUT CODATT F_ATTIVITA
|
||||||
DISPLAY "Descrizione@30" LF_TABCOM->S0
|
DISPLAY "Codice attivita'" LF_TABCOM->CODTAB
|
||||||
OUTPUT F_ATTIVITA CODATT
|
DISPLAY "Descrizione@30" LF_TABCOM->S0
|
||||||
WARNING "Codice attivita' non presente"
|
OUTPUT F_ATTIVITA CODATT
|
||||||
KEY 1
|
WARNING "Codice attivita' non presente"
|
||||||
END
|
KEY 1
|
||||||
|
END
|
||||||
STRING F_REGISTRO 3
|
|
||||||
BEGIN
|
STRING F_REGISTRO 3
|
||||||
PROMPT 4 6 "Codice registro "
|
BEGIN
|
||||||
FIELD LF_TAB->CODTAB[10,12]
|
PROMPT 4 6 "Codice registro "
|
||||||
FLAGS "R"
|
HELP "Codice registro di riferimento"
|
||||||
USE REG
|
FIELD LF_TAB->CODTAB[10,12]
|
||||||
CHECKTYPE NORMAL
|
FLAGS "R"
|
||||||
INPUT CODTAB[1,3] F_REGISTRO
|
USE REG
|
||||||
INPUT CODTAB[4,7] F_ANNO
|
CHECKTYPE NORMAL
|
||||||
DISPLAY "Codice registro" CODTAB[1,3]
|
INPUT CODTAB[1,3] F_REGISTRO
|
||||||
DISPLAY "Anno" CODTAB[4,7]
|
INPUT CODTAB[4,7] F_ANNO
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Codice registro" CODTAB[1,3]
|
||||||
OUTPUT F_REGISTRO CODTAB[1,3]
|
DISPLAY "Anno" CODTAB[4,7]
|
||||||
OUTPUT F_ANNO CODTAB[4,7]
|
DISPLAY "Descrizione@50" S0
|
||||||
WARNING "Codice registro assente"
|
OUTPUT F_REGISTRO CODTAB[1,3]
|
||||||
KEY 1
|
OUTPUT F_ANNO CODTAB[4,7]
|
||||||
END
|
WARNING "Codice registro assente"
|
||||||
|
KEY 1
|
||||||
NUMBER F_MESE 2
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT 4 7 "Mese "
|
NUMBER F_MESE 2
|
||||||
FIELD LF_TAB->CODTAB[13,14]
|
BEGIN
|
||||||
FLAGS "RZ"
|
PROMPT 4 7 "Mese "
|
||||||
COPYUSE F_ANNO
|
HELP "Mese a cui si fa riferimento"
|
||||||
INPUT CODTAB[1,4] F_ANNO
|
FIELD LF_TAB->CODTAB[13,14]
|
||||||
INPUT CODTAB[5,9] F_ATTIVITA
|
FLAGS "RZ"
|
||||||
INPUT CODTAB[10,12] F_REGISTRO
|
COPYUSE F_ANNO
|
||||||
INPUT CODTAB[13,14] F_MESE
|
INPUT CODTAB[1,4] F_ANNO
|
||||||
INPUT CODTAB[15,17] F_CODIVA
|
INPUT CODTAB[5,9] F_ATTIVITA
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
INPUT CODTAB[10,12] F_REGISTRO
|
||||||
DISPLAY "Attivita'" CODTAB[5,9]
|
INPUT CODTAB[13,14] F_MESE
|
||||||
DISPLAY "Codice registro" CODTAB[10,12]
|
INPUT CODTAB[15,17] F_CODIVA
|
||||||
DISPLAY "Mese" CODTAB[13,14]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Codice IVA" CODTAB[15,17]
|
DISPLAY "Attivita'" CODTAB[5,9]
|
||||||
OUTPUT F_ANNO CODTAB[1,4]
|
DISPLAY "Codice registro" CODTAB[10,12]
|
||||||
OUTPUT F_ATTIVITA CODTAB[5,9]
|
DISPLAY "Mese" CODTAB[13,14]
|
||||||
OUTPUT F_REGISTRO CODTAB[10,12]
|
DISPLAY "Codice IVA" CODTAB[15,17]
|
||||||
OUTPUT F_MESE CODTAB[13,14]
|
OUTPUT F_ANNO CODTAB[1,4]
|
||||||
OUTPUT F_CODIVA CODTAB[15,17]
|
OUTPUT F_ATTIVITA CODTAB[5,9]
|
||||||
VALIDATE MTCHECK_FUNC
|
OUTPUT F_REGISTRO CODTAB[10,12]
|
||||||
KEY 1
|
OUTPUT F_MESE CODTAB[13,14]
|
||||||
END
|
OUTPUT F_CODIVA CODTAB[15,17]
|
||||||
|
VALIDATE MTCHECK_FUNC
|
||||||
NUMBER F_TIPOCR 1
|
KEY 1
|
||||||
BEGIN
|
END
|
||||||
PROMPT 4 8 "Tipo Costo/Ricavo "
|
|
||||||
FIELD LF_TAB->CODTAB[15,15]
|
NUMBER F_TIPOCR 1
|
||||||
KEY 1
|
BEGIN
|
||||||
END
|
PROMPT 4 8 "Tipo Costo/Ricavo "
|
||||||
|
HELP "Tipo di conto costo o ricavo"
|
||||||
LIST F_IMPORTO 5
|
FIELD LF_TAB->CODTAB[15,15]
|
||||||
BEGIN
|
KEY 1
|
||||||
PROMPT 4 9 "Tipo importo "
|
END
|
||||||
ITEM "1|Netti"
|
|
||||||
MESSAGE HIDE,F_IMPLORDO|SHOW,F_IMPONIBILE|SHOW,F_IVA
|
LIST F_IMPORTO 5
|
||||||
ITEM "2|Lordi"
|
BEGIN
|
||||||
MESSAGE HIDE,F_IMPONIBILE|HIDE,F_IVA|SHOW,F_IMPLORDO
|
PROMPT 4 9 "Tipo importo "
|
||||||
KEY 1
|
HELP "Tipo importo da applicare"
|
||||||
END
|
ITEM "1|Netti"
|
||||||
|
MESSAGE HIDE,F_IMPLORDO|SHOW,F_IMPONIBILE|SHOW,F_IVA
|
||||||
STRING F_CODIVA 3
|
ITEM "2|Lordi"
|
||||||
BEGIN
|
MESSAGE HIDE,F_IMPONIBILE|HIDE,F_IVA|SHOW,F_IMPLORDO
|
||||||
PROMPT 4 10 "Codice IVA "
|
KEY 1
|
||||||
FIELD LF_TAB->CODTAB[15,17]
|
END
|
||||||
COPYUSE F_ANNO
|
|
||||||
INPUT CODTAB[1,4] F_ANNO
|
STRING F_CODIVA 3
|
||||||
INPUT CODTAB[5,9] F_ATTIVITA
|
BEGIN
|
||||||
INPUT CODTAB[10,12] F_REGISTRO
|
PROMPT 4 10 "Codice IVA "
|
||||||
INPUT CODTAB[13,14] F_MESE
|
HELP "Codice IVA da applicare"
|
||||||
INPUT CODTAB[15,17] F_CODIVA
|
FIELD LF_TAB->CODTAB[15,17]
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
COPYUSE F_ANNO
|
||||||
DISPLAY "Attivita'" CODTAB[5,9]
|
INPUT CODTAB[1,4] F_ANNO
|
||||||
DISPLAY "Codice registro" CODTAB[10,12]
|
INPUT CODTAB[5,9] F_ATTIVITA
|
||||||
DISPLAY "Mese" CODTAB[13,14]
|
INPUT CODTAB[10,12] F_REGISTRO
|
||||||
DISPLAY "Codice IVA" CODTAB[15,17]
|
INPUT CODTAB[13,14] F_MESE
|
||||||
OUTPUT F_ANNO CODTAB[1,4]
|
INPUT CODTAB[15,17] F_CODIVA
|
||||||
OUTPUT F_ATTIVITA CODTAB[5,9]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
OUTPUT F_REGISTRO CODTAB[10,12]
|
DISPLAY "Attivita'" CODTAB[5,9]
|
||||||
OUTPUT F_MESE CODTAB[13,14]
|
DISPLAY "Codice registro" CODTAB[10,12]
|
||||||
OUTPUT F_CODIVA CODTAB[15,17]
|
DISPLAY "Mese" CODTAB[13,14]
|
||||||
KEY 1
|
DISPLAY "Codice IVA" CODTAB[15,17]
|
||||||
END
|
OUTPUT F_ANNO CODTAB[1,4]
|
||||||
|
OUTPUT F_ATTIVITA CODTAB[5,9]
|
||||||
NUMBER F_IMPONIBILE 15
|
OUTPUT F_REGISTRO CODTAB[10,12]
|
||||||
BEGIN
|
OUTPUT F_MESE CODTAB[13,14]
|
||||||
PROMPT 4 11 "Imponibile "
|
OUTPUT F_CODIVA CODTAB[15,17]
|
||||||
FIELD LF_TAB->R0
|
KEY 1
|
||||||
FLAGS "R"
|
END
|
||||||
END
|
|
||||||
|
NUMBER F_IMPONIBILE 15
|
||||||
NUMBER F_IVA 15
|
BEGIN
|
||||||
BEGIN
|
PROMPT 4 11 "Imponibile "
|
||||||
PROMPT 4 12 "IVA "
|
HELP "Importo dell'imponibile IVA"
|
||||||
FIELD LF_TAB->R1
|
FIELD LF_TAB->R0
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_IMPLORDO 15
|
NUMBER F_IVA 15
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 13 "Importo lordo "
|
PROMPT 4 12 "IVA "
|
||||||
FIELD LF_TAB->R2
|
HELP "Importo dell'imposta IVA"
|
||||||
FLAGS "R"
|
FIELD LF_TAB->R1
|
||||||
END
|
FLAGS "R"
|
||||||
BUTTON DLG_OK
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT 42 14 ""
|
NUMBER F_IMPLORDO 15
|
||||||
END
|
BEGIN
|
||||||
|
PROMPT 4 13 "Importo lordo "
|
||||||
BUTTON DLG_CANCEL
|
HELP "Importo imponibile+IVA"
|
||||||
BEGIN
|
FIELD LF_TAB->R2
|
||||||
PROMPT 53 14 ""
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
BUTTON DLG_OK
|
||||||
|
BEGIN
|
||||||
ENDMASK
|
PROMPT 42 14 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_CANCEL
|
||||||
|
BEGIN
|
||||||
|
PROMPT 53 14 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
|
|||||||
@ -286,7 +286,7 @@ NUMBER F_ULTIMO_NUM_RIGA_STAMPATO 7
|
|||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 44 4 "Ultimo numero riga stamp."
|
PROMPT 44 4 "Ultimo numero riga stamp."
|
||||||
FIELD I6
|
FIELD I6
|
||||||
HELP"Ultimo numero della riga stampata"
|
HELP "Ultimo numero della riga stampata"
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
GROUP 5 6
|
GROUP 5 6
|
||||||
END
|
END
|
||||||
@ -360,7 +360,7 @@ END
|
|||||||
LIST F_MESE_STAMPA_ULTIMA_LIQ 10
|
LIST F_MESE_STAMPA_ULTIMA_LIQ 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Mese stampa ultima liquidazione "
|
PROMPT 2 10 "Mese stampa ultima liquidazione "
|
||||||
HELP "Mese in cui Š stat stampata l'ultima liquidazione"
|
HELP "Mese in cui e' stata stampata l'ultima liquidazione"
|
||||||
FIELD I4
|
FIELD I4
|
||||||
FLAGS "M"
|
FLAGS "M"
|
||||||
ITEM "13|Annuale"
|
ITEM "13|Annuale"
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user