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

Patch level : 2.2

Browse Source 
Files correlati     : ve0 ve2
Ricompilazione Demo : [ ]
Commento            :

Aggiunta gestione conto analitico in tabelle analitiche
Aggiunta gestione conto analitico in anagrafica articoli


git-svn-id: svn://10.65.10.50/trunk@12984 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2005-04-21 16:40:40 +00:00
parent 5e623307fe
commit 0a1ecf714e
16 changed files with 1389 additions and 1638 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
ve/batbprs.h
View File

@ -1,29 +0,0 @@
#define F_CODICE 101
#define F_DESCR 102
#define F_CODASSFIS 103
#define F_CODASSFIS1 104
#define F_CODDIV 105
#define F_CODDIV1 106
#define F_PREZZO 107
#define F_UM 108
#define F_NCAMPOCAL 109
#define F_NCAMPOCAL1 110
#define F_PERCENTUALE 111
#define F_GRUPPOV 112
#define F_CONTOV 113
#define F_SOTTOV 114
#define F_DESCRCONTOV 115
#define F_GRUPPOA 116
#define F_CONTOA 117
#define F_SOTTOA 118
#define F_DESCRCONTOA 119
#define F_CAMPI 120
#define F_QTA 121
#define F_GRUPPOPCIA 122
#define F_CONTOPCIA 123
#define F_SOTTOPCIA 124
#define F_DESCRCONTOPCIA 125
#define F_GRUPPOPCIV 126
#define F_CONTOPCIV 127
#define F_SOTTOPCIV 128
#define F_DESCRCONTOPCIV 129

396
ve/batbprs.uml
View File

@ -1,396 +0,0 @@
#include "batbprs.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella prestazioni" 11 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 8
BEGIN
PROMPT 2 2 "Cod. tabella "
FIELD CODTAB
KEY 1
USE PRS
FLAGS "U"
INPUT CODTAB F_CODICE
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50 " S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD S0
KEY 2
USE PRS KEY 2
INPUT S0 F_DESCR
DISPLAY "Descrizione@50 " S0
DISPLAY "Codice " CODTAB
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
END
STRING F_CODASSFIS 4
BEGIN
PROMPT 2 7 "Codice IVA "
FIELD S3[1,4]
FLAGS "U"
USE %IVA
INPUT CODTAB F_CODASSFIS
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODASSFIS CODTAB
OUTPUT F_CODASSFIS1 S0
CHECKTYPE NORMAL
END
STRING F_CODASSFIS1 50
BEGIN
PROMPT 25 7 ""
USE %IVA KEY 2
INPUT S0 F_CODASSFIS1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT F_CODASSFIS CODTAB
OUTPUT F_CODASSFIS1 S0
CHECKTYPE NORMAL
END
STRING F_CODDIV 4
BEGIN
PROMPT 2 8 "Codice valuta "
FIELD S4
FLAGS "U"
USE %VAL
INPUT CODTAB F_CODDIV
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODDIV CODTAB
OUTPUT F_CODDIV1 S0
CHECKTYPE NORMAL
END
STRING F_CODDIV1 50
BEGIN
PROMPT 25 8 ""
USE %VAL KEY 2
INPUT S0 F_CODDIV1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT F_CODDIV CODTAB
OUTPUT F_CODDIV1 S0
CHECKTYPE NORMAL
END
LISTBOX F_CAMPI 15
BEGIN
PROMPT 2 9 "Campo default "
FIELD S6
ITEM "Q|Qta prezzo "
MESSAGE SHOW,1@|ENABLE,2@|HIDE,3@|RESET,3@
ITEM "V|Valore "
MESSAGE SHOW,1@|"1",2@|DISABLE,2@|HIDE,3@|RESET,3@
ITEM "P|Percentuale "
MESSAGE SHOW,3@|HIDE,1@|RESET,1@
END
CURRENCY F_PREZZO 15
BEGIN
PROMPT 2 10 "Prezzo "
FIELD R0
FLAGS "U"
GROUP 1
END
NUMBER F_QTA 13 5
BEGIN
PROMPT 35 10 "Quantita' "
FIELD R1
GROUP 1 2
END
STRING F_UM 2
BEGIN
PROMPT 63 10 "U.M. "
FIELD S7
FLAGS "U"
USE %UMS
INPUT CODTAB F_UM
DISPLAY "U.M." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_UM CODTAB
CHECKTYPE NORMAL
GROUP 1
END
NUMBER F_PERCENTUALE 5 2
BEGIN
PROMPT 49 9 "Percentuale "
FIELD R2
GROUP 3
END
STRING F_NCAMPOCAL 10
BEGIN
PROMPT 2 10 "Formula Doc. "
FIELD S5
FLAG "U"
USE %FRD
INPUT CODTAB F_NCAMPOCAL
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_NCAMPOCAL CODTAB
OUTPUT F_NCAMPOCAL1 S0
CHECKTYPE NORMAL
GROUP 3
END
STRING F_NCAMPOCAL1 50
BEGIN
PROMPT 17 10 ""
USE %FRD KEY 2
INPUT S0 F_NCAMPOCAL1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT F_NCAMPOCAL CODTAB
OUTPUT F_NCAMPOCAL1 S0
CHECKTYPE NORMAL
GROUP 3
END
NUMBER F_GRUPPOV 3
BEGIN
PROMPT 2 11 "Conto vendita "
FIELD I0
CHECKTYPE NORMAL
END
NUMBER F_CONTOV 3
BEGIN
PROMPT 22 11 ""
FIELD I1
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
CHECKTYPE NORMAL
ADD RUN CG0 -0
WARNING "Il conto deve essere un ricavo"
END
NUMBER F_SOTTOV 6
BEGIN
PROMPT 30 11 ""
FIELD I2
USE LF_PCON SELECT SOTTOCONTO!=""
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
OUTPUT F_SOTTOV SOTTOCONTO
OUTPUT F_DESCRCONTOV DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRCONTOV 50
BEGIN
PROMPT 17 12 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRCONTOV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOV
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
NUMBER F_GRUPPOA 3
BEGIN
PROMPT 2 13 "Conto acquisti "
FIELD I3
CHECKTYPE NORMAL
END
NUMBER F_CONTOA 3
BEGIN
PROMPT 22 13 ""
FIELD I4
COPY USE F_CONTOV
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
CHECKTYPE NORMAL
WARNING "Il conto deve essere un costo"
ADD RUN CG0 -0
END
NUMBER F_SOTTOA 6
BEGIN
PROMPT 30 13 ""
FIELD I5
COPY USE F_SOTTOV
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
INPUT SOTTOCONTO F_SOTTOA
COPY DISPLAY F_SOTTOV
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
OUTPUT F_SOTTOA SOTTOCONTO
OUTPUT F_DESCRCONTOA DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRCONTOA 50
BEGIN
PROMPT 17 14 ""
FLAG "U"
COPY USE F_DESCRCONTOV
INPUT DESCR F_DESCRCONTOA
COPY DISPLAY F_DESCRCONTOV
COPY OUTPUT F_SOTTOA
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
STRING F_GRUPPOPCIA 3
BEGIN
PROMPT 2 15 "Conto industr. "
FLAGS "Z"
FIELD S2[21,23]
CHECKTYPE NORMAL
END
STRING F_CONTOPCIA 3
BEGIN
PROMPT 22 15 ""
FLAGS "Z"
FIELD S2[24,26]
END
STRING F_SOTTOPCIA 6
BEGIN
PROMPT 30 15 ""
FLAGS "Z"
FIELD S2[27,32]
USE PCI SELECT CODTAB[7,12]!=""
INPUT CODTAB[1,3] F_GRUPPOPCIA
INPUT CODTAB[4,6] F_CONTOPCIA
INPUT CODTAB[7,12] F_SOTTOPCIA
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
DISPLAY "Descrizione@50" S0
OUTPUT F_GRUPPOPCIA CODTAB[1,3]
OUTPUT F_CONTOPCIA CODTAB[4,6]
OUTPUT F_SOTTOPCIA CODTAB[7,12]
OUTPUT F_DESCRCONTOPCIA S0
CHECKTYPE NORMAL
ADD RUN BA3 -0 PCI
END
STRING F_DESCRCONTOPCIA 50
BEGIN
PROMPT 2 16 "acquisti "
FLAG "U"
USE PCI KEY 2 SELECT (CODTAB[7,12]!="")
INPUT S0 F_DESCRCONTOPCIA
DISPLAY "Descrizione@50" S0
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
COPY OUTPUT F_SOTTOPCIA
CHECKTYPE NORMAL
ADD RUN BA0 -3 PCI
END
STRING F_GRUPPOPCIV 3
BEGIN
PROMPT 2 17 "Conto industr. "
FLAGS "Z"
FIELD S2[1,3]
CHECKTYPE NORMAL
END
STRING F_CONTOPCIV 3
BEGIN
PROMPT 22 17 ""
FLAGS "Z"
FIELD S2[4,6]
END
STRING F_SOTTOPCIV 6
BEGIN
PROMPT 30 17 ""
FLAGS "Z"
FIELD S2[7,12]
USE PCI SELECT CODTAB[7,12]!=""
INPUT CODTAB[1,3] F_GRUPPOPCIV
INPUT CODTAB[4,6] F_CONTOPCIV
INPUT CODTAB[7,12] F_SOTTOPCIV
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
DISPLAY "Descrizione@50" S0
OUTPUT F_GRUPPOPCIV CODTAB[1,3]
OUTPUT F_CONTOPCIV CODTAB[4,6]
OUTPUT F_SOTTOPCIV CODTAB[7,12]
OUTPUT F_DESCRCONTOPCIV S0
CHECKTYPE NORMAL
ADD RUN BA3 -0 PCI
END
STRING F_DESCRCONTOPCIV 50
BEGIN
PROMPT 2 18 "vendita "
FLAG "U"
USE PCI KEY 2 SELECT (CODTAB[7,12]!="")
INPUT S0 F_DESCRCONTOPCIV
DISPLAY "Descrizione@50" S0
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
COPY OUTPUT F_SOTTOPCIV
CHECKTYPE NORMAL
ADD RUN BA0 -3 PCI
END
ENDPAGE
ENDMASK

24
ve/batbspp.h
View File

@ -1,24 +0,0 @@
#define F_CODICE 101
#define F_DESCR 102
#define F_CODASSFIS 103
#define F_CODASSFIS1 104
#define F_CODDIV 105
#define F_CODDIV1 106
#define F_PREZZO 107
#define F_QTA 108
#define F_NCAMPOCAL 109
#define F_NCAMPOCAL1 110
#define F_PERCENTUALE 111
#define F_GRUPPOV 112
#define F_CONTOV 113
#define F_SOTTOV 114
#define F_DESCRCONTOV 115
#define F_CAMPI 116
#define F_UM 117
#define F_GRUPPOA 118
#define F_CONTOA 119
#define F_SOTTOA 120
#define F_DESCRCONTOA 121
#define F_TIPORIGA 122
#define F_DESCRRIGA 123
#define F_TIPORIT 124

20
ve/batbtri.uml
View File

@ -41,16 +41,16 @@ PAGE "Tipo di riga" -1 -1 60 14
LIST F_TPR 16
BEGIN
PROMPT 2 8 "Tipo "
ITEMS "M|<M>erce"
ITEMS "S|<S>pese"
ITEMS "P|<P>restazioni"
ITEMS "R|<R>isorse"
ITEMS "A|<A>ttrezzature"
ITEMS "C|S<c>onti"
ITEMS "O|<O>maggi"
ITEMS "D|<D>escrizioni"
FIELD S7
PROMPT 2 8 "Tipo "
ITEMS "M|Merce"
ITEMS "S|Spese"
ITEMS "P|Prestazioni"
ITEMS "R|Risorse"
ITEMS "A|Attrezzature"
ITEMS "C|Sconti"
ITEMS "O|Omaggi"
ITEMS "D|Descrizioni"
FIELD S7
END
BOOLEAN F_FORMFEED

65
ve/ve0400.cpp
View File

@ -1,8 +1,16 @@
#include <automask.h>
#include <modaut.h>
#include <printer.h>
#include <tabapp.h>
#include "vetbnum.h"
#include "../ca/calib01.h"
#include "vetbspp.h"
#include "vetbprs.h"
#include "vetbrss.h"
#include "vetbatr.h"
///////////////////////////////////////////////////////////
// TVendite_mask
@ -10,7 +18,7 @@
class TVendite_mask : public TAutomask
{
TString _tab; // Voglio la tabella sempre sotto mano
TString4 _tab; // Voglio la tabella sempre sotto mano
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
@ -24,6 +32,8 @@ protected:
bool on_num_event(TOperable_field& o, TField_event e, long jolly);
public:
const TString& table_code() const { return _tab; }
TVendite_mask(const char* name);
virtual ~TVendite_mask() { }
};
@ -100,6 +110,9 @@ class TVendite_tabapp : public TTable_application
{
protected:
virtual TMask* set_mask(TMask* m);
virtual void init_query_mode(TMask& m);
virtual void init_insert_mode(TMask& m);
virtual void init_modify_mode(TMask& m);
public:
};
@ -109,11 +122,59 @@ TMask* TVendite_tabapp::set_mask(TMask* m)
if (m == NULL)
{
TFilename mn; get_mask_name(mn);
m = new TVendite_mask(mn);
TVendite_mask* vm = new TVendite_mask(mn);
if (has_module(CAAUT, CHK_DONGLE) || has_module(CMAUT, CHK_DONGLE))
{
// Crea i campi per i conti analitici (vendite e acquisti)
if (vm->table_code() == "SPP")
{
ca_create_fields(*vm, 0, LF_CDC, 2, 11, SPP_CDC_V1, SPP_CDC_V1+10, 0x0, "S1");
ca_create_fields(*vm, 0, LF_CDC, 2, 16, SPP_CDC_A1, SPP_CDC_A1+10, 0x0, "S2");
} else
if (vm->table_code() == "PRS")
{
ca_create_fields(*vm, 0, LF_CDC, 2, 12, PRS_CDC_V1, PRS_CDC_V1+10, 0x0, "S1");
} else
if (vm->table_code() == "RSS")
{
ca_create_fields(*vm, 0, LF_CDC, 2, 16, RSS_CDC_V1, RSS_CDC_V1+10, 0x0, "S1");
}
if (vm->table_code() == "ATR")
{
ca_create_fields(*vm, 0, LF_CDC, 2, 12, ATR_CDC_V1, ATR_CDC_V1+10, 0x0, "S1");
}
}
m = vm;
}
return TTable_application::set_mask(m);
}
void TVendite_tabapp::init_query_mode(TMask& m)
{
if (get_tabname() == "RSS")
{
m.enable(RSS_RAGSOC);
}
}
void TVendite_tabapp::init_insert_mode(TMask& m)
{
if (get_tabname() == "RSS")
{
m.disable(RSS_RAGSOC);
}
}
void TVendite_tabapp::init_modify_mode(TMask& m)
{
if (get_tabname() == "RSS")
{
m.disable(RSS_RAGSOC);
}
}
int ve0400(int argc, char* argv[])
{
TVendite_tabapp vta;

91
ve/ve2400.cpp
View File

@ -11,6 +11,7 @@
#include "velib.h"
#include "ve2400.h"
#include "../ca/calib01.h"
#include "../cg/cglib01.h"
#include "../mg/mglib.h"
#include "../mg/stomag.h"
@ -71,6 +72,7 @@ class TMask_anamag: public TMask
void update_totali_storico(TString & codmag);
bool check_totali_storico();
bool generate_code(int _type = 0);
void create_user_fields();
public:
void update_ordc_ordf();
@ -382,6 +384,51 @@ void TMask_anamag::set_parametered_fields()
set_handler(F_CODART, handle_codice);
}
void TMask_anamag::create_user_fields()
{
TConfig c(CONFIG_DITTA, "ve");
_type_cod = c.get_int("GEN_EAN");
_ean8_pref = c.get("EAN8");
_ean13_pref = c.get("EAN13");
bool disable_user_page = true;
TString80 prompt;
for (int i = 1; i <= 10; i++)
{
if (c.get_bool("CHK_USER", "ve", i))
{
TEditable_field * f = NULL;
prompt = c.get("PROMPT_USER", "ve", i);
prompt.rpad(20);
const char type = c.get_char("TYPE_USER", "ve", i);
if (type == 'S')
f = &add_string(F_USER1 + i - 1, PAGE_USER, prompt, 2, 3 + i, c.get_int("LEN_USER", "ve", i));
else
if (type == 'N')
{
f = &add_number(F_USER1 + i - 1, PAGE_USER, prompt, 2, 3 + i, c.get_int("LEN_USER", "ve", i));
((TReal_field *) f)->set_decimals(c.get_int("DEC_USER", "ve", i));
}
else
if (type == 'D')
f = &add_date(F_USER1 + i - 1, PAGE_USER, prompt, 2, 3 + i);
else
if (type == 'I')
f = &add_currency(F_USER1 + i - 1, PAGE_USER, prompt, 2, 3 + i, c.get_int("LEN_USER", "ve", i));
else
if (type == 'X')
f = &add_boolean(F_USER1 + i - 1, PAGE_USER, prompt, 2, 3 + i);
if (f != NULL)
f->set_field(format("USER%d", i));
disable_user_page = false;
}
}
if (disable_user_page)
disable_page(PAGE_USER);
}
// costruttore della maschera anagrafica di magazzino
TMask_anamag::TMask_anamag(TRelation * rel) : TMask("ve2400")
{
@ -413,47 +460,11 @@ TMask_anamag::TMask_anamag(TRelation * rel) : TMask("ve2400")
_magazzini = NULL;
set_parametered_fields();
ca_create_fields(*this, 1, LF_PCONANA, 1, 7, F_CONTOPCIA, F_DESCRCONTOPCIA, 0, ANAMAG_CONTOINDA);
ca_create_fields(*this, 1, LF_PCONANA, 1,13, F_CONTOPCIV, F_DESCRCONTOPCIV, 0, ANAMAG_CONTOINDV);
TConfig c(CONFIG_DITTA, "ve");
bool disable_user_page = TRUE;
TString80 prompt;
for (int i = 1; i <= 10; i++)
{
if (c.get_bool("CHK_USER", "ve", i))
{
TEditable_field * f = NULL;
prompt = c.get("PROMPT_USER", "ve", i);
prompt.rpad(20);
const char type = c.get_char("TYPE_USER", "ve", i);
if (type == 'S')
f = &add_string(F_USER1 + i - 1, PAGE_USER, prompt, 2, 3 + i, c.get_int("LEN_USER", "ve", i));
else
if (type == 'N')
{
f = &add_number(F_USER1 + i - 1, PAGE_USER, prompt, 2, 3 + i, c.get_int("LEN_USER", "ve", i));
((TReal_field *) f)->set_decimals(c.get_int("DEC_USER", "ve", i));
}
else
if (type == 'D')
f = &add_date(F_USER1 + i - 1, PAGE_USER, prompt, 2, 3 + i);
else
if (type == 'I')
f = &add_currency(F_USER1 + i - 1, PAGE_USER, prompt, 2, 3 + i, c.get_int("LEN_USER", "ve", i));
else
if (type == 'X')
f = &add_boolean(F_USER1 + i - 1, PAGE_USER, prompt, 2, 3 + i);
if (f != NULL)
f->set_field(format("USER%d", i));
disable_user_page = FALSE;
}
}
_type_cod = c.get_int("GEN_EAN");
_ean8_pref = c.get("EAN8");
_ean13_pref = c.get("EAN13");
if (disable_user_page)
disable_page(PAGE_USER);
create_user_fields();
if(livelli_art->enabled())
{

29
ve/ve2400.h
View File

@ -1,6 +1,6 @@
#define F_CODART 101
#define F_DESCR 102
#define F_COPY 119
#define F_COPY 100
#define F_GRMERC 103
#define F_GRMERCD1 106
@ -26,14 +26,6 @@
#define F_CONTOV 136
#define F_SOTTOCV 137
#define F_DESCRV 138
#define F_GRUPPOPCIA 110
#define F_CONTOPCIA 111
#define F_SOTTOPCIA 112
#define F_DESCRCONTOPCIA 113
#define F_GRUPPOPCIV 114
#define F_CONTOPCIV 115
#define F_SOTTOPCIV 116
#define F_DESCRCONTOPCIV 117
#define F_UMP 139
#define F_PESO 140
#define F_CLASSDOG1 141
@ -42,7 +34,6 @@
#define F_UBICAZIONE1 144
#define F_COSTSTD 145
#define F_CODIVA 146
#define F_CODIVA1 147
#define F_CODFORN 148
#define F_CODFORN1 149
#define F_ARTFIS 150
@ -129,18 +120,6 @@
#define F_STOTOTALE_RIM 217
#define F_STOTOTALE_VAL 218
#define F_CODARTPAGE2 250
#define F_DESCRPAGE2 251
#define F_CODARTPAGE3 252
#define F_DESCRPAGE3 253
#define F_CODARTPAGE4 254
#define F_DESCRPAGE4 255
#define F_CODARTPAGE5 256
#define F_DESCRPAGE5 257
#define F_CODARTPAGE6 258
#define F_DESCRPAGE6 259
#define F_SEARCHLAV 260
#define F_CODICELAV 261
#define F_DESCRAGG 262
@ -177,6 +156,12 @@
#define F_NUMRIGULC2 303
#define F_SOSPESO 304
#define F_CONTOPCIA 401
#define F_DESCRCONTOPCIA 411
#define F_CONTOPCIV 451
#define F_DESCRCONTOPCIV 461
#define G_CODART 1
#define G_DESART 2
#define G_GRMERC 3

547
ve/ve2400.uml
View File

@ -13,19 +13,19 @@ END
STRING F_CODART 20
BEGIN
PROMPT 1 2 ""
FIELD LF_ANAMAG->CODART
KEY 1
FLAG "UG"
USE LF_ANAMAG
INPUT CODART F_CODART
DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODART CODART
OUTPUT F_DESCR DESCR
CHECKTYPE REQUIRED
MESSAGE COPY,G_CODART@
MESSAGE COPY,F_SEARCHLAV|CHECK,F_SEARCHLAV
PROMPT 1 2 ""
FIELD LF_ANAMAG->CODART
KEY 1
FLAG "UG"
USE LF_ANAMAG
INPUT CODART F_CODART
DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODART CODART
OUTPUT F_DESCR DESCR
CHECKTYPE REQUIRED
MESSAGE COPY,G_CODART@
MESSAGE COPY,F_SEARCHLAV|CHECK,F_SEARCHLAV
END
STRING F_SEARCHLAV 20
@ -52,17 +52,17 @@ END
STRING F_DESCR 50
BEGIN
PROMPT 24 2 ""
FIELD LF_ANAMAG->DESCR
KEY 2
USE LF_ANAMAG KEY 2
INPUT DESCR F_DESCR
DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODART CODART
OUTPUT F_DESCR DESCR
CHECKTYPE REQUIRED
MESSAGE COPY,G_DESART@
PROMPT 24 2 ""
FIELD LF_ANAMAG->DESCR
KEY 2
USE LF_ANAMAG KEY 2
INPUT DESCR F_DESCR
DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODART CODART
OUTPUT F_DESCR DESCR
CHECKTYPE REQUIRED
MESSAGE COPY,G_DESART@
END
BUTTON F_COPY 7 1
@ -152,26 +152,28 @@ ENDPAGE
PAGE "Classi" 0 0 70 20
GROUPBOX DLG_NULL 78 4
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 0 0 ""
PROMPT 0 0 "@bArticolo"
END
STRING F_CODARTPAGE2 20
STRING DLG_NULL 20
BEGIN
FLAGS "D"
PROMPT 2 1 "Codice art. "
PROMPT 2 1 ""
GROUP G_CODART
END
STRING F_DESCRPAGE2 50
STRING DLG_NULL 50
BEGIN
FLAGS "D"
PROMPT 2 2 "Descrizione "
PROMPT 25 1 ""
GROUP G_DESART
END
STRING F_GRMERC 3
BEGIN
PROMPT 1 5 "Gr. merc. "
PROMPT 1 3 "Gr. merc. "
FIELD LF_ANAMAG->GRMERC[1,3]
GROUP G_GRMERC
FLAG "U"
@ -189,7 +191,7 @@ END
STRING F_GRMERCD1 50
BEGIN
PROMPT 23 5 ""
PROMPT 23 3 ""
GROUP G_GRMERC
USE GMC KEY 2 SELECT CODTAB[4,5]==""
INPUT S0 F_GRMERCD1
@ -202,14 +204,14 @@ END
STRING H_GRMERCD1 50
BEGIN
PROMPT 23 5 ""
PROMPT 23 3 ""
GROUP G_GRMERC
FLAGS "D"
END
STRING F_GRMERCB 2
BEGIN
PROMPT 1 6 "Sott. merc. "
PROMPT 1 4 "Sott. merc. "
FIELD LF_ANAMAG->GRMERC[4,5]
GROUP G_GRMERC
FLAG "U"
@ -228,7 +230,7 @@ END
STRING F_GRMERCD2 50
BEGIN
PROMPT 23 6 ""
PROMPT 23 4 ""
GROUP G_GRMERC
USE GMC KEY 2 SELECT CODTAB[4,5] != ""
INPUT S0 F_GRMERCD2
@ -240,7 +242,7 @@ END
STRING F_CATCONA 3
BEGIN
PROMPT 1 8 "Categoria conto acquisti "
PROMPT 1 5 "Categoria conto acquisti "
FIELD LF_ANAMAG->CATCONA
GROUP G_CATACQ
FLAG "UZ"
@ -258,7 +260,7 @@ END
STRING F_CATCONA1 50 38
BEGIN
PROMPT 36 8 ""
PROMPT 35 5 ""
GROUP G_CATACQ
USE CAA KEY 2
INPUT S0 F_CATCONA1
@ -272,21 +274,21 @@ END
NUMBER F_GRUPPOA 3
BEGIN
PROMPT 1 9 "Conto d'acquisto "
PROMPT 1 6 "Conto d'acquisto "
FIELD LF_ANAMAG->GRUPPOA
GROUP G_CONACQ
END
NUMBER F_CONTOA 3
BEGIN
PROMPT 22 9 ""
PROMPT 22 6 ""
FIELD LF_ANAMAG->CONTOA
GROUP G_CONACQ
END
NUMBER F_SOTTOCA 6
BEGIN
PROMPT 26 9 ""
PROMPT 26 6 ""
FIELD LF_ANAMAG->SOTTOCA
GROUP G_CONACQ
USE LF_PCON
@ -307,9 +309,9 @@ BEGIN
END
STRING F_DESCRA 50 38
STRING F_DESCRA 50 37
BEGIN
PROMPT 36 9 ""
PROMPT 36 6 ""
GROUP G_CONACQ
USE LF_PCON KEY 2
INPUT DESCR F_DESCRA
@ -324,289 +326,165 @@ END
STRING F_CATCONV 3
BEGIN
PROMPT 1 10 "Categoria conto vendite "
FIELD LF_ANAMAG->CATCONV
GROUP G_CATVEN
FLAG "UZ"
USE CRA
INPUT CODTAB F_CATCONV
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Gruppo" I0
DISPLAY "Conto" I1
DISPLAY "Sottoconto" I2
OUTPUT F_CATCONV CODTAB
OUTPUT F_CATCONV1 S0
CHECKTYPE NORMAL
PROMPT 1 11 "Categoria conto vendite "
FIELD LF_ANAMAG->CATCONV
GROUP G_CATVEN
FLAG "UZ"
USE CRA
INPUT CODTAB F_CATCONV
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Gruppo" I0
DISPLAY "Conto" I1
DISPLAY "Sottoconto" I2
OUTPUT F_CATCONV CODTAB
OUTPUT F_CATCONV1 S0
CHECKTYPE NORMAL
END
STRING F_CATCONV1 50 38
BEGIN
PROMPT 36 10 ""
GROUP G_CATVEN
USE CRA KEY 2
INPUT S0 F_CATCONV1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
DISPLAY "Gruppo" I0
DISPLAY "Conto" I1
DISPLAY "Sottoconto" I2
COPY OUTPUT F_CATCONV
PROMPT 35 11 ""
GROUP G_CATVEN
USE CRA KEY 2
INPUT S0 F_CATCONV1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
DISPLAY "Gruppo" I0
DISPLAY "Conto" I1
DISPLAY "Sottoconto" I2
COPY OUTPUT F_CATCONV
END
NUMBER F_GRUPPOV 3
BEGIN
PROMPT 1 11 "Conto di vendita "
FIELD LF_ANAMAG->GRUPPOV
GROUP G_CONVEN
PROMPT 1 12 "Conto di vendita "
FIELD LF_ANAMAG->GRUPPOV
GROUP G_CONVEN
END
NUMBER F_CONTOV 3
BEGIN
PROMPT 22 11 ""
FIELD LF_ANAMAG->CONTOV
GROUP G_CONVEN
PROMPT 22 12 ""
FIELD LF_ANAMAG->CONTOV
GROUP G_CONVEN
END
NUMBER F_SOTTOCV 6
BEGIN
PROMPT 26 11 ""
FIELD LF_ANAMAG->SOTTOCV
GROUP G_CONVEN
USE LF_PCON
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOCV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
OUTPUT F_SOTTOCV SOTTOCONTO
OUTPUT F_DESCRV DESCR
CHECKTYPE NORMAL
WARNING "Conto assente"
ADD RUN cg0 -0
END
STRING F_DESCRV 50 38
BEGIN
PROMPT 36 11 ""
GROUP G_CONVEN
USE LF_PCON KEY 2
INPUT DESCR F_DESCRV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCV
WARNING "Conto assente"
ADD RUN cg0 -0
END
STRING F_GRUPPOPCIA 3
BEGIN
PROMPT 1 12 "C. ind. acquisti "
FLAGS "Z"
FIELD LF_ANAMAG->CONTOINDA[1,3]
CHECKTYPE NORMAL
END
STRING F_CONTOPCIA 3
BEGIN
PROMPT 22 12 ""
FLAGS "Z"
FIELD LF_ANAMAG->CONTOINDA[4,6]
CHECKTYPE NORMAL
END
STRING F_SOTTOPCIA 6
BEGIN
PROMPT 26 12 ""
FLAGS "Z"
FIELD LF_ANAMAG->CONTOINDA[7,12]
USE PCI SELECT CODTAB[7,12]!=""
INPUT CODTAB[1,3] F_GRUPPOPCIA
INPUT CODTAB[4,6] F_CONTOPCIA
INPUT CODTAB[7,12] F_SOTTOPCIA
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
DISPLAY "Descrizione@50" S0
OUTPUT F_GRUPPOPCIA CODTAB[1,3]
OUTPUT F_CONTOPCIA CODTAB[4,6]
OUTPUT F_SOTTOPCIA CODTAB[7,12]
OUTPUT F_DESCRCONTOPCIA S0
FIELD LF_ANAMAG->SOTTOCV
GROUP G_CONVEN
USE LF_PCON
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOCV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
OUTPUT F_SOTTOCV SOTTOCONTO
OUTPUT F_DESCRV DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN BA3 -0 PCI
WARNING "Conto assente"
ADD RUN cg0 -0
END
STRING F_DESCRCONTOPCIA 50 38
STRING F_DESCRV 50 37
BEGIN
PROMPT 36 12 ""
FLAG "U"
USE PCI KEY 2 SELECT (CODTAB[7,12]!="")
INPUT S0 F_DESCRCONTOPCIA
DISPLAY "Descrizione@50" S0
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
COPY OUTPUT F_SOTTOPCIA
CHECKTYPE NORMAL
WARNING "Codice piano conti industriale assente"
ADD RUN BA0 -3 PCI
GROUP G_CONVEN
USE LF_PCON KEY 2
INPUT DESCR F_DESCRV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCV
WARNING "Conto assente"
ADD RUN cg0 -0
END
STRING F_GRUPPOPCIV 3
BEGIN
PROMPT 1 13 "C. ind. vendite "
FLAGS "Z"
FIELD LF_ANAMAG->CONTOINDV[1,3]
CHECKTYPE NORMAL
END
STRING F_CONTOPCIV 3
BEGIN
PROMPT 22 13 ""
FLAGS "Z"
FIELD LF_ANAMAG->CONTOINDV[4,6]
CHECKTYPE NORMAL
END
STRING F_SOTTOPCIV 6
BEGIN
PROMPT 26 13 ""
FLAGS "Z"
FIELD LF_ANAMAG->CONTOINDV[7,12]
USE PCI SELECT CODTAB[7,12]!=""
INPUT CODTAB[1,3] F_GRUPPOPCIV
INPUT CODTAB[4,6] F_CONTOPCIV
INPUT CODTAB[7,12] F_SOTTOPCIV
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
DISPLAY "Descrizione@50" S0
OUTPUT F_GRUPPOPCIV CODTAB[1,3]
OUTPUT F_CONTOPCIV CODTAB[4,6]
OUTPUT F_SOTTOPCIV CODTAB[7,12]
OUTPUT F_DESCRCONTOPCIV S0
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN BA3 -0 PCI
END
STRING F_DESCRCONTOPCIV 50 38
BEGIN
PROMPT 36 13 ""
FLAG "U"
USE PCI KEY 2 SELECT (CODTAB[7,12]!="")
INPUT S0 F_DESCRCONTOPCIV
DISPLAY "Descrizione@50" S0
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
COPY OUTPUT F_SOTTOPCIV
CHECKTYPE NORMAL
WARNING "Codice piano conti industriale assente"
ADD RUN BA0 -3 PCI
END
BOOLEAN F_ARTFIS
BEGIN
PROMPT 1 14 "Articolo fiscale"
FIELD LF_ANAMAG->ARTFIS
MESSAGE TRUE ENABLE,G_RAGGFISC@
MESSAGE FALSE DISABLE,G_RAGGFISC@
PROMPT 1 17 "Articolo fiscale"
FIELD LF_ANAMAG->ARTFIS
MESSAGE TRUE ENABLE,G_RAGGFISC@
MESSAGE FALSE DISABLE,G_RAGGFISC@
END
STRING F_RAGGFIS 5
BEGIN
PROMPT 1 15 "Raggrupp. fiscale "
FIELD LF_ANAMAG->RAGGFIS
FLAGS "UD"
USE RFA
JOIN %ASF ALIAS 200 INTO CODTAB=S8
INPUT CODTAB F_RAGGFIS
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_RAGGFIS CODTAB
OUTPUT F_RAGGFIS1 S0
OUTPUT H_CLASSEFIS S8
CHECKTYPE NORMAL
GROUP G_RAGGFISC
PROMPT 1 18 "Raggrupp. fiscale "
FIELD LF_ANAMAG->RAGGFIS
FLAGS "UD"
USE RFA
JOIN %ASF ALIAS 200 INTO CODTAB=S8
INPUT CODTAB F_RAGGFIS
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_RAGGFIS CODTAB
OUTPUT F_RAGGFIS1 S0
OUTPUT H_CLASSEFIS S8
CHECKTYPE NORMAL
GROUP G_RAGGFISC
END
STRING F_RAGGFIS1 40
BEGIN
PROMPT 31 15 ""
FLAG "D"
PROMPT 31 18 ""
FLAG "D"
END
STRING H_CLASSEFIS 2
BEGIN
PROMPT 1 16 ""
FLAG "HG"
MESSAGE DISABLE,F_CLASSEFIS|COPY,F_CLASSEFIS
MESSAGE EMPTY ENABLE,F_CLASSEFIS
PROMPT 1 19 ""
FLAG "HG"
MESSAGE DISABLE,F_CLASSEFIS|COPY,F_CLASSEFIS
MESSAGE EMPTY ENABLE,F_CLASSEFIS
END
STRING F_CLASSEFIS 2
BEGIN
PROMPT 1 16 "Classe fiscale "
FIELD LF_ANAMAG->CLASSEFIS
FLAGS "UD"
USE %ASF
INPUT CODTAB F_CLASSEFIS
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_CLASSEFIS CODTAB
OUTPUT F_CLASSEFISD S0
MESSAGE EMPTY "",F_CLASSEFISD
CHECKTYPE NORMAL
GROUP G_RAGGFISC
PROMPT 1 19 "Classe fiscale "
FIELD LF_ANAMAG->CLASSEFIS
FLAGS "UD"
USE %ASF
INPUT CODTAB F_CLASSEFIS
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_CLASSEFIS CODTAB
OUTPUT F_CLASSEFISD S0
MESSAGE EMPTY "",F_CLASSEFISD
CHECKTYPE NORMAL
GROUP G_RAGGFISC
END
STRING F_CLASSEFISD 40
BEGIN
PROMPT 31 16 ""
FLAG "D"
PROMPT 31 19 ""
FLAG "D"
END
STRING F_CODIVA 4
BEGIN
PROMPT 1 17 "Codice IVA "
FIELD LF_ANAMAG->CODIVA
USE %IVA
INPUT CODTAB F_CODIVA
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_CODIVA CODTAB
OUTPUT F_CODIVA1 S0
CHECKTYPE NORMAL
PROMPT 1 20 "Codice IVA "
FIELD LF_ANAMAG->CODIVA
USE %IVA
INPUT CODTAB F_CODIVA
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_CODIVA CODTAB
CHECKTYPE NORMAL
END
STRING F_CODIVA1 50
BEGIN
PROMPT 23 17 ""
USE %IVA KEY 2
INPUT S0 F_CODIVA1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT F_CODIVA CODTAB
OUTPUT F_CODIVA1 S0
END
STRING F_SCONTO 25
BEGIN
FIELD LF_ANAMAG->SCONTO
PROMPT 1 18 "Sconto "
END
STRING F_CODIVAR 4
BEGIN
PROMPT 50 18 "Codice IVA ridotta "
PROMPT 20 20 "IVA ridotta "
FIELD LF_ANAMAG->CODIVAR
USE %IVA
INPUT CODTAB F_CODIVAR
@ -616,39 +494,42 @@ BEGIN
CHECKTYPE NORMAL
END
STRING F_SCONTO 25
BEGIN
FIELD LF_ANAMAG->SCONTO
PROMPT 43 20 "Sconto "
END
ENDPAGE
PAGE "Unita'" 0 0 70 20
GROUPBOX DLG_NULL 78 4
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 0 0 ""
PROMPT 0 0 "@bArticolo"
END
STRING F_CODARTPAGE3 20
STRING DLG_NULL 20
BEGIN
FLAGS "D"
PROMPT 2 1 "Codice art. "
PROMPT 2 1 ""
GROUP G_CODART
END
STRING F_DESCRPAGE3 50
STRING DLG_NULL 50
BEGIN
FLAGS "D"
PROMPT 2 2 "Descrizione "
PROMPT 25 1 ""
GROUP G_DESART
END
TEXT DLG_NULL
BEGIN
PROMPT 1 4 "@bUnita' di misura"
PROMPT 1 3 "@bUnita' di misura"
END
SPREADSHEET F_SHEETUM 78 5
SPREADSHEET F_SHEETUM 76 6
BEGIN
PROMPT 1 5 "Unita' di misura "
PROMPT 1 4 "Unita' di misura "
FLAGS "A"
USE LF_UMART KEY NRIGA
INPUT CODART F_CODART
@ -776,55 +657,57 @@ ENDPAGE
PAGE "Produz." 0 0 70 20
GROUPBOX DLG_NULL 78 4
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 0 0 ""
PROMPT 0 0 "@bArticolo"
END
STRING F_CODARTPAGE4 20
STRING DLG_NULL 20
BEGIN
FLAGS "D"
PROMPT 2 1 "Codice art. "
PROMPT 2 1 ""
GROUP G_CODART
END
STRING F_DESCRPAGE4 50
STRING DLG_NULL 50
BEGIN
FLAGS "D"
PROMPT 2 2 "Descrizione "
PROMPT 25 1 ""
GROUP G_DESART
END
BOOLEAN F_ARTPROD
BEGIN
PROMPT 2 4 "Articolo di produzione "
FIELD LF_ANAMAG->ARTPROD
PROMPT 2 4 "Articolo di produzione "
FIELD LF_ANAMAG->ARTPROD
MESSAGE TRUE DISABLE,F_CODFORN|DISABLE,F_CODFORN1|DISABLE,F_RIORDINO
MESSAGE FALSE ENABLE,F_CODFORN|ENABLE,F_CODFORN1|ENABLE,F_RIORDINO
END
NUMBER F_CODFORN 6
BEGIN
PROMPT 1 5 "Codice fornitore "
FIELD LF_ANAMAG->CODFORN
USE LF_CLIFO
INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CODFORN
DISPLAY "Codice " CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODFORN CODCF
OUTPUT F_CODFORN1 RAGSOC
CHECKTYPE NORMAL
PROMPT 1 5 "Codice fornitore "
FIELD LF_ANAMAG->CODFORN
USE LF_CLIFO
INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CODFORN
DISPLAY "Codice " CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODFORN CODCF
OUTPUT F_CODFORN1 RAGSOC
CHECKTYPE NORMAL
END
STRING F_CODFORN1 50
BEGIN
PROMPT 1 6 "Ragione sociale "
USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOCF SELECT
INPUT RAGSOC F_CODFORN1
DISPLAY "Codice " CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODFORN CODCF
OUTPUT F_CODFORN1 RAGSOC
PROMPT 1 6 "Ragione sociale "
USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOCF SELECT
INPUT RAGSOC F_CODFORN1
DISPLAY "Codice " CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODFORN CODCF
OUTPUT F_CODFORN1 RAGSOC
END
LISTBOX F_RIORDINO 20
@ -838,14 +721,14 @@ END
LIST F_VALDIST 2 20
BEGIN
PROMPT 28 5 "Val.distinta "
PROMPT 28 5 "Val.distinta "
ITEM " |Normale"
ITEM "1|Ultimo costo"
ITEM "4|Media ultimi costi"
ITEM "10|Prezzo di listino"
ITEM "5|Costo standard"
ITEM "2|Costo medio"
ITEM "3|Costo medio ponder."
ITEM "3|Costo medio ponder."
ITEM "6|FIFO annuale"
ITEM "8|LIFO annuale"
ITEM "9|FIFO"
@ -855,15 +738,15 @@ END
DATE F_DATAVDIST
BEGIN
PROMPT 65 5 "Dal "
PROMPT 65 5 "Dal "
FIELD DATAVDIST
END
LISTBOX F_TIPOCF 20
BEGIN
PROMPT 0 0 ""
FLAG "H"
ITEM "F|Fornitore"
PROMPT 0 0 ""
FLAG "H"
ITEM "F|Fornitore"
END
LISTBOX F_COLLTYPE 25
@ -1060,20 +943,22 @@ BEGIN
FLAGS "AHG"
END
GROUPBOX DLG_NULL 78 4
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 0 0 ""
PROMPT 0 0 "@bArticolo"
END
STRING F_CODARTPAGE5 20
STRING DLG_NULL 20
BEGIN
FLAGS "D"
PROMPT 2 1 "Codice art. "
PROMPT 2 1 ""
GROUP G_CODART
END
STRING F_DESCRPAGE5 50
STRING DLG_NULL 50
BEGIN
FLAGS "D"
PROMPT 2 2 "Descrizione "
PROMPT 25 1 ""
GROUP G_DESART
END
@ -1161,21 +1046,26 @@ BEGIN
PROMPT 38 -1 "Ordinato clienti "
FLAGS "D"
END
ENDPAGE
PAGE "Storico" 0 0 70 20
STRING F_CODARTPAGE6 20
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 0 0 "@bArticolo"
END
STRING DLG_NULL 20
BEGIN
FLAGS "D"
PROMPT 2 1 "Codice art. "
PROMPT 2 1 ""
GROUP G_CODART
END
STRING F_DESCRPAGE6 50
STRING DLG_NULL 50
BEGIN
FLAGS "D"
PROMPT 2 2 "Descrizione "
PROMPT 25 1 ""
GROUP G_DESART
END
@ -1267,22 +1157,21 @@ ENDPAGE
PAGE "Utente" 0 0 70 20
GROUPBOX DLG_NULL 78 4
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 0 0 ""
PROMPT 0 0 "@bArticolo"
END
STRING DLG_NULL 20
BEGIN
FLAGS "D"
PROMPT 2 1 "Codice art. "
PROMPT 2 1 ""
GROUP G_CODART
END
END
STRING DLG_NULL 50
BEGIN
FLAGS "D"
PROMPT 2 2 "Descrizione "
PROMPT 25 1 ""
GROUP G_DESART
END

15
ve/vetbatr.h Executable file
View File

@ -0,0 +1,15 @@
#define ATR_CODICE 101
#define ATR_DESCR 102
#define ATR_DISMISS 103
#define ATR_TIPORIGA 104
#define ATR_DESCRRIGA 105
#define ATR_GRUPPOA 110
#define ATR_CONTOA 111
#define ATR_SOTTOA 112
#define ATR_DESCRCONTOA 113
#define ATR_CDC_V1 201
#define ATR_CDC_V2 202
#define ATR_CDC_V3 203
#define ATR_CDC_V4 204

124
ve/vetbatr.uml Executable file
View File

@ -0,0 +1,124 @@
#include "vetbatr.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Attrezzature" -1 -1 80 20
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING ATR_CODICE 16
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
KEY 1
USE ATR
FLAGS "U"
INPUT CODTAB ATR_CODICE
DISPLAY "Codice@16" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT ATR_CODICE CODTAB
OUTPUT ATR_DESCR S0
CHECKTYPE REQUIRED
END
STRING ATR_DESCR 50
BEGIN
PROMPT 2 2 "Descrizione "
FIELD S0
KEY 2
USE ATR KEY 2
INPUT S0 ATR_DESCR
DISPLAY "Denominazione@50" S0
DISPLAY "Codice@16" CODTAB
COPY OUTPUT ATR_CODICE
CHECKTYPE REQUIRED
END
STRING ATR_TIPORIGA 4
BEGIN
PROMPT 2 4 "Tipo riga "
FIELD S8
FLAGS "U"
USE %TRI SELECT S7=="A"
INPUT CODTAB ATR_TIPORIGA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT ATR_TIPORIGA CODTAB
OUTPUT ATR_DESCRRIGA S0
CHECKTYPE REQUIRED
END
STRING ATR_DESCRRIGA 50
BEGIN
PROMPT 24 4 ""
USE %TRI KEY 2 SELECT S7=="A"
INPUT S0 ATR_DESCRRIGA
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT ATR_TIPORIGA
END
DATE ATR_DISMISS
BEGIN
PROMPT 2 6 "Data dismissione "
FIELD D0
END
NUMBER ATR_GRUPPOA 3
BEGIN
PROMPT 2 10 "Conto acquisti "
FIELD I3
END
NUMBER ATR_CONTOA 3
BEGIN
PROMPT 22 10 ""
FIELD I4
END
NUMBER ATR_SOTTOA 6
BEGIN
PROMPT 28 10 ""
FIELD I5
USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO ATR_GRUPPOA
INPUT CONTO ATR_CONTOA
INPUT SOTTOCONTO ATR_SOTTOA
DISPLAY "Gruppo@3" GRUPPO
DISPLAY "Conto@3" CONTO
DISPLAY "Sottoconto@6" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT ATR_GRUPPOA GRUPPO
OUTPUT ATR_CONTOA CONTO
OUTPUT ATR_SOTTOA SOTTOCONTO
OUTPUT ATR_DESCRCONTOA DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING ATR_DESCRCONTOA 50 35
BEGIN
PROMPT 39 10 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
INPUT DESCR ATR_DESCRCONTOA
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo@3" GRUPPO
DISPLAY "Conto@3" CONTO
DISPLAY "Sottoconto@6" SOTTOCONTO
COPY OUTPUT ATR_SOTTOA
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
ENDPAGE
ENDMASK

19
ve/vetbprs.h Executable file
View File

@ -0,0 +1,19 @@
#define PRS_CODICE 101
#define PRS_DESCR 102
#define PRS_CODASSFIS 103
#define PRS_CODASSFIS1 104
#define PRS_CODDIV 105
#define PRS_CODDIV1 106
#define PRS_PREZZO 107
#define PRS_UM 108
#define PRS_NCAMPOCAL 109
#define PRS_NCAMPOCAL1 110
#define PRS_PERCENTUALE 111
#define PRS_GRUPPOV 112
#define PRS_CONTOV 113
#define PRS_SOTTOV 114
#define PRS_DESCRCONTOV 115
#define PRS_CAMPI 120
#define PRS_QTA 121
#define PRS_CDC_V1 131

238
ve/vetbprs.uml Executable file
View File

@ -0,0 +1,238 @@
#include "vetbprs.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Prestazioni" 11 60 14
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING PRS_CODICE 8
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
KEY 1
USE PRS
FLAGS "U"
INPUT CODTAB PRS_CODICE
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50 " S0
OUTPUT PRS_CODICE CODTAB
OUTPUT PRS_DESCR S0
CHECKTYPE REQUIRED
END
STRING PRS_DESCR 50
BEGIN
PROMPT 2 2 "Descrizione "
FIELD S0
KEY 2
USE PRS KEY 2
INPUT S0 PRS_DESCR
DISPLAY "Descrizione@50 " S0
DISPLAY "Codice " CODTAB
COPY OUTPUT PRS_CODICE
CHECKTYPE REQUIRED
END
STRING PRS_CODASSFIS 4
BEGIN
PROMPT 2 4 "Codice IVA "
FIELD S3[1,4]
FLAGS "U"
USE %IVA
INPUT CODTAB PRS_CODASSFIS
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT PRS_CODASSFIS CODTAB
OUTPUT PRS_CODASSFIS1 S0
CHECKTYPE NORMAL
END
STRING PRS_CODASSFIS1 50
BEGIN
PROMPT 25 4 ""
USE %IVA KEY 2
INPUT S0 PRS_CODASSFIS1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT PRS_CODASSFIS CODTAB
OUTPUT PRS_CODASSFIS1 S0
CHECKTYPE NORMAL
END
STRING PRS_CODDIV 4
BEGIN
PROMPT 2 5 "Codice valuta "
FIELD S4
FLAGS "U"
USE %VAL
INPUT CODTAB PRS_CODDIV
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT PRS_CODDIV CODTAB
OUTPUT PRS_CODDIV1 S0
CHECKTYPE NORMAL
END
STRING PRS_CODDIV1 50
BEGIN
PROMPT 25 5 ""
USE %VAL KEY 2
INPUT S0 PRS_CODDIV1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT PRS_CODDIV CODTAB
OUTPUT PRS_CODDIV1 S0
CHECKTYPE NORMAL
END
LISTBOX PRS_CAMPI 15
BEGIN
PROMPT 2 6 "Campo default "
FIELD S6
ITEM "Q|Qta prezzo "
MESSAGE SHOW,1@|ENABLE,2@|HIDE,3@|RESET,3@
ITEM "V|Valore "
MESSAGE SHOW,1@|"1",2@|DISABLE,2@|HIDE,3@|RESET,3@
ITEM "P|Percentuale "
MESSAGE SHOW,3@|HIDE,1@|RESET,1@
END
CURRENCY PRS_PREZZO 15
BEGIN
PROMPT 2 7 "Prezzo "
FIELD R0
FLAGS "U"
GROUP 1
END
NUMBER PRS_QTA 13 5
BEGIN
PROMPT 35 7 "Quantita' "
FIELD R1
GROUP 1 2
END
STRING PRS_UM 2
BEGIN
PROMPT 63 7 "U.M. "
FIELD S7
FLAGS "U"
USE %UMS
INPUT CODTAB PRS_UM
DISPLAY "U.M." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT PRS_UM CODTAB
CHECKTYPE NORMAL
GROUP 1
END
NUMBER PRS_PERCENTUALE 5 2
BEGIN
PROMPT 49 6 "Percentuale "
FIELD R2
GROUP 3
END
STRING PRS_NCAMPOCAL 10
BEGIN
PROMPT 2 7 "Formula Doc. "
FIELD S5
FLAG "U"
USE %FRD
INPUT CODTAB PRS_NCAMPOCAL
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT PRS_NCAMPOCAL CODTAB
OUTPUT PRS_NCAMPOCAL1 S0
CHECKTYPE NORMAL
GROUP 3
END
STRING PRS_NCAMPOCAL1 50
BEGIN
PROMPT 17 7 ""
USE %FRD KEY 2
INPUT S0 PRS_NCAMPOCAL1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT PRS_NCAMPOCAL CODTAB
OUTPUT PRS_NCAMPOCAL1 S0
CHECKTYPE NORMAL
GROUP 3
END
NUMBER PRS_GRUPPOV 3
BEGIN
PROMPT 2 9 "Conto vendita "
FIELD I0
CHECKTYPE NORMAL
END
NUMBER PRS_CONTOV 3
BEGIN
PROMPT 22 9 ""
FIELD I1
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
INPUT GRUPPO PRS_GRUPPOV
INPUT CONTO PRS_CONTOV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT PRS_GRUPPOV GRUPPO
OUTPUT PRS_CONTOV CONTO
CHECKTYPE NORMAL
ADD RUN CG0 -0
WARNING "Il conto deve essere un ricavo"
END
NUMBER PRS_SOTTOV 6
BEGIN
PROMPT 30 9 ""
FIELD I2
USE LF_PCON SELECT SOTTOCONTO!=""
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO PRS_GRUPPOV
INPUT CONTO PRS_CONTOV
INPUT SOTTOCONTO PRS_SOTTOV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT PRS_GRUPPOV GRUPPO
OUTPUT PRS_CONTOV CONTO
OUTPUT PRS_SOTTOV SOTTOCONTO
OUTPUT PRS_DESCRCONTOV DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING PRS_DESCRCONTOV 50
BEGIN
PROMPT 17 10 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR PRS_DESCRCONTOV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT PRS_SOTTOV
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
ENDPAGE
ENDMASK

85
ve/vetbrss.h
View File

@ -1,45 +1,46 @@
#define F_CODICE 101
#define F_COGNOME 102
#define F_NOME 103
#define F_COLLAB 104
#define F_CODFORN 105
#define F_CODFIS 106
#define F_ADDRESS 107
#define F_CIVICO 108
#define F_STATO 109
#define F_DESTATO 110
#define F_COMUNE 111
#define F_DENCOM 112
#define F_LOCALITA 113
#define F_CAP 114
#define F_PROV 115
#define F_MRP_ATTIVO 116
#define F_IMPIANTO 117
#define F_LINEA 118
#define F_CODIVA 119
#define F_DESIVA 120
#define F_CODVAL 121
#define F_DESVAL 122
#define RSS_CODICE 101
#define RSS_RAGSOC 102
#define RSS_COLLAB 104
#define RSS_CODFORN 105
#define RSS_CODFIS 106
#define F_CAMPI 123
#define F_PREZZO 124
#define F_QTA 125
#define F_UM 126
#define RSS_ADDRESS_F 107
#define RSS_CIVICO_F 108
#define RSS_STATO_F 109
#define RSS_DESTATO_F 110
#define RSS_COMUNE_F 111
#define RSS_DENCOM_F 112
#define F_GRUPPOV 129
#define F_CONTOV 130
#define F_SOTTOV 131
#define F_DESCRCONTOV 132
#define F_GRUPPOA 133
#define F_CONTOA 134
#define F_SOTTOA 135
#define F_DESCRCONTOA 136
#define RSS_ADDRESS_C 117
#define RSS_CIVICO_C 118
#define RSS_STATO_C 119
#define RSS_DESTATO_C 120
#define RSS_COMUNE_C 121
#define RSS_DENCOM_C 122
#define F_GRUPPOPCIA 140
#define F_CONTOPCIA 141
#define F_SOTTOPCIA 142
#define F_DESCRCONTOPCIA 143
#define F_GRUPPOPCIV 144
#define F_CONTOPCIV 145
#define F_SOTTOPCIV 146
#define F_DESCRCONTOPCIV 147
#define RSS_TIPORIGA 124
#define RSS_DESCRRIGA 125
#define RSS_MRP_ATTIVO 126
#define RSS_IMPIANTO 127
#define RSS_LINEA 128
#define RSS_CODIVA 129
#define RSS_DESIVA 130
#define RSS_CODVAL 131
#define RSS_DESVAL 132
#define RSS_CAMPI 133
#define RSS_PREZZO 134
#define RSS_QTA 135
#define RSS_UM 136
#define RSS_GRUPPOA 137
#define RSS_CONTOA 138
#define RSS_SOTTOA 139
#define RSS_DESCRCONTOA 140
#define RSS_PRESTAZ 141
#define RSS_CDC_V1 151
#define RSS_CDC_V2 152
#define RSS_CDC_V3 153
#define RSS_CDC_V4 154

807
ve/vetbrss.uml
View File

@ -4,576 +4,401 @@ TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella Risorse" 11 60 14
PAGE "Risorse" 11 60 14
GROUPBOX DLG_NULL 75 5
GROUPBOX DLG_NULL 75 8
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 16
STRING RSS_CODICE 16
BEGIN
PROMPT 2 1 "Codice "
PROMPT 2 1 "Codice "
FIELD CODTAB
KEY 1
USE RSS
FLAGS "U"
INPUT CODTAB F_CODICE
INPUT CODTAB RSS_CODICE
DISPLAY "Codice@16" CODTAB
DISPLAY "Cognome@40" S0[1,40]
DISPLAY "Nome@30" S0[41,70]
OUTPUT F_CODICE CODTAB
OUTPUT F_COGNOME S0[1,40]
OUTPUT F_NOME S0[41,70]
DISPLAY "Denominazione@50" S0
OUTPUT RSS_CODICE CODTAB
OUTPUT RSS_RAGSOC S0
CHECKTYPE REQUIRED
MESSAGE COPY,11@
END
STRING F_COGNOME 40
STRING RSS_RAGSOC 50
BEGIN
PROMPT 2 2 "Cognome "
FIELD S0[1,40]
PROMPT 9 2 ""
FIELD S0
KEY 2
USE RSS KEY 2
INPUT S0[1,40] F_COGNOME
DISPLAY "Cognome@40" S0[1,40]
DISPLAY "Nome@30" S0[41,70]
INPUT S0 RSS_RAGSOC
DISPLAY "Denominazione@50" S0
DISPLAY "Codice@16" CODTAB
COPY OUTPUT F_CODICE
COPY OUTPUT RSS_CODICE
CHECKTYPE REQUIRED
MESSAGE COPY,12@
END
STRING F_NOME 30
LIST RSS_COLLAB 1 10
BEGIN
PROMPT 2 3 "Nome "
FIELD S0[41,70]
KEY 2
USE RSS KEY 2
INPUT S0[41,70] F_NOME
DISPLAY "Nome@30" S0[41,70]
DISPLAY "Cognome@40" S0[1,40]
DISPLAY "Codice@16" CODTAB
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
MESSAGE COPY,13@
END
BOOLEAN F_COLLAB
BEGIN
PROMPT 2 5 "Collaboratore"
PROMPT 2 3 "Tipo "
ITEM "|Dipendente"
MESSAGE HIDE,1@|SHOW,2@
ITEM "X|Fornitore"
MESSAGE SHOW,1@|HIDE,2@
FIELD B0
MESSAGE FALSE CLEAR,F_CODFORN|ENABLE,10@
MESSAGE TRUE ENABLE,F_CODFORN|CLEAR,10@
END
NUMBER F_CODFORN 6
NUMBER RSS_CODFORN 6
BEGIN
PROMPT 2 6 "Codice fornitore "
FIELD I6
PROMPT 32 3 ""
USE LF_CLIFO
INPUT TIPOCF "F"
INPUT CODCF F_CODFORN
INPUT CODCF RSS_CODFORN
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CODFORN CODCF
OUTPUT F_ADDRESS INDCF
OUTPUT F_CIVICO CIVCF
OUTPUT F_STATO STATOCF
OUTPUT F_COMUNE COMCF
OUTPUT F_LOCALITA LOCALITACF
OUTPUT F_CAP CAPCF
OUTPUT F_CODFIS COFI
OUTPUT F_CODIVA PAIVA
OUTPUT RSS_CODFORN CODCF
OUTPUT RSS_RAGSOC RAGSOC
OUTPUT RSS_ADDRESS_F INDCF
OUTPUT RSS_CIVICO_F CIVCF
OUTPUT RSS_STATO_F STATOCF
OUTPUT RSS_COMUNE_F COMCF
CHECKTYPE REQUIRED
FIELD I6
WARNING "Codice fornitore inesistente"
ADD RUN CG0 -1
GROUP 1
END
STRING F_CODFIS 16
NUMBER RSS_CODFIS 6
BEGIN
PROMPT 2 7 "Codice fiscale "
FIELD S3[5,21]
FLAGS "U"
GROUP 10
PROMPT 32 3 ""
USE LF_ANAG
INPUT TIPOA "F"
INPUT CODANAGR RSS_CODFIS
DISPLAY "Codice" CODANAGR
DISPLAY "Cognome@30" RAGSOC[1,30]
DISPLAY "Nome@20" RAGSOC[31,50]
OUTPUT RSS_CODFIS CODANAGR
OUTPUT RSS_RAGSOC RAGSOC
OUTPUT RSS_ADDRESS_C INDRES
OUTPUT RSS_CIVICO_C CIVRES
OUTPUT RSS_STATO_C STATORES
OUTPUT RSS_COMUNE_C COMRES
CHECKTYPE REQUIRED
WARNING "Codice persona inesistente"
FIELD I6
ADD RUN BA4 -1
GROUP 2
END
GROUPBOX DLG_NULL 76 6
STRING RSS_ADDRESS_F 35
BEGIN
PROMPT 1 8 "@bRecapito"
END
STRING F_ADDRESS 35
BEGIN
PROMPT 2 9 "Indirizzo "
FIELD S1[1,35]
GROUP 10
END
STRING F_CIVICO 5
BEGIN
PROMPT 65 9 "N. "
FIELD S3[26,35]
GROUP 10
END
NUMBER F_STATO 3
BEGIN
PROMPT 2 10 "Comune: Stato "
FIELD I7
FLAGS "Z"
USE %STA
INPUT CODTAB F_STATO
DISPLAY "Codice" CODTAB
DISPLAY "Stato@50" S0
OUTPUT F_STATO CODTAB
OUTPUT F_DESTATO S0
CHECKTYPE NORMAL
GROUP 10
END
STRING F_DESTATO 50
BEGIN
PROMPT 23 10 ""
USE %STA KEY 2
INPUT S0 F_DESTATO
DISPLAY "Stato@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_STATO
GROUP 10
END
STRING F_COMUNE 4
BEGIN
PROMPT 8 11 ":Codice "
FIELD S3[22,25]
FLAGS "U"
USE LF_COMUNI
INPUT STATO F_STATO SELECT
INPUT COM F_COMUNE
DISPLAY "Stato" STATO
DISPLAY "Codice" COM
DISPLAY "Comune@50" DENCOM
OUTPUT F_STATO STATO
OUTPUT F_COMUNE COM
OUTPUT F_CAP CAPCOM
OUTPUT F_DENCOM DENCOM
OUTPUT F_PROV PROVCOM
CHECKTYPE NORMAL
ADD RUN ba4 -0
GROUP 10
END
STRING F_DENCOM 50
BEGIN
PROMPT 23 11 ""
USE LF_COMUNI KEY 2
INPUT DENCOM F_DENCOM
DISPLAY "Comune@50" DENCOM
DISPLAY "Stato" STATO
DISPLAY "Codice" COM
COPY OUTPUT F_COMUNE
ADD RUN ba4 -0
GROUP 10
END
STRING F_LOCALITA 35
BEGIN
PROMPT 2 12 "Localita' "
FIELD S1[36,70]
GROUP 10
END
STRING F_CAP 5
BEGIN
PROMPT 53 12 "CAP "
FIELD I8
GROUP 10
END
STRING F_PROV 5
BEGIN
PROMPT 64 12 "Prov"
PROMPT 2 4 "Indirizzo "
FLAGS "D"
GROUP 10
GROUP 1
END
BOOLEAN F_MRP_ATTIVO
STRING RSS_CIVICO_F 5
BEGIN
PROMPT 65 4 "N. "
FLAGS "D"
GROUP 1
END
NUMBER RSS_STATO_F 3
BEGIN
PROMPT 2 5 "Comune: Stato "
FLAGS "DZ"
USE %STA
INPUT CODTAB RSS_STATO_F
OUTPUT RSS_DESTATO_F S0
CHECKTYPE NORMAL
GROUP 1
END
STRING RSS_DESTATO_F 50
BEGIN
PROMPT 23 5 ""
FLAGS "D"
GROUP 1
END
STRING RSS_COMUNE_F 4
BEGIN
PROMPT 8 6 ":Codice "
FLAGS "DU"
USE LF_COMUNI
INPUT STATO RSS_STATO_F
INPUT COM RSS_COMUNE_F
OUTPUT RSS_DENCOM_F DENCOM
CHECKTYPE NORMAL
GROUP 1
END
STRING RSS_DENCOM_F 50
BEGIN
PROMPT 23 6 ""
FLAGS "D"
GROUP 1
END
STRING RSS_ADDRESS_C 35
BEGIN
PROMPT 2 4 "Indirizzo "
FLAGS "D"
GROUP 2
END
STRING RSS_CIVICO_C 5
BEGIN
PROMPT 65 4 "N. "
FLAGS "D"
GROUP 2
END
NUMBER RSS_STATO_C 3
BEGIN
PROMPT 2 5 "Comune: Stato "
FLAGS "DZ"
USE %STA
INPUT CODTAB RSS_STATO_C
OUTPUT RSS_DESTATO_C S0
CHECKTYPE NORMAL
GROUP 2
END
STRING RSS_DESTATO_C 50
BEGIN
PROMPT 23 5 ""
FLAGS "D"
GROUP 2
END
STRING RSS_COMUNE_C 4
BEGIN
PROMPT 8 6 ":Codice "
FLAGS "DU"
USE LF_COMUNI
INPUT STATO RSS_STATO_C
INPUT COM RSS_COMUNE_C
OUTPUT RSS_DENCOM_C DENCOM
CHECKTYPE NORMAL
GROUP 2
END
STRING RSS_DENCOM_C 50
BEGIN
PROMPT 23 6 ""
FLAGS "D"
GROUP 2
END
STRING RSS_TIPORIGA 4
BEGIN
PROMPT 1 8 "Tipo riga "
FIELD S8
FLAGS "U"
USE %TRI SELECT S7=="R"
INPUT CODTAB RSS_TIPORIGA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT RSS_TIPORIGA CODTAB
OUTPUT RSS_DESCRRIGA S0
CHECKTYPE REQUIRED
END
STRING RSS_DESCRRIGA 50
BEGIN
PROMPT 24 8 ""
USE %TRI KEY 2 SELECT S7=="R"
INPUT S0 RSS_DESCRRIGA
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT RSS_TIPORIGA
END
STRING RSS_CODIVA 4
BEGIN
PROMPT 1 9 "Codice IVA "
FIELD S3[1,4]
FLAGS "U"
USE %IVA
INPUT CODTAB RSS_CODIVA
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT RSS_CODIVA CODTAB
OUTPUT RSS_DESIVA S0
CHECKTYPE NORMAL
END
STRING RSS_DESIVA 50
BEGIN
PROMPT 24 9 ""
USE %IVA KEY 2
INPUT S0 RSS_DESIVA
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
COPY OUTPUT RSS_CODIVA
CHECKTYPE NORMAL
END
STRING RSS_CODVAL 4
BEGIN
PROMPT 1 10 "Codice valuta "
FIELD S4
FLAGS "U"
USE %VAL
INPUT CODTAB RSS_CODVAL
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT RSS_CODVAL CODTAB
OUTPUT RSS_DESVAL S0
CHECKTYPE NORMAL
END
STRING RSS_DESVAL 50
BEGIN
PROMPT 24 10 ""
USE %VAL KEY 2
INPUT S0 RSS_DESVAL
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT RSS_CODVAL
CHECKTYPE NORMAL
END
LISTBOX RSS_CAMPI 15
BEGIN
PROMPT 1 12 "Campo default "
FIELD S6
ITEM "Q|Qta prezzo "
FLAGS "H"
END
CURRENCY RSS_PREZZO 15
BEGIN
PROMPT 1 12 "Prezzo "
FIELD R0
FLAGS "U"
END
NUMBER RSS_QTA 13 5
BEGIN
PROMPT 38 12 "Quantita' "
FIELD R1
END
STRING RSS_UM 2
BEGIN
PROMPT 67 12 "U.M. "
FIELD S7
FLAGS "U"
USE %UMS
INPUT CODTAB RSS_UM
DISPLAY "U.M." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT RSS_UM CODTAB
CHECKTYPE NORMAL
END
STRING RSS_PRESTAZ 8
BEGIN
PROMPT 1 13 "Prestazione per fatturazione "
USE PRS
INPUT CODTAB RSS_PRESTAZ
DISPLAY "Codice@8" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT RSS_PRESTAZ CODTAB
CHECKTYPE NORMAL
FIELD S5
END
BOOLEAN RSS_MRP_ATTIVO
BEGIN
PROMPT 1 14 "@bCollegamento M.R.P.:"
MESSAGE FALSE CLEAR,9@
MESSAGE TRUE ENABLE,9@
// FLAGS "H"
END
STRING F_IMPIANTO 5
STRING RSS_IMPIANTO 5
BEGIN
PROMPT 23 14 "Impianto "
FIELD S8
PROMPT 25 14 "Impianto "
FIELD S3[5,9]
USE IMP
INPUT CODTAB F_IMPIANTO
INPUT CODTAB RSS_IMPIANTO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_IMPIANTO CODTAB
OUTPUT RSS_IMPIANTO CODTAB
GROUP 9
END
STRING F_LINEA 5
STRING RSS_LINEA 5
BEGIN
PROMPT 45 14 "Linea "
FIELD S9
FIELD S3[10,14]
USE LNP
INPUT CODTAB F_LINEA
INPUT CODTAB RSS_LINEA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_LINEA CODTAB
OUTPUT RSS_LINEA CODTAB
GROUP 9
END
GROUPBOX DLG_NULL 76 7
NUMBER RSS_GRUPPOA 3
BEGIN
PROMPT 1 15 "@bCalendario"
END
ENDPAGE
PAGE "Pagina 2" 11 60 14
GROUPBOX DLG_NULL 75 5
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING DLG_NULL 16
BEGIN
PROMPT 2 1 "Codice "
FLAGS "UD"
GROUP 11
END
STRING DLG_NULL 40
BEGIN
PROMPT 2 2 "Cognome "
FLAGS "D"
GROUP 12
END
STRING DLG_NULL 30
BEGIN
PROMPT 2 3 "Nome "
FLAGS "D"
GROUP 13
END
STRING F_CODIVA 4
BEGIN
PROMPT 2 7 "Codice IVA "
FIELD S3[1,4]
FLAGS "U"
USE %IVA
INPUT CODTAB F_CODIVA
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODIVA CODTAB
OUTPUT F_DESIVA S0
CHECKTYPE NORMAL
END
STRING F_DESIVA 50
BEGIN
PROMPT 25 7 ""
USE %IVA KEY 2
INPUT S0 F_DESIVA
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
COPY OUTPUT F_CODIVA
CHECKTYPE NORMAL
END
STRING F_CODVAL 4
BEGIN
PROMPT 2 8 "Codice valuta "
FIELD S4
FLAGS "U"
USE %VAL
INPUT CODTAB F_CODVAL
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODVAL CODTAB
OUTPUT F_DESVAL S0
CHECKTYPE NORMAL
END
STRING F_DESVAL 50
BEGIN
PROMPT 25 8 ""
USE %VAL KEY 2
INPUT S0 F_DESVAL
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODVAL
CHECKTYPE NORMAL
END
LISTBOX F_CAMPI 15
BEGIN
PROMPT 2 9 "Campo default "
FIELD S6
ITEM "Q|Qta prezzo "
MESSAGE SHOW,1@|ENABLE,2@
FLAGS "D"
END
CURRENCY F_PREZZO 15
BEGIN
PROMPT 2 10 "Prezzo "
FIELD R0
FLAGS "U"
GROUP 1
END
NUMBER F_QTA 13 5
BEGIN
PROMPT 35 10 "Quantita' "
FIELD R1
GROUP 1 2
END
STRING F_UM 2
BEGIN
PROMPT 63 10 "U.M. "
FIELD S7
FLAGS "U"
USE %UMS
INPUT CODTAB F_UM
DISPLAY "U.M." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_UM CODTAB
CHECKTYPE NORMAL
GROUP 1
END
NUMBER F_GRUPPOV 3
BEGIN
PROMPT 2 11 "Conto vendita "
FIELD I0
CHECKTYPE NORMAL
END
NUMBER F_CONTOV 3
BEGIN
PROMPT 22 11 ""
FIELD I1
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
CHECKTYPE NORMAL
ADD RUN CG0 -0
WARNING "Il conto deve essere un ricavo"
END
NUMBER F_SOTTOV 6
BEGIN
PROMPT 30 11 ""
FIELD I2
USE LF_PCON SELECT SOTTOCONTO!=""
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
OUTPUT F_SOTTOV SOTTOCONTO
OUTPUT F_DESCRCONTOV DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRCONTOV 50
BEGIN
PROMPT 17 12 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRCONTOV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOV
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
NUMBER F_GRUPPOA 3
BEGIN
PROMPT 2 13 "Conto acquisti "
PROMPT 2 15 "Conto acquisti "
FIELD I3
CHECKTYPE NORMAL
END
NUMBER F_CONTOA 3
BEGIN
PROMPT 22 13 ""
FIELD I4
COPY USE F_CONTOV
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
CHECKTYPE NORMAL
WARNING "Il conto deve essere un costo"
ADD RUN CG0 -0
END
NUMBER F_SOTTOA 6
BEGIN
PROMPT 30 13 ""
FIELD I5
COPY USE F_SOTTOV
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
INPUT SOTTOCONTO F_SOTTOA
COPY DISPLAY F_SOTTOV
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
OUTPUT F_SOTTOA SOTTOCONTO
OUTPUT F_DESCRCONTOA DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRCONTOA 50
BEGIN
PROMPT 17 14 ""
FLAG "U"
COPY USE F_DESCRCONTOV
INPUT DESCR F_DESCRCONTOA
COPY DISPLAY F_DESCRCONTOV
COPY OUTPUT F_SOTTOA
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
STRING F_GRUPPOPCIA 3
BEGIN
PROMPT 2 15 "Conto industr. "
FLAGS "Z"
FIELD S2[21,23]
CHECKTYPE NORMAL
END
STRING F_CONTOPCIA 3
NUMBER RSS_CONTOA 3
BEGIN
PROMPT 22 15 ""
FLAGS "Z"
FIELD S2[24,26]
END
FIELD I4
END
STRING F_SOTTOPCIA 6
NUMBER RSS_SOTTOA 6
BEGIN
PROMPT 30 15 ""
FLAGS "Z"
FIELD S2[27,32]
USE PCI SELECT CODTAB[7,12]!=""
INPUT CODTAB[1,3] F_GRUPPOPCIA
INPUT CODTAB[4,6] F_CONTOPCIA
INPUT CODTAB[7,12] F_SOTTOPCIA
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
DISPLAY "Descrizione@50" S0
OUTPUT F_GRUPPOPCIA CODTAB[1,3]
OUTPUT F_CONTOPCIA CODTAB[4,6]
OUTPUT F_SOTTOPCIA CODTAB[7,12]
OUTPUT F_DESCRCONTOPCIA S0
PROMPT 28 15 ""
FIELD I5
USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO RSS_GRUPPOA
INPUT CONTO RSS_CONTOA
INPUT SOTTOCONTO RSS_SOTTOA
DISPLAY "Gruppo@3" GRUPPO
DISPLAY "Conto@3" CONTO
DISPLAY "Sottoconto@6" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT RSS_GRUPPOA GRUPPO
OUTPUT RSS_CONTOA CONTO
OUTPUT RSS_SOTTOA SOTTOCONTO
OUTPUT RSS_DESCRCONTOA DESCR
CHECKTYPE NORMAL
ADD RUN BA3 -0 PCI
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRCONTOPCIA 50
STRING RSS_DESCRCONTOA 50 35
BEGIN
PROMPT 2 16 "acquisti "
PROMPT 39 15 ""
FLAG "U"
USE PCI KEY 2 SELECT (CODTAB[7,12]!="")
INPUT S0 F_DESCRCONTOPCIA
DISPLAY "Descrizione@50" S0
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
COPY OUTPUT F_SOTTOPCIA
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
INPUT DESCR RSS_DESCRCONTOA
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo@3" GRUPPO
DISPLAY "Conto@3" CONTO
DISPLAY "Sottoconto@6" SOTTOCONTO
COPY OUTPUT RSS_SOTTOA
CHECKTYPE NORMAL
ADD RUN BA0 -3 PCI
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
STRING F_GRUPPOPCIV 3
BEGIN
PROMPT 2 17 "Conto industr. "
FLAGS "Z"
FIELD S2[1,3]
CHECKTYPE NORMAL
END
STRING F_CONTOPCIV 3
BEGIN
PROMPT 22 17 ""
FLAGS "Z"
FIELD S2[4,6]
END
STRING F_SOTTOPCIV 6
BEGIN
PROMPT 30 17 ""
FLAGS "Z"
FIELD S2[7,12]
USE PCI SELECT CODTAB[7,12]!=""
INPUT CODTAB[1,3] F_GRUPPOPCIV
INPUT CODTAB[4,6] F_CONTOPCIV
INPUT CODTAB[7,12] F_SOTTOPCIV
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
DISPLAY "Descrizione@50" S0
OUTPUT F_GRUPPOPCIV CODTAB[1,3]
OUTPUT F_CONTOPCIV CODTAB[4,6]
OUTPUT F_SOTTOPCIV CODTAB[7,12]
OUTPUT F_DESCRCONTOPCIV S0
CHECKTYPE NORMAL
ADD RUN BA3 -0 PCI
END
STRING F_DESCRCONTOPCIV 50
BEGIN
PROMPT 2 18 "vendita "
FLAG "U"
USE PCI KEY 2 SELECT (CODTAB[7,12]!="")
INPUT S0 F_DESCRCONTOPCIV
DISPLAY "Descrizione@50" S0
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Conto" CODTAB[4,6]
DISPLAY "Sottoconto" CODTAB[7,12]
COPY OUTPUT F_SOTTOPCIV
CHECKTYPE NORMAL
ADD RUN BA0 -3 PCI
END
ENDPAGE
ENDMASK

34
ve/vetbspp.h Executable file
View File

@ -0,0 +1,34 @@
#define SPP_CODICE 101
#define SPP_DESCR 102
#define SPP_CODASSFIS 103
#define SPP_CODASSFIS1 104
#define SPP_CODDIV 105
#define SPP_CODDIV1 106
#define SPP_PREZZO 107
#define SPP_QTA 108
#define SPP_NCAMPOCAL 109
#define SPP_NCAMPOCAL1 110
#define SPP_PERCENTUALE 111
#define SPP_GRUPPOV 112
#define SPP_CONTOV 113
#define SPP_SOTTOV 114
#define SPP_DESCRCONTOV 115
#define SPP_CAMPI 116
#define SPP_UM 117
#define SPP_GRUPPOA 118
#define SPP_CONTOA 119
#define SPP_SOTTOA 120
#define SPP_DESCRCONTOA 121
#define SPP_TIPORIGA 122
#define SPP_DESCRRIGA 123
#define SPP_TIPORIT 124
#define SPP_CDC_V1 125
#define SPP_CDC_V2 126
#define SPP_CDC_V3 127
#define SPP_CDC_V4 128
#define SPP_CDC_A1 130
#define SPP_CDC_A2 131
#define SPP_CDC_A3 132
#define SPP_CDC_A4 133

504
ve/batbspp.uml → ve/vetbspp.uml
View File

@ -1,102 +1,100 @@
#include "batbspp.h"
#include "vetbspp.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella spese " 11 60 14
PAGE "Spese" 11 60 14
GROUPBOX DLG_NULL 75 7
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 8
STRING SPP_CODICE 8
BEGIN
PROMPT 2 2 "Cod. tabella "
PROMPT 2 1 "Codice "
FIELD CODTAB
KEY 1
USE SPP
FLAGS "U"
INPUT CODTAB F_CODICE
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50 " S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
INPUT CODTAB SPP_CODICE
DISPLAY "Codice@8" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT SPP_CODICE CODTAB
OUTPUT SPP_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
STRING SPP_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
PROMPT 2 2 "Descrizione "
FIELD S0
KEY 2
USE SPP KEY 2
INPUT S0 F_DESCR
INPUT S0 SPP_DESCR
DISPLAY "Descrizione@50 " S0
DISPLAY "Codice " CODTAB
COPY OUTPUT F_CODICE
COPY OUTPUT SPP_CODICE
CHECKTYPE REQUIRED
END
STRING F_CODASSFIS 4
STRING SPP_CODASSFIS 4
BEGIN
PROMPT 2 7 "Codice IVA "
PROMPT 2 4 "Codice IVA "
FIELD S3[1,4]
FLAG "U"
USE %IVA
INPUT CODTAB F_CODASSFIS
INPUT CODTAB SPP_CODASSFIS
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODASSFIS CODTAB
OUTPUT F_CODASSFIS1 S0
OUTPUT SPP_CODASSFIS CODTAB
OUTPUT SPP_CODASSFIS1 S0
CHECKTYPE NORMAL
END
STRING F_CODASSFIS1 50
STRING SPP_CODASSFIS1 50
BEGIN
PROMPT 25 7 ""
PROMPT 25 4 ""
USE %IVA KEY 2
INPUT S0 F_CODASSFIS1
INPUT S0 SPP_CODASSFIS1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT F_CODASSFIS CODTAB
OUTPUT F_CODASSFIS1 S0
OUTPUT SPP_CODASSFIS CODTAB
OUTPUT SPP_CODASSFIS1 S0
CHECKTYPE NORMAL
END
STRING F_CODDIV 4
STRING SPP_CODDIV 4
BEGIN
PROMPT 2 8 "Codice valuta "
PROMPT 2 5 "Codice valuta "
FIELD S4
FLAG "U"
USE %VAL
INPUT CODTAB F_CODDIV
INPUT CODTAB SPP_CODDIV
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODDIV CODTAB
OUTPUT F_CODDIV1 S0
OUTPUT SPP_CODDIV CODTAB
OUTPUT SPP_CODDIV1 S0
CHECKTYPE NORMAL
END
STRING F_CODDIV1 50
STRING SPP_CODDIV1 50
BEGIN
PROMPT 25 8 ""
PROMPT 25 5 ""
USE %VAL KEY 2
INPUT S0 F_CODDIV1
INPUT S0 SPP_CODDIV1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT F_CODDIV CODTAB
OUTPUT F_CODDIV1 S0
OUTPUT SPP_CODDIV CODTAB
OUTPUT SPP_CODDIV1 S0
CHECKTYPE NORMAL
END
LISTBOX F_CAMPI 15
LISTBOX SPP_CAMPI 15
BEGIN
PROMPT 2 10 "Campo default "
PROMPT 2 6 "Campo default "
FIELD S6
ITEM "Q|Qta prezzo "
MESSAGE SHOW,1@|ENABLE,2@|HIDE,3@|RESET,3@
@ -106,228 +104,228 @@ BEGIN
MESSAGE SHOW,3@|HIDE,1@|RESET,1@
END
CURRENCY F_PREZZO 15
LISTBOX SPP_TIPORIT 17
BEGIN
PROMPT 2 11 "Prezzo "
FIELD R0
FLAGS "U"
GROUP 1
END
NUMBER F_QTA 13 5
BEGIN
PROMPT 35 11 "Quantita' "
FIELD R1
GROUP 1 2
END
STRING F_UM 2
BEGIN
PROMPT 63 11 "U.M. "
FIELD S7
FLAGS "U"
USE %UMS
INPUT CODTAB F_UM
DISPLAY "U.M." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_UM CODTAB
CHECKTYPE NORMAL
GROUP 1
END
NUMBER F_PERCENTUALE 5 2
BEGIN
PROMPT 2 11 "Percentuale "
FIELD R2
GROUP 3
END
STRING F_NCAMPOCAL 10
BEGIN
PROMPT 2 12 "Formula Doc. "
FIELD S5
FLAG "U"
USE %FRD
INPUT CODTAB F_NCAMPOCAL
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_NCAMPOCAL CODTAB
OUTPUT F_NCAMPOCAL1 S0
CHECKTYPE NORMAL
GROUP 3
END
STRING F_NCAMPOCAL1 50
BEGIN
PROMPT 17 13 ""
USE %FRD KEY 2
INPUT S0 F_NCAMPOCAL1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT F_NCAMPOCAL CODTAB
OUTPUT F_NCAMPOCAL1 S0
CHECKTYPE NORMAL
GROUP 3
END
NUMBER F_GRUPPOV 3
BEGIN
PROMPT 2 14 "Conto vendita "
FIELD I0
CHECKTYPE NORMAL
END
NUMBER F_CONTOV 3
BEGIN
PROMPT 22 14 ""
FIELD I1
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
CHECKTYPE NORMAL
ADD RUN CG0 -0
WARNING "Il conto deve essere un ricavo"
END
NUMBER F_SOTTOV 6
BEGIN
PROMPT 30 14 ""
FIELD I2
USE LF_PCON SELECT SOTTOCONTO!=""
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
OUTPUT F_SOTTOV SOTTOCONTO
OUTPUT F_DESCRCONTOV DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRCONTOV 50
BEGIN
PROMPT 17 15 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRCONTOV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOV
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
NUMBER F_GRUPPOA 3
BEGIN
PROMPT 2 16 "Conto acquisti "
FIELD I3
CHECKTYPE NORMAL
END
NUMBER F_CONTOA 3
BEGIN
PROMPT 22 16 ""
FIELD I4
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
CHECKTYPE NORMAL
WARNING "Il conto deve essere un costo"
ADD RUN CG0 -0
END
NUMBER F_SOTTOA 6
BEGIN
PROMPT 30 16 ""
FIELD I5
USE LF_PCON SELECT SOTTOCONTO!=""
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
INPUT SOTTOCONTO F_SOTTOA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
OUTPUT F_SOTTOA SOTTOCONTO
OUTPUT F_DESCRCONTOA DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRCONTOA 50
BEGIN
PROMPT 17 17 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR F_DESCRCONTOA
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOA
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
STRING F_TIPORIGA 4
BEGIN
PROMPT 2 18 "Tipo riga "
FIELD S8
FLAGS "U"
USE %TRI SELECT S7=="S"
INPUT CODTAB F_TIPORIGA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPORIGA CODTAB
OUTPUT F_DESCRRIGA S0
CHECKTYPE REQUIRED
END
STRING F_DESCRRIGA 50
BEGIN
PROMPT 17 19 ""
USE %TRI KEY 2 SELECT S7=="S"
INPUT S0 F_DESCRRIGA
COPY DISPLAY F_TIPORIGA
COPY OUTPUT F_TIPORIGA
END
LISTBOX F_TIPORIT 17
BEGIN
PROMPT 2 20 "Tipo ritenuta "
PROMPT 43 6 "Tipo ritenuta "
FIELD S9
ITEM " |Spesa normale"
ITEM "F|Ritenuta fiscale"
ITEM "S|Ritenuta Sociale"
END
CURRENCY SPP_PREZZO 15
BEGIN
PROMPT 2 7 "Prezzo "
FIELD R0
FLAGS "U"
GROUP 1
END
NUMBER SPP_QTA 15 5
BEGIN
PROMPT 37 7 "Quantita' "
FIELD R1
GROUP 1 2
END
STRING SPP_UM 2
BEGIN
PROMPT 68 7 "U.M. "
FIELD S7
FLAGS "U"
USE %UMS
INPUT CODTAB SPP_UM
DISPLAY "U.M." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT SPP_UM CODTAB
CHECKTYPE NORMAL
GROUP 1
END
NUMBER SPP_PERCENTUALE 5 2
BEGIN
PROMPT 2 7 "Percentuale "
FIELD R2
GROUP 3
END
STRING SPP_NCAMPOCAL 10
BEGIN
PROMPT 2 8 "Formula Docum. "
FIELD S5
FLAG "U"
USE %FRD
INPUT CODTAB SPP_NCAMPOCAL
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT SPP_NCAMPOCAL CODTAB
OUTPUT SPP_NCAMPOCAL1 S0
CHECKTYPE NORMAL
GROUP 3
END
STRING SPP_NCAMPOCAL1 50 45
BEGIN
PROMPT 32 8 ""
USE %FRD KEY 2
INPUT S0 SPP_NCAMPOCAL1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
OUTPUT SPP_NCAMPOCAL CODTAB
OUTPUT SPP_NCAMPOCAL1 S0
CHECKTYPE NORMAL
GROUP 3
END
STRING SPP_TIPORIGA 4
BEGIN
PROMPT 2 9 "Tipo riga "
FIELD S8
FLAGS "U"
USE %TRI SELECT S7=="S"
INPUT CODTAB SPP_TIPORIGA
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT SPP_TIPORIGA CODTAB
OUTPUT SPP_DESCRRIGA S0
CHECKTYPE REQUIRED
END
STRING SPP_DESCRRIGA 50 47
BEGIN
PROMPT 28 9 ""
USE %TRI KEY 2 SELECT S7=="S"
INPUT S0 SPP_DESCRRIGA
COPY DISPLAY SPP_TIPORIGA
COPY OUTPUT SPP_TIPORIGA
END
NUMBER SPP_GRUPPOV 3
BEGIN
PROMPT 2 10 "Conto vendita "
FIELD I0
CHECKTYPE NORMAL
END
NUMBER SPP_CONTOV 3
BEGIN
PROMPT 22 10 ""
FIELD I1
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
INPUT GRUPPO SPP_GRUPPOV
INPUT CONTO SPP_CONTOV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT SPP_GRUPPOV GRUPPO
OUTPUT SPP_CONTOV CONTO
CHECKTYPE NORMAL
ADD RUN CG0 -0
WARNING "Il conto deve essere un ricavo"
END
NUMBER SPP_SOTTOV 6
BEGIN
PROMPT 29 10 ""
FIELD I2
USE LF_PCON SELECT SOTTOCONTO!=""
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO SPP_GRUPPOV
INPUT CONTO SPP_CONTOV
INPUT SOTTOCONTO SPP_SOTTOV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT SPP_GRUPPOV GRUPPO
OUTPUT SPP_CONTOV CONTO
OUTPUT SPP_SOTTOV SOTTOCONTO
OUTPUT SPP_DESCRCONTOV DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING SPP_DESCRCONTOV 50 35
BEGIN
PROMPT 40 10 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR SPP_DESCRCONTOV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT SPP_SOTTOV
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
NUMBER SPP_GRUPPOA 3
BEGIN
PROMPT 2 15 "Conto acquisti "
FIELD I3
CHECKTYPE NORMAL
END
NUMBER SPP_CONTOA 3
BEGIN
PROMPT 22 15 ""
FIELD I4
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
INPUT GRUPPO SPP_GRUPPOA
INPUT CONTO SPP_CONTOA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT SPP_GRUPPOA GRUPPO
OUTPUT SPP_CONTOA CONTO
CHECKTYPE NORMAL
WARNING "Il conto deve essere un costo"
ADD RUN CG0 -0
END
NUMBER SPP_SOTTOA 6
BEGIN
PROMPT 29 15 ""
FIELD I5
USE LF_PCON SELECT SOTTOCONTO!=""
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO SPP_GRUPPOA
INPUT CONTO SPP_CONTOA
INPUT SOTTOCONTO SPP_SOTTOA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT SPP_GRUPPOA GRUPPO
OUTPUT SPP_CONTOA CONTO
OUTPUT SPP_SOTTOA SOTTOCONTO
OUTPUT SPP_DESCRCONTOA DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING SPP_DESCRCONTOA 50 35
BEGIN
PROMPT 40 15 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT DESCR SPP_DESCRCONTOA
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT SPP_SOTTOA
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
ENDPAGE
ENDMASK