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

Corretto errrore gestione utente all'inizio

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@604 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-11-11 18:01:12 +00:00
parent 430a49010b
commit 1155d509e5
11 changed files with 820 additions and 780 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ba/ba0.cpp
View File

@ -445,8 +445,8 @@ void TMenu_application::test_temp() const
{
TFilename dir; dir.tempdir(); // Directory temporanea
TFilename name = dir;
name << "/" << "*.*"; // Cerca tutti i file
TFilename name;
name << dir << "/" << "*.*"; // Cerca tutti i file
#if XVT_OS == XVT_OS_WIN
struct _find_t f;

424
ba/ba1300.cpp
View File

@ -1,212 +1,212 @@
#include <stdlib.h>
#include <applicat.h>
#include <xvtility.h>
#include <utility.h>
#include <prefix.h>
#include <mask.h>
#include <isam.h>
#include <string.h>
#include <sheet.h>
#include <msksheet.h>
#include <progind.h>
#include <urldefid.h>
#include <validate.h>
#include "ba1.h"
#include "ba1300.h"
#include "ba1300a.h"
class BA1300_application:public TApplication
{
TTestSheet * _testsheet;
TTestProc * _test,
* _debug;
TMask * _mask;
long _firm;
protected:
virtual bool menu(MENU_TAG);
virtual bool create () ;
virtual bool destroy();
virtual bool extended_firm() const { return TRUE; }
public:
BA1300_application() : _testsheet(NULL), _mask(NULL) {}
TTestSheet * get_sheet() {return _testsheet;}
TTestProc * get_test() {return _test;}
TMask * get_mask() {return _mask;}
TArray_sheet * field_sheet(TMask *);
};
HIDDEN bool seq_handler(TMask_field& f, KEY key)
{
if (key==K_ENTER)
if (!fexist((const char*)f.get()))
{
warning_box("File inesistente");
return FALSE;
}
return TRUE;
}
bool BA1300_application::create() // initvar e arrmask
{
_firm = get_firm();
if (argc() > 2)
{
return FALSE;
}
else
{
_mask = new TMask ("ba1300a"); // Maschera principale
set_firm();
_testsheet = new TTestSheet("Selezione Files") ;
get_sheet()->add_button(DLG_RESET,"~Reset",K_F6);
}
return TRUE ;
}
bool BA1300_application::destroy() // releasev e arrmask
{
if (_firm) set_firm(_firm);
if (_testsheet != NULL) delete _testsheet;
if (_mask != NULL) delete _mask;
return TRUE ;
}
TArray_sheet * BA1300_application::field_sheet(TMask * m)
{
TEdit_field& f=(TEdit_field&) m->field(F_FILE);
TArray_sheet * s=(TArray_sheet*) f.sheet()->sheet();
return s;
}
bool BA1300_application::menu(MENU_TAG m)
{
KEY tasto,tastoS;
long numtest;
TMask *msk;
TDir *cdir;
disable_menu_item(M_FILE_NEW);
switch (m)
{
case BAR_ITEM(2):
{
msk = new TMask("ba1300b");
cdir = new TDir;
cdir->get(LF_DIR,_nolock,_nordir,_sysdirop);
const int nitems=(int)cdir->eod();
for (int i=0; i<nitems;i++) // fill sheet
{
TToken_string riga(128);
riga.cut(0);
cdir->get(i+1,_nolock,_nordir,_sysdirop);
riga=format("%3d",i+1);
riga.add(cdir->name());
riga.add(format("%ld",cdir->eod()));
riga.add(format("%ld",cdir->eox()));
riga.add(format("%u",cdir->len()));
riga.add(cdir->des());
field_sheet(msk)->add(riga);
}
msk->set_handler(F_SEQUENZA,seq_handler);
if (msk->run()==K_ENTER)
{
_debug = new TTestProc;
_debug->set_file(msk->get_int(F_FILE));
_debug->load_random(msk->get(F_SEQUENZA));
if (!_debug->stopped())
_debug->do_debug();
else
warning_box("File di sequenza non valido");
delete _debug;
}
delete msk;
delete cdir;
}
break;
case BAR_ITEM(1):
do {
switch(tasto=get_mask()->run())
{
case K_ENTER:
if (get_sheet()->checked()>0 && (get_mask()->get_long(F_ITERAZIONI)>0 || get_mask()->get_bool(F_CONTINUO)))
{
_test = new TTestProc;
get_test()->set_sheet(get_sheet());
get_test()->set_rmc();
get_test()->get_win()->set_color(COLOR_BLACK,COLOR_WHITE);
get_test()->get_win()->clear(COLOR_WHITE);
get_test()->get_win()->set_caption("Verifica di stabilita'");
get_test()->get_win()->WriteW(10,5,"Test N. :");
get_test()->get_win()->WriteW(10,7,"Nome File :");
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,12,"Tempo trascorso :");
get_test()->get_win()->WriteW(10,13,"Tempo stimato :");
get_test()->get_win()->WriteW(10,15,"Ultimo Errore :");
numtest=0;
while (((++numtest)<=get_mask()->get_long(F_ITERAZIONI) || get_mask()->get_bool(F_CONTINUO)) && (!get_test()->stopped()))
{
if (get_mask()->get_bool(F_CONTINUO))
get_test()->get_win()->WriteW(33,5,format("%4ld (CONTINUO)",numtest));
else
get_test()->get_win()->WriteW(33,5,format("%4ld/%-4ld",numtest,_mask->get_long(F_ITERAZIONI)));
get_test()->set_numt(numtest);
get_test()->do_test_1();
}
if (get_test()->rm_copy())
{
get_test()->get_win()->WriteW(33,10,"CANCELLAZIONE COPIE ");
for (int i=0;i<get_sheet()->items();i++)
if (get_sheet()->checked(i))
get_test()->remove_copy(i+1);
}
delete _test;
}
else
warning_box("Nessun file selezionato");
break;
case K_F4:
get_sheet()->sr_status();
while ((tastoS=get_sheet()->run()) == K_F6)
for (int i=0; i<get_sheet()->items();i++)
get_sheet()->uncheck(i);
if (tastoS == K_ESC)
get_sheet()->sr_status(FALSE);
else
{ // Cannot select first two files.
get_sheet()->uncheck(0);
get_sheet()->uncheck(1);
}
break;
case K_F5:
if (fexist((const char*)TString(20).format("test%creport.txt",Separator)))
{
TTestReport rep_win("Report");
rep_win.load_report();
rep_win.run();
} else
warning_box("Report non disponibile");
break;
default:
break;
}
} while (tasto != K_ESC);
break;
}
enable_menu_item(M_FILE_NEW);
return xvt_test_menu_tag(BAR_ITEM(2));
}
int ba1300(int argc, char** argv)
{
BA1300_application a;
a.run(argc,argv,"Test dell'ISAM");
return 0;
}
#include <stdlib.h>
#include <applicat.h>
#include <xvtility.h>
#include <utility.h>
#include <prefix.h>
#include <mask.h>
#include <isam.h>
#include <sheet.h>
#include <progind.h>
#include <urldefid.h>
#include <validate.h>
#include "ba1.h"
#include "ba1300.h"
#include "ba1300a.h"
class BA1300_application:public TApplication
{
TTestSheet * _testsheet;
TTestProc * _test,
* _debug;
TMask * _mask;
long _firm;
protected:
virtual bool menu(MENU_TAG);
virtual bool create () ;
virtual bool destroy();
virtual bool extended_firm() const { return TRUE; }
public:
BA1300_application() : _testsheet(NULL), _mask(NULL) {}
TTestSheet * get_sheet() {return _testsheet;}
TTestProc * get_test() {return _test;}
TMask * get_mask() {return _mask;}
TArray_sheet * field_sheet(TMask *);
};
HIDDEN bool seq_handler(TMask_field& f, KEY key)
{
if (key==K_ENTER)
if (!fexist((const char*)f.get()))
{
warning_box("File inesistente");
return FALSE;
}
return TRUE;
}
bool BA1300_application::create() // initvar e arrmask
{
_firm = get_firm();
if (argc() > 2)
{
return FALSE;
}
else
{
_mask = new TMask ("ba1300a"); // Maschera principale
set_firm();
_testsheet = new TTestSheet("Selezione Files") ;
get_sheet()->add_button(DLG_RESET,"~Reset",K_F6);
}
return TRUE ;
}
bool BA1300_application::destroy() // releasev e arrmask
{
if (_firm) set_firm(_firm);
if (_testsheet != NULL) delete _testsheet;
if (_mask != NULL) delete _mask;
return TRUE ;
}
TArray_sheet * BA1300_application::field_sheet(TMask * m)
{
TEdit_field& f=(TEdit_field&) m->field(F_FILE);
TArray_sheet * s=(TArray_sheet*) f.sheet()->sheet();
return s;
}
bool BA1300_application::menu(MENU_TAG m)
{
KEY tasto,tastoS;
long numtest;
TMask *msk;
TDir *cdir;
disable_menu_item(M_FILE_NEW);
switch (m)
{
case BAR_ITEM(2):
{
msk = new TMask("ba1300b");
cdir = new TDir;
cdir->get(LF_DIR,_nolock,_nordir,_sysdirop);
const int nitems=(int)cdir->eod();
for (int i=0; i<nitems;i++) // fill sheet
{
TToken_string riga(128);
riga.cut(0);
cdir->get(i+1,_nolock,_nordir,_sysdirop);
riga=format("%3d",i+1);
riga.add(cdir->name());
riga.add(format("%ld",cdir->eod()));
riga.add(format("%ld",cdir->eox()));
riga.add(format("%u",cdir->len()));
riga.add(cdir->des());
field_sheet(msk)->add(riga);
}
msk->set_handler(F_SEQUENZA,seq_handler);
if (msk->run()==K_ENTER)
{
_debug = new TTestProc;
_debug->set_file(msk->get_int(F_FILE));
_debug->load_random(msk->get(F_SEQUENZA));
if (!_debug->stopped())
_debug->do_debug();
else
warning_box("File di sequenza non valido");
delete _debug;
}
delete msk;
delete cdir;
}
break;
case BAR_ITEM(1):
do {
switch(tasto=get_mask()->run())
{
case K_ENTER:
if (get_sheet()->checked()>0 && (get_mask()->get_long(F_ITERAZIONI)>0 || get_mask()->get_bool(F_CONTINUO)))
{
_test = new TTestProc;
get_test()->set_sheet(get_sheet());
get_test()->set_rmc();
get_test()->get_win()->set_color(COLOR_BLACK,COLOR_WHITE);
get_test()->get_win()->clear(COLOR_WHITE);
get_test()->get_win()->set_caption("Verifica di stabilita'");
get_test()->get_win()->WriteW(10,5,"Test N. :");
get_test()->get_win()->WriteW(10,7,"Nome File :");
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,12,"Tempo trascorso :");
get_test()->get_win()->WriteW(10,13,"Tempo stimato :");
get_test()->get_win()->WriteW(10,15,"Ultimo Errore :");
numtest=0;
while (((++numtest)<=get_mask()->get_long(F_ITERAZIONI) || get_mask()->get_bool(F_CONTINUO)) && (!get_test()->stopped()))
{
if (get_mask()->get_bool(F_CONTINUO))
get_test()->get_win()->WriteW(33,5,format("%4ld (CONTINUO)",numtest));
else
get_test()->get_win()->WriteW(33,5,format("%4ld/%-4ld",numtest,_mask->get_long(F_ITERAZIONI)));
get_test()->set_numt(numtest);
get_test()->do_test_1();
}
if (get_test()->rm_copy())
{
get_test()->get_win()->WriteW(33,10,"CANCELLAZIONE COPIE ");
for (int i=0;i<get_sheet()->items();i++)
if (get_sheet()->checked(i))
get_test()->remove_copy(i+1);
}
delete _test;
}
else
warning_box("Nessun file selezionato");
break;
case K_F4:
get_sheet()->sr_status();
while ((tastoS=get_sheet()->run()) == K_F6)
for (int i=0; i<get_sheet()->items();i++)
get_sheet()->uncheck(i);
if (tastoS == K_ESC)
get_sheet()->sr_status(FALSE);
else
{ // Cannot select first two files.
get_sheet()->uncheck(0);
get_sheet()->uncheck(1);
}
break;
case K_F5:
if (fexist((const char*)TString(20).format("test%creport.txt",Separator)))
{
TTestReport rep_win("Report");
rep_win.load_report();
rep_win.run();
} else
warning_box("Report non disponibile");
break;
default:
break;
}
} while (tasto != K_ESC);
break;
}
enable_menu_item(M_FILE_NEW);
return xvt_test_menu_tag(BAR_ITEM(2));
}
int ba1300(int argc, char** argv)
{
BA1300_application a;
a.run(argc,argv,"Test dell'ISAM");
return 0;
}

382
ba/ba3300a.uml
View File

@ -1,189 +1,193 @@
#include "ba3300.h"
PAGE "Stampa fogli libro bollato" -1 -1 74 20
NUMBER F_ANNO 4
BEGIN
PROMPT 3 3 "Anno Riferimento "
USE REG
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODICE
DISPLAY "Anno " CODTAB[1,4]
DISPLAY "Codice Registro" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" I0
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_CODICE CODTAB[5,7]
OUTPUT F_REGISTRO S0
FLAGS "URZ"
CHECKTYPE REQUIRED
KEY 1
END
STRING F_CODDITTA 5
BEGIN
PROMPT 3 2 "Ditta "
FLAGS "DFR"
KEY 1
END
STRING F_CODICE 3
BEGIN
PROMPT 3 4 "Codice Registro "
FLAGS "U"
COPY ALL F_ANNO
CHECKTYPE REQUIRED
KEY 1
END
STRING F_REGISTRO 50
BEGIN
PROMPT 3 6 "Registro "
HELP "Indicare la descrizione del registro"
USE REG KEY 2
INPUT S0 F_REGISTRO
DISPLAY "Descrizione@50" S0
DISPLAY "Anno " CODTAB[1,4]
DISPLAY "Codice Registro" CODTAB[5,7]
DISPLAY "Tipo" I0
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50
BEGIN
PROMPT 3 7 "Ragione sociale "
FLAGS "U"
// USE LF_NDITTE KEY 2
// INPUT RAGSOC F_RAGSOC
// DISPLAY "Ragione sociale @50" RAGSOC
// DISPLAY "Ditta" CODDITTA
// OUTPUT F_RAGSOC RAGSOC
// OUTPUT F_CODDITTA CODDITTA
END
STRING F_INDIRIZZO 35
BEGIN
PROMPT 3 8 "Indirizzo "
// USE LF_UNLOC
// CHECKTYPE NORMAL
// INPUT CODULC "1"
// INPUT CODDITTA F_CODDITTA
// DISPLAY "Ditta" CODDITTA
// DISPLAY "Indirizzo @35" INDULC
// OUTPUT F_INDIRIZZO INDULC
// OUTPUT F_CODDITTA CODDITTA
// WARNING "Indirizzo assente"
END
STRING F_CIV 10
BEGIN
PROMPT 51 8 "N.civico "
END
STRING F_CAP 5
BEGIN
PROMPT 3 9 "CAP "
END
STRING F_CODCOM 4
BEGIN
PROMPT 15 9 "Comune "
END
STRING F_COM 28
BEGIN
PROMPT 29 9 ""
END
STRING F_PROV 5
BEGIN
PROMPT 60 9 "Prov."
END
STRING F_COFI 16
BEGIN
PROMPT 3 10 "Codice fiscale "
// USE LF_ANAG KEY 2
// INPUT RAGSOC F_RAGSOC
// DISPLAY "Tipo" TIPOA
// DISPLAY "Codice" CODANAGR
// DISPLAY "Ragione sociale @50" RAGSOC
// OUTPUT F_RAGSOC RAGSOC
// OUTPUT F_COFI COFI
// OUTPUT F_PAIV PAIV
END
STRING F_PAIV 12
BEGIN
PROMPT 44 10 "Partita I.V.A "
// USE LF_ANAG KEY 2
// INPUT RAGSOC F_RAGSOC
// DISPLAY "Tipo" TIPOA
// DISPLAY "Codice" CODANAGR
// DISPLAY "Ragione sociale @50" RAGSOC
// OUTPUT F_RAGSOC RAGSOC
// OUTPUT F_COFI COFI
// OUTPUT F_PAIV PAIV
END
NUMBER F_NPAGINI 6
BEGIN
PROMPT 3 12 "Numero pagina iniziale "
FLAGS "RU"
NUM_EXPR {#THIS_FIELD >= 0}
WARNING "Numero pagina iniziale errato: non puo' essere negativo"
END
NUMBER F_NPAGFI 6
BEGIN
PROMPT 3 13 "Numero pagina finale "
FLAGS "R"
NUM_EXPR {#THIS_FIELD >= #F_NPAGINI}
WARNING "Numero pagina finale errato: deve essere maggiore o uguale a quello iniziale"
END
BOOLEAN F_PRIMO
BEGIN
PROMPT 3 14 "Inizio numerazione dopo primo foglio "
END
LIST F_TIPOST 7
BEGIN
PROMPT 3 15 "Tipo di stampa "
ITEM "0|132"
ITEM "1|132 c."
ITEM "2|198"
END
NUMBER F_LUNG 2
BEGIN
PROMPT 3 16 "Numero di righe "
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
#include "ba3300.h"
PAGE "Stampa fogli libro bollato" -1 -1 74 20
NUMBER F_ANNO 4
BEGIN
PROMPT 3 3 "Anno Riferimento "
HELP "Anno a cui si riferisce il bollato"
USE REG
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODICE
DISPLAY "Anno " CODTAB[1,4]
DISPLAY "Codice Registro" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" I0
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_CODICE CODTAB[5,7]
OUTPUT F_REGISTRO S0
FLAGS "URZ"
CHECKTYPE REQUIRED
KEY 1
END
STRING F_CODDITTA 5
BEGIN
PROMPT 3 2 "Ditta "
FLAGS "DFR"
KEY 1
END
STRING F_CODICE 3
BEGIN
PROMPT 3 4 "Codice Registro "
HELP "Codice del registro da numerare"
FLAGS "U"
COPY ALL F_ANNO
CHECKTYPE REQUIRED
KEY 1
END
STRING F_REGISTRO 50
BEGIN
PROMPT 3 6 "Registro "
HELP "Descrizione del registro da numerare"
USE REG KEY 2
INPUT S0 F_REGISTRO
DISPLAY "Descrizione@50" S0
DISPLAY "Anno " CODTAB[1,4]
DISPLAY "Codice Registro" CODTAB[5,7]
DISPLAY "Tipo" I0
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50
BEGIN
PROMPT 3 7 "Ragione sociale "
FLAGS "U"
HELP "Ragione sociale dell'intestatario del registro"
// USE LF_NDITTE KEY 2
// INPUT RAGSOC F_RAGSOC
// DISPLAY "Ragione sociale @50" RAGSOC
// DISPLAY "Ditta" CODDITTA
// OUTPUT F_RAGSOC RAGSOC
// OUTPUT F_CODDITTA CODDITTA
END
STRING F_INDIRIZZO 35
BEGIN
PROMPT 3 8 "Indirizzo "
HELP "Indirizzo dell'intestatario del registro"
// USE LF_UNLOC
// CHECKTYPE NORMAL
// INPUT CODULC "1"
// INPUT CODDITTA F_CODDITTA
// DISPLAY "Ditta" CODDITTA
// DISPLAY "Indirizzo @35" INDULC
// OUTPUT F_INDIRIZZO INDULC
// OUTPUT F_CODDITTA CODDITTA
// WARNING "Indirizzo assente"
END
STRING F_CIV 10
BEGIN
PROMPT 51 8 "N.civico "
HELP "Numero civico dell'intestatario del registro"
END
STRING F_CAP 5
BEGIN
PROMPT 3 9 "CAP "
HELP "CAP del comune dell'intestatario del registro"
END
STRING F_CODCOM 4
BEGIN
PROMPT 15 9 "Comune "
HELP "Codice del comune dell'intestatario del registro"
END
STRING F_COM 28
BEGIN
PROMPT 29 9 ""
HELP "Nome del comune dell'intestatario del registro"
END
STRING F_PROV 5
BEGIN
PROMPT 60 9 "Prov."
HELP "Provincia dell'intestatario del registro"
END
STRING F_COFI 16
BEGIN
PROMPT 3 10 "Codice fiscale "
HELP "Codice fiscale dell'intestatario del registro"
// USE LF_ANAG KEY 2
// INPUT RAGSOC F_RAGSOC
// DISPLAY "Tipo" TIPOA
// DISPLAY "Codice" CODANAGR
// DISPLAY "Ragione sociale @50" RAGSOC
// OUTPUT F_RAGSOC RAGSOC
// OUTPUT F_COFI COFI
// OUTPUT F_PAIV PAIV
END
STRING F_PAIV 12
BEGIN
PROMPT 44 10 "Partita I.V.A "
HELP "Partita IVA dell'intestatario del registro"
// USE LF_ANAG KEY 2
// INPUT RAGSOC F_RAGSOC
// DISPLAY "Tipo" TIPOA
// DISPLAY "Codice" CODANAGR
// DISPLAY "Ragione sociale @50" RAGSOC
// OUTPUT F_RAGSOC RAGSOC
// OUTPUT F_COFI COFI
// OUTPUT F_PAIV PAIV
END
NUMBER F_NPAGINI 6
BEGIN
PROMPT 3 12 "Numero pagina iniziale "
HELP "Numero della prima pagina da numerare"
FLAGS "RU"
NUM_EXPR {#THIS_FIELD >= 0}
WARNING "Numero pagina iniziale errato: non puo' essere negativo"
END
NUMBER F_NPAGFI 6
BEGIN
PROMPT 3 13 "Numero pagina finale "
HELP "Numero dell'ultima pagina da numerare"
FLAGS "R"
NUM_EXPR {#THIS_FIELD >= #F_NPAGINI}
WARNING "Numero pagina finale errato: deve essere maggiore o uguale a quello iniziale"
END
BOOLEAN F_PRIMO
BEGIN
PROMPT 3 14 "Inizio numerazione dopo primo foglio "
HELP "Indicare se iniziare la numerazione nel secondo foglio"
END
LIST F_TIPOST 7
BEGIN
PROMPT 3 15 "Tipo di stampa "
HELP "Larghezza del foglio"
ITEM "0|132"
ITEM "1|132 c."
ITEM "2|198"
END
NUMBER F_LUNG 2
BEGIN
PROMPT 3 16 "Numero di righe "
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

34
ba/ba3700a.uml
View File

@ -16,7 +16,7 @@ END
STRING F_CODICE 4
BEGIN
PROMPT 6 1 "Codice "
HELP "Inserire il codice di pagamento"
HELP "Codice condizione di pagamento"
FIELD %CPG->CODTAB
USE %CPG KEY 1 ALIAS 50
INPUT CODTAB F_CODICE
@ -31,7 +31,7 @@ END
STRING F_DESC 50
BEGIN
PROMPT 6 2 "Descrizione "
HELP "Inserire la descrizione"
HELP "Descrizione condizione di pagamento"
FIELD %CPG->S0
END
@ -43,6 +43,7 @@ END
STRING F_INIZIOSCAD 1
BEGIN
PROMPT 6 5 "Part.iniz. calcolo "
HELP "Modalit… di inizio conteggio calcolo scadenza"
FIELD %CPG->S1
SHEET "Cod|Descrizione@30"
INPUT F_INIZIOSCAD
@ -55,12 +56,14 @@ END
BOOLEAN F_MESECOMM
BEGIN
PROMPT 49 5 " Mese commerciale"
HELP "Indicare se si utilizza il mese commerciale (30 gg)"
FIELD %CPG->B0
END
STRING F_TIPO_PRIMA_RATA 1
BEGIN
PROMPT 6 6 "Tipo prima rata "
HELP "Tipo di conteggio per la prima rata"
FIELD %CPG->S3
SHEET "Cod|Descrizione@60"
INPUT F_TIPO_PRIMA_RATA
@ -76,7 +79,8 @@ END
LIST F_RATE_DIFF 27
BEGIN
PROMPT 35 6 " Rate "
PROMPT 35 6 " Rate "
HELP "Descrizione delle rate"
ITEM "1|Differenziate"
ITEM "2|Uguali"
ITEM "3|Uguali dall'ultima modificata"
@ -87,11 +91,13 @@ END
NUMBER F_NUM_RATE 3
BEGIN
PROMPT 6 7 "Numero di rate "
HELP "Numero delle rate"
END
NUMBER F_INT_RATE 4
BEGIN
PROMPT 35 7 "Intervallo tra rate successive "
HELP "Giorni di intervallo tra una data e l'altra"
END
SPREADSHEET F_SHEET_RPG 70 9
@ -113,12 +119,14 @@ PAGE "" -1 -1 78 15
NUMBER 101 4
BEGIN
PROMPT 4 1 "Numero giorni "
HELP "Numero di giorni per la scadenza"
/* FIELD %RPG->I0 */
END
NUMBER 102 8 2
BEGIN
PROMPT 4 3 "Percentuale "
HELP "Percentuale della rata"
/* FIELD %RPG->R0 */
END
@ -126,11 +134,11 @@ END
NUMBER 103 2 0
BEGIN
PROMPT 4 4 "Tipo pagamento "
HELP ""
SHEET "Codice|Tipo pagamento@32"
INPUT 103
OUTPUT 103
OUTPUT 104
HELP "Tipo di pagamento per la rata"
SHEET "Codice|Tipo pagamento@32"
INPUT 103
OUTPUT 103
OUTPUT 104
ITEM "1|Rimessa diretta o contanti"
ITEM "2|Tratta"
ITEM "3|Ricevuta Bancaria"
@ -143,7 +151,7 @@ END
STRING 104 12
STRING 104 18
BEGIN
PROMPT 4 5 "Pagamento "
FLAGS "D"
@ -161,11 +169,11 @@ BEGIN
OUTPUT 105 CODTAB
/* OUTPUT 103 CODTAB[1,1] */
/* CHECKTYPE NORMAL */
HELP "Scegliere uno dei codici della tabella, oppure lasciare il campo vuoto"
HELP "Codice per ulteriore classificazione della data"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -13 -1 ""

8
ba/ba4300a.uml
View File

@ -401,14 +401,14 @@ END
DATE FLD_GD2_DINIZIOATT
BEGIN
PROMPT 1 5 "Inizio Attivit… "
PROMPT 1 5 "Inizio Attivita'"
FIELD LF_NDITTE->DINIZIOATT
HELP "Data di inizio attivita'"
END
NUMBER FLD_GD2_NULC 3
BEGIN
PROMPT 45 5 "Numero Unit… Locali "
PROMPT 45 5 "Numero Unita' Locali "
FIELD LF_NDITTE->NULC
FLAGS "RZ"
HELP "Numero delle unita' locali di appartenenza"
@ -486,12 +486,12 @@ END
NUMBER LST_GD2_STATOSOC 1
BEGIN
PROMPT 1 9 "Stato societ… "
PROMPT 1 9 "Stato societa' "
FIELD LF_NDITTE->STATOSOC
SHEET "Codice|Stato@70"
INPUT LST_GD2_STATOSOC
OUTPUT LST_GD2_STATOSOC
HELP "Codice dello stato della societ…"
HELP "Codice dello stato della societa'"
ITEM " |Sconosciuto"
ITEM "1|Soggetto in normale attivita'"
ITEM "2|Soggetto in liquidazione per cessazione di attivita'"

7
ba/batbclr.uml
View File

@ -11,6 +11,7 @@ PAGE "Ulteriore classificazione" -1 -1 78 13
STRING F_CODICERATA 1
BEGIN
PROMPT 4 1 "Codice "
HELP "Codice della rata dell'ulteriore classificazione"
FIELD %CLR->CODTAB[1,1]
SHEET "Cod|Descrizione@60"
INPUT F_CODICERATA
@ -22,7 +23,7 @@ BEGIN
ITEM "5|Paghero'"
ITEM "6|Lettera di accredito"
ITEM "7|Tratta accettata"
ITEM "8|Altro pagamento"
ITEM "8|Altro pagamento"
END
STRING F_CODICEALFA 1
@ -39,7 +40,7 @@ BEGIN
OUTPUT F_CODICERATA CODTAB[1,1]
OUTPUT F_CODICEALFA CODTAB[2,2]
OUTPUT F_DESCR S0
HELP "Inserire il codice dell' ulteriore classificazione"
HELP "Codice dell' ulteriore classificazione"
CHECKTYPE REQUIRED
END
@ -55,7 +56,7 @@ BEGIN
OUTPUT F_CODICERATA CODTAB[1,1]
OUTPUT F_CODICEALFA CODTAB[2,2]
OUTPUT F_DESCR S0
HELP "Inserire la descrizione dell' ulteriore classificazione"
HELP "Descrizione dell' ulteriore classificazione"
END
ENDPAGE

15
ba/batbdel.uml
View File

@ -11,6 +11,7 @@ PAGE "Tabella deleghe IVA" -1 -1 78 15
NUMBER F_CODDITTA 5
BEGIN
PROMPT 4 1 "Ditta "
HELP "Codice ditta a cui si riferisce la delega"
FIELD CODTAB[1,5]
FLAGS "FR"
KEY 1
@ -27,6 +28,7 @@ END
STRING F_RAGSOC 50
BEGIN
PROMPT 4 2 "Ragione sociale "
HELP "Ragione sociale ditta a cui si riferisce la delega"
KEY 1
USE LF_NDITTE KEY 2
INPUT CODDITTA F_CODDITTA
@ -59,7 +61,7 @@ BEGIN
OUTPUT F_ANNO CODTAB[6,9]
OUTPUT F_MESE CODTAB[10,11]
OUTPUT F_TIPO CODTAB[12,12]
HELP "Introdurre l'anno di versamento"
HELP "Anno di versamento"
END
LIST F_MESE 10
@ -69,7 +71,7 @@ BEGIN
FLAGS "MA"
KEY 1
COPY ALL F_ANNO
HELP "Introdurre il mese di versamento"
HELP "Mese di versamento"
ITEM "13|Annuale"
MESSAGE "2",F_TIPO
VALIDATE MTCHECK_FUNC
@ -80,7 +82,7 @@ BEGIN
PROMPT 4 5 "Tipo "
FIELD CODTAB[12,12]
KEY 1
HELP "Introdurre il tipo di versamento"
HELP "Tipo di versamento"
ITEM "1|normale"
MESSAGE ENABLE,F_MESE
ITEM "2|annuale"
@ -99,12 +101,13 @@ DATE F_DATA
BEGIN
PROMPT 4 7 "Data "
FIELD D0
HELP "Introdurre la data di versamento"
HELP "Data di versamento"
END
NUMBER F_BANCA1 5
BEGIN
PROMPT 4 8 "Codice ABI "
HELP "Codice ABI banca di appoggio"
FIELD S7
FLAGS "RZ"
USE %BAN
@ -122,6 +125,7 @@ END
NUMBER F_BANCA2 5
BEGIN
PROMPT 4 9 "Codice CAB "
HELP "Codice CAB banca di appoggio"
FIELD S8
FLAGS "RZ"
COPY ALL F_BANCA1
@ -134,12 +138,13 @@ BEGIN
PROMPT 4 10 "Importo "
FIELD R0
FLAGS "R"
HELP "Introdurre l'importo versato"
HELP "Importo versato"
END
BOOLEAN F_STAMPATO
BEGIN
PROMPT 4 12 "Stampato "
HELP "Indicare se si tratta di delega gi… stampata"
FIELD B0
END

13
ba/batblbu.uml
View File

@ -11,6 +11,7 @@ PAGE "Tabella libro unico" -1 -1 78 18
NUMBER F_CODLIB 1
BEGIN
PROMPT 4 1 "Codice libro unico "
HELP "Codice libro unico da gestire"
FIELD %LBU->CODTAB
KEY 1
USE %LBU
@ -19,6 +20,7 @@ END
NUMBER F_ANNO 4
BEGIN
PROMPT 53 1 "Anno esercizio "
HELP "Anno d'esercizio a cui si riferisce il libro"
FIELD %LBU->I0
END
@ -42,6 +44,7 @@ PAGE "" -1 -1 78 18
BOOLEAN F_FLG_STAMPA_BOLLATO
BEGIN
PROMPT 4 1 "Flag di stampa su bollato "
HELP "Indicare se viene stampato su bollato"
FIELD %LBU->B0
END
@ -52,18 +55,21 @@ PAGE "" -1 -1 71 15
STRING 101 5
BEGIN
PROMPT 1 1 "Numero iniziale pagina registro unico "
HELP "Numero della pagina iniziale del libro unico"
FIELD %LBU->I1
END
NUMBER 102 5
BEGIN
PROMPT 1 2 "Numero finale pagina registro unico "
HELP "Numero della pagina finale del libro unico"
FIELD %LBU->I2
END
NUMBER 103 5
BEGIN
PROMPT 1 4 "Codice ditta "
HELP "Codice ditta a cui si riferisce il libro unico"
FIELD %LBU->I3
USE LF_NDITTE KEY 1
INPUT CODDITTA 103
@ -76,12 +82,14 @@ END
STRING 104 50
BEGIN
PROMPT 1 5 "Ragione sociale "
HELP "Ragione sociale ditta a cui si riferisce il libro unico"
FIELD %LBU->S0
END
NUMBER 105 3
BEGIN
PROMPT 1 7 "Codice registro "
HELP "Codice resgistro ?????"
FIELD %LBU->I4
USE REG
INPUT CODTAB[5,7] 105
@ -94,6 +102,7 @@ END
STRING 106 50
BEGIN
PROMPT 1 8 "Descrizione "
HELP "Descrizione ???????"
FIELD %LBU->S1
COPY USE 105
INPUT S0 106
@ -104,12 +113,14 @@ END
NUMBER 107 5
BEGIN
PROMPT 1 10 "Numero iniziale pagina registro utente "
HELP "????"
FIELD %LBU->I5
END
NUMBER 108 5
BEGIN
PROMPT 1 11 "Numero finale pagina registro utente "
HELP "??????"
FIELD %LBU->I6
END
@ -126,7 +137,7 @@ END
BUTTON DLG_NULL 9 2
BEGIN
PROMPT -33 -1 "Azzera"
MESSAGE RESET,1@
MESSAGE RESET,1@
END
ENDPAGE

325
ba/batbpim.uml
View File

@ -1,162 +1,163 @@
#include "batbpim.h"
#define F_IMPORTO1 1000
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "" -1 -1 78 16
NUMBER F_CODDITTA 5
BEGIN
PROMPT 4 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
KEY 1
END
STRING F_RAGSOC 50
BEGIN
PROMPT 4 2 "Ragione sociale "
FLAGS "D"
KEY 1
END
NUMBER F_ANNO 4
BEGIN
PROMPT 4 4 "Anno "
FLAGS "A"
FIELD LF_TAB->CODTAB[1,4]
USE PIM
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,9] F_ATTIVITA
INPUT CODTAB[10,12] F_REGISTRO
INPUT CODTAB[13,14] F_MESE
INPUT CODTAB[15,15] F_TIPOCR
INPUT CODTAB[16,18] F_CODIVA
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Attivita'" CODTAB[5,9]
DISPLAY "Cod. registro" CODTAB[10,12]
DISPLAY "Mese" CODTAB[13,14]
DISPLAY "Tipo c/r" CODTAB[15,15]
DISPLAY "Codice IVA" CODTAB[16,18]
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_ATTIVITA CODTAB[5,9]
OUTPUT F_REGISTRO CODTAB[10,12]
OUTPUT F_MESE CODTAB[13,14]
OUTPUT F_TIPOCR CODTAB[15,15]
OUTPUT F_CODIVA CODTAB[16,18]
KEY 1
END
STRING F_ATTIVITA 5
BEGIN
PROMPT 4 5 "Codice attivita "
HELP "Introdurre il codice dell' attivita'"
FIELD LF_TAB->CODTAB[5,9]
USE LF_ATTIV
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
CHECKTYPE NORMAL
INPUT CODDITTA F_CODDITTA
INPUT CODATT F_ATTIVITA
DISPLAY "Codice attivita'" LF_TABCOM->CODTAB
DISPLAY "Descrizione@30" LF_TABCOM->S0
OUTPUT F_ATTIVITA CODATT
WARNING "Codice attivita' non presente"
KEY 1
END
STRING F_REGISTRO 3
BEGIN
PROMPT 4 6 "Codice registro "
FIELD LF_TAB->CODTAB[10,12]
FLAGS "R"
USE REG
CHECKTYPE NORMAL
INPUT CODTAB[1,3] F_REGISTRO
INPUT CODTAB[4,7] F_ANNO
DISPLAY "Codice registro" CODTAB[1,3]
DISPLAY "Anno" CODTAB[4,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_REGISTRO CODTAB[1,3]
OUTPUT F_ANNO CODTAB[4,7]
WARNING "Codice registro assente"
KEY 1
END
LIST F_MESE 10
BEGIN
PROMPT 4 7 "Mese "
FIELD LF_TAB->CODTAB[13,14]
FLAGS "MA"
VALIDATE MTCHECK_FUNC
KEY 1
END
NUMBER F_TIPOCR 1
BEGIN
PROMPT 4 8 "Tipo Costo/Ricavo "
FIELD LF_TAB->CODTAB[15,15]
COPY ALL F_ANNO
KEY 1
END
STRING F_CODIVA 3
BEGIN
PROMPT 4 10 "Codice IVA "
FIELD LF_TAB->CODTAB[16,18]
USE %IVA
INPUT CODTAB F_CODIVA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione " S0
OUTPUT F_CODIVA CODTAB
KEY 1
END
LIST F_IMPORTO 5
BEGIN
PROMPT 4 9 "Tipo Importo "
FIELD PIM->I0
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
KEY 1
END
NUMBER F_IMPONIBILE 15
BEGIN
PROMPT 4 11 "Imponibile "
FIELD LF_TAB->R0
FLAGS "R"
END
NUMBER F_IVA 15
BEGIN
PROMPT 4 12 "IVA "
FIELD LF_TAB->R1
FLAGS "R"
END
NUMBER F_IMPLORDO 15
BEGIN
PROMPT 4 13 "Importo lordo "
FIELD LF_TAB->R2
FLAGS "R"
END
ENDPAGE
ENDMASK
#include "batbpim.h"
#define F_IMPORTO1 1000
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "" -1 -1 78 16
NUMBER F_CODDITTA 5
BEGIN
PROMPT 4 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
KEY 1
END
STRING F_RAGSOC 50
BEGIN
PROMPT 4 2 "Ragione sociale "
FLAGS "D"
KEY 1
END
NUMBER F_ANNO 4
BEGIN
PROMPT 4 4 "Anno "
HELP "Anno d'esercizio di competenza"
FLAGS "A"
FIELD LF_TAB->CODTAB[1,4]
USE PIM
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,9] F_ATTIVITA
INPUT CODTAB[10,12] F_REGISTRO
INPUT CODTAB[13,14] F_MESE
INPUT CODTAB[15,15] F_TIPOCR
INPUT CODTAB[16,18] F_CODIVA
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Attivita'" CODTAB[5,9]
DISPLAY "Cod. registro" CODTAB[10,12]
DISPLAY "Mese" CODTAB[13,14]
DISPLAY "Tipo c/r" CODTAB[15,15]
DISPLAY "Codice IVA" CODTAB[16,18]
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_ATTIVITA CODTAB[5,9]
OUTPUT F_REGISTRO CODTAB[10,12]
OUTPUT F_MESE CODTAB[13,14]
OUTPUT F_TIPOCR CODTAB[15,15]
OUTPUT F_CODIVA CODTAB[16,18]
KEY 1
END
STRING F_ATTIVITA 5
BEGIN
PROMPT 4 5 "Codice attivita "
HELP "Codice dell' attivita' della ditta"
FIELD LF_TAB->CODTAB[5,9]
USE LF_ATTIV
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
CHECKTYPE NORMAL
INPUT CODDITTA F_CODDITTA
INPUT CODATT F_ATTIVITA
DISPLAY "Codice attivita'" LF_TABCOM->CODTAB
DISPLAY "Descrizione@30" LF_TABCOM->S0
OUTPUT F_ATTIVITA CODATT
WARNING "Codice attivita' non presente"
KEY 1
END
STRING F_REGISTRO 3
BEGIN
PROMPT 4 6 "Codice registro "
HELP "Codice registro di riferimento"
FIELD LF_TAB->CODTAB[10,12]
FLAGS "R"
USE REG
CHECKTYPE NORMAL
INPUT CODTAB[1,4] F_REGISTRO
INPUT CODTAB[5,7] F_ANNO
DISPLAY "Codice registro" CODTAB[1,3]
DISPLAY "Anno" CODTAB[4,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_REGISTRO CODTAB[1,4]
OUTPUT F_ANNO CODTAB[5,7]
WARNING "Codice registro assente"
KEY 1
END
LIST F_MESE 10
BEGIN
PROMPT 4 7 "Mese "
HELP "Mese a cui si fa riferimento"
FIELD LF_TAB->CODTAB[13,14]
FLAGS "MA"
VALIDATE MTCHECK_FUNC
KEY 1
END
NUMBER F_TIPOCR 1
BEGIN
PROMPT 4 8 "Tipo Costo/Ricavo "
HELP "Tipo di conto costo o ricavo"
FIELD LF_TAB->CODTAB[15,15]
COPY ALL F_ANNO
KEY 1
END
STRING F_CODIVA 3
BEGIN
PROMPT 4 10 "Codice IVA "
HELP "Codice IVA da applicare"
FIELD LF_TAB->CODTAB[16,18]
USE %IVA
INPUT CODTAB F_CODIVA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione " S0
OUTPUT F_CODIVA CODTAB
KEY 1
END
LIST F_IMPORTO 5
BEGIN
PROMPT 4 9 "Tipo Importo "
HELP "Tipo importo da applicare"
FIELD PIM->I0
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
KEY 1
END
NUMBER F_IMPONIBILE 15
BEGIN
PROMPT 4 11 "Imponibile "
HELP "Importo dell'imponibile IVA"
FIELD LF_TAB->R0
FLAGS "R"
END
NUMBER F_IVA 15
BEGIN
PROMPT 4 12 "IVA "
HELP "Importo dell'imposta IVA"
FIELD LF_TAB->R1
FLAGS "R"
END
NUMBER F_IMPLORDO 15
BEGIN
PROMPT 4 13 "Importo lordo "
HELP "Importo imponibile+IVA"
FIELD LF_TAB->R2
FLAGS "R"
END
ENDPAGE
ENDMASK

384
ba/batbpimc.uml
View File

@ -1,187 +1,197 @@
#include "batbpim.h"
#define F_IMPORTO1 1000
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "" -1 -1 78 16
NUMBER F_CODDITTA 5
BEGIN
PROMPT 4 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
KEY 1
END
STRING F_RAGSOC 50
BEGIN
PROMPT 4 2 "Ragione sociale "
FLAGS "D"
KEY 1
END
NUMBER F_ANNO 4
BEGIN
PROMPT 4 4 "Anno "
FLAGS "A"
FIELD LF_TAB->CODTAB[1,4]
USE PIM
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,9] F_ATTIVITA
INPUT CODTAB[10,12] F_REGISTRO
INPUT CODTAB[13,14] F_MESE
INPUT CODTAB[15,17] F_CODIVA
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Attivita'" CODTAB[5,9]
DISPLAY "Codice registro" CODTAB[10,12]
DISPLAY "Mese" CODTAB[13,14]
DISPLAY "Codice IVA" CODTAB[15,17]
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_ATTIVITA CODTAB[5,9]
OUTPUT F_REGISTRO CODTAB[10,12]
OUTPUT F_MESE CODTAB[13,14]
OUTPUT F_CODIVA CODTAB[15,17]
KEY 1
END
STRING F_ATTIVITA 5
BEGIN
PROMPT 4 5 "Codice attivita "
HELP "Introdurre il codice dell' attivita'"
FIELD LF_TAB->CODTAB[5,9]
USE LF_ATTIV
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
CHECKTYPE NORMAL
INPUT CODDITTA F_CODDITTA
INPUT CODATT F_ATTIVITA
DISPLAY "Codice attivita'" LF_TABCOM->CODTAB
DISPLAY "Descrizione@30" LF_TABCOM->S0
OUTPUT F_ATTIVITA CODATT
WARNING "Codice attivita' non presente"
KEY 1
END
STRING F_REGISTRO 3
BEGIN
PROMPT 4 6 "Codice registro "
FIELD LF_TAB->CODTAB[10,12]
FLAGS "R"
USE REG
CHECKTYPE NORMAL
INPUT CODTAB[1,3] F_REGISTRO
INPUT CODTAB[4,7] F_ANNO
DISPLAY "Codice registro" CODTAB[1,3]
DISPLAY "Anno" CODTAB[4,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_REGISTRO CODTAB[1,3]
OUTPUT F_ANNO CODTAB[4,7]
WARNING "Codice registro assente"
KEY 1
END
NUMBER F_MESE 2
BEGIN
PROMPT 4 7 "Mese "
FIELD LF_TAB->CODTAB[13,14]
FLAGS "RZ"
COPYUSE F_ANNO
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,9] F_ATTIVITA
INPUT CODTAB[10,12] F_REGISTRO
INPUT CODTAB[13,14] F_MESE
INPUT CODTAB[15,17] F_CODIVA
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Attivita'" CODTAB[5,9]
DISPLAY "Codice registro" CODTAB[10,12]
DISPLAY "Mese" CODTAB[13,14]
DISPLAY "Codice IVA" CODTAB[15,17]
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_ATTIVITA CODTAB[5,9]
OUTPUT F_REGISTRO CODTAB[10,12]
OUTPUT F_MESE CODTAB[13,14]
OUTPUT F_CODIVA CODTAB[15,17]
VALIDATE MTCHECK_FUNC
KEY 1
END
NUMBER F_TIPOCR 1
BEGIN
PROMPT 4 8 "Tipo Costo/Ricavo "
FIELD LF_TAB->CODTAB[15,15]
KEY 1
END
LIST F_IMPORTO 5
BEGIN
PROMPT 4 9 "Tipo importo "
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
KEY 1
END
STRING F_CODIVA 3
BEGIN
PROMPT 4 10 "Codice IVA "
FIELD LF_TAB->CODTAB[15,17]
COPYUSE F_ANNO
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,9] F_ATTIVITA
INPUT CODTAB[10,12] F_REGISTRO
INPUT CODTAB[13,14] F_MESE
INPUT CODTAB[15,17] F_CODIVA
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Attivita'" CODTAB[5,9]
DISPLAY "Codice registro" CODTAB[10,12]
DISPLAY "Mese" CODTAB[13,14]
DISPLAY "Codice IVA" CODTAB[15,17]
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_ATTIVITA CODTAB[5,9]
OUTPUT F_REGISTRO CODTAB[10,12]
OUTPUT F_MESE CODTAB[13,14]
OUTPUT F_CODIVA CODTAB[15,17]
KEY 1
END
NUMBER F_IMPONIBILE 15
BEGIN
PROMPT 4 11 "Imponibile "
FIELD LF_TAB->R0
FLAGS "R"
END
NUMBER F_IVA 15
BEGIN
PROMPT 4 12 "IVA "
FIELD LF_TAB->R1
FLAGS "R"
END
NUMBER F_IMPLORDO 15
BEGIN
PROMPT 4 13 "Importo lordo "
FIELD LF_TAB->R2
FLAGS "R"
END
BUTTON DLG_OK
BEGIN
PROMPT 42 14 ""
END
BUTTON DLG_CANCEL
BEGIN
PROMPT 53 14 ""
END
ENDPAGE
ENDMASK
#include "batbpim.h"
#define F_IMPORTO1 1000
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "" -1 -1 78 16
NUMBER F_CODDITTA 5
BEGIN
PROMPT 4 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
KEY 1
END
STRING F_RAGSOC 50
BEGIN
PROMPT 4 2 "Ragione sociale "
FLAGS "D"
KEY 1
END
NUMBER F_ANNO 4
BEGIN
PROMPT 4 4 "Anno "
HELP "Anno d'esercizio di competenza"
FLAGS "A"
FIELD LF_TAB->CODTAB[1,4]
USE PIM
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,9] F_ATTIVITA
INPUT CODTAB[10,12] F_REGISTRO
INPUT CODTAB[13,14] F_MESE
INPUT CODTAB[15,17] F_CODIVA
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Attivita'" CODTAB[5,9]
DISPLAY "Codice registro" CODTAB[10,12]
DISPLAY "Mese" CODTAB[13,14]
DISPLAY "Codice IVA" CODTAB[15,17]
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_ATTIVITA CODTAB[5,9]
OUTPUT F_REGISTRO CODTAB[10,12]
OUTPUT F_MESE CODTAB[13,14]
OUTPUT F_CODIVA CODTAB[15,17]
KEY 1
END
STRING F_ATTIVITA 5
BEGIN
PROMPT 4 5 "Codice attivita "
HELP "Codice dell' attivita' della ditta"
FIELD LF_TAB->CODTAB[5,9]
USE LF_ATTIV
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
CHECKTYPE NORMAL
INPUT CODDITTA F_CODDITTA
INPUT CODATT F_ATTIVITA
DISPLAY "Codice attivita'" LF_TABCOM->CODTAB
DISPLAY "Descrizione@30" LF_TABCOM->S0
OUTPUT F_ATTIVITA CODATT
WARNING "Codice attivita' non presente"
KEY 1
END
STRING F_REGISTRO 3
BEGIN
PROMPT 4 6 "Codice registro "
HELP "Codice registro di riferimento"
FIELD LF_TAB->CODTAB[10,12]
FLAGS "R"
USE REG
CHECKTYPE NORMAL
INPUT CODTAB[1,3] F_REGISTRO
INPUT CODTAB[4,7] F_ANNO
DISPLAY "Codice registro" CODTAB[1,3]
DISPLAY "Anno" CODTAB[4,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_REGISTRO CODTAB[1,3]
OUTPUT F_ANNO CODTAB[4,7]
WARNING "Codice registro assente"
KEY 1
END
NUMBER F_MESE 2
BEGIN
PROMPT 4 7 "Mese "
HELP "Mese a cui si fa riferimento"
FIELD LF_TAB->CODTAB[13,14]
FLAGS "RZ"
COPYUSE F_ANNO
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,9] F_ATTIVITA
INPUT CODTAB[10,12] F_REGISTRO
INPUT CODTAB[13,14] F_MESE
INPUT CODTAB[15,17] F_CODIVA
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Attivita'" CODTAB[5,9]
DISPLAY "Codice registro" CODTAB[10,12]
DISPLAY "Mese" CODTAB[13,14]
DISPLAY "Codice IVA" CODTAB[15,17]
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_ATTIVITA CODTAB[5,9]
OUTPUT F_REGISTRO CODTAB[10,12]
OUTPUT F_MESE CODTAB[13,14]
OUTPUT F_CODIVA CODTAB[15,17]
VALIDATE MTCHECK_FUNC
KEY 1
END
NUMBER F_TIPOCR 1
BEGIN
PROMPT 4 8 "Tipo Costo/Ricavo "
HELP "Tipo di conto costo o ricavo"
FIELD LF_TAB->CODTAB[15,15]
KEY 1
END
LIST F_IMPORTO 5
BEGIN
PROMPT 4 9 "Tipo importo "
HELP "Tipo importo da applicare"
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
KEY 1
END
STRING F_CODIVA 3
BEGIN
PROMPT 4 10 "Codice IVA "
HELP "Codice IVA da applicare"
FIELD LF_TAB->CODTAB[15,17]
COPYUSE F_ANNO
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,9] F_ATTIVITA
INPUT CODTAB[10,12] F_REGISTRO
INPUT CODTAB[13,14] F_MESE
INPUT CODTAB[15,17] F_CODIVA
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Attivita'" CODTAB[5,9]
DISPLAY "Codice registro" CODTAB[10,12]
DISPLAY "Mese" CODTAB[13,14]
DISPLAY "Codice IVA" CODTAB[15,17]
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_ATTIVITA CODTAB[5,9]
OUTPUT F_REGISTRO CODTAB[10,12]
OUTPUT F_MESE CODTAB[13,14]
OUTPUT F_CODIVA CODTAB[15,17]
KEY 1
END
NUMBER F_IMPONIBILE 15
BEGIN
PROMPT 4 11 "Imponibile "
HELP "Importo dell'imponibile IVA"
FIELD LF_TAB->R0
FLAGS "R"
END
NUMBER F_IVA 15
BEGIN
PROMPT 4 12 "IVA "
HELP "Importo dell'imposta IVA"
FIELD LF_TAB->R1
FLAGS "R"
END
NUMBER F_IMPLORDO 15
BEGIN
PROMPT 4 13 "Importo lordo "
HELP "Importo imponibile+IVA"
FIELD LF_TAB->R2
FLAGS "R"
END
BUTTON DLG_OK
BEGIN
PROMPT 42 14 ""
END
BUTTON DLG_CANCEL
BEGIN
PROMPT 53 14 ""
END
ENDPAGE
ENDMASK

4
ba/batbreg.uml
View File

@ -286,7 +286,7 @@ NUMBER F_ULTIMO_NUM_RIGA_STAMPATO 7
BEGIN
PROMPT 44 4 "Ultimo numero riga stamp."
FIELD I6
HELP"Ultimo numero della riga stampata"
HELP "Ultimo numero della riga stampata"
FLAGS "R"
GROUP 5 6
END
@ -360,7 +360,7 @@ END
LIST F_MESE_STAMPA_ULTIMA_LIQ 10
BEGIN
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
FLAGS "M"
ITEM "13|Annuale"