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

Patch level :

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


git-svn-id: svn://10.65.10.50/trunk@17362 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
rajitgill 2008-10-07 09:53:36 +00:00
parent 3b7b6f5e28
commit 22acefebe8
9 changed files with 734 additions and 316 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lv/f169.dir
View File

@ -1,3 +1,3 @@
169 169
0 0
$lvrcondv|0|0|226|0|Righe del contratto||| $lvrcondv|0|0|232|0|Righe del contratto|||

5
lv/f169.trr
View File

@ -1,5 +1,5 @@
169 169
25 28
CODCF|3|6|0|Codice cliente CODCF|3|6|0|Codice cliente
CODCONT|3|6|0|Codice contratto CODCONT|3|6|0|Codice contratto
CODART|1|20|0|Codice articolo CODART|1|20|0|Codice articolo
@ -25,5 +25,8 @@ FATTKG|8|1|0|Fatturazione in Kg
ARTBLOC|2|1|0|Articolo bloccato ARTBLOC|2|1|0|Articolo bloccato
CALCCONS|2|1|0|Calcolo consegnato CALCCONS|2|1|0|Calcolo consegnato
TIPONOL|2|1|0|Tipo noleggio TIPONOL|2|1|0|Tipo noleggio
MINCIC|4|4|2|Minimo ciclaggio
NOLCIC|1|1|0|Scelta per nolo e ciclaggio, in base a dot. odierna <O> o dot.iniziale <I>
VCARTCLI|1|1|0|Scelta per la % sul val.conv su articolo <A> o cliente <C>
1 1
CODCF+CODCONT+CODART| CODCF+CODCONT+CODART|

86
lv/lv0300.cpp
View File

@ -1,14 +1,17 @@
#include <confapp.h> #include <confapp.h>
#include <msksheet.h>
#include <relation.h>
#include "lv0300a.h" #include "lv0300a.h"
class TConf_Lavanderie : public TConfig_application class TConf_Lavanderie : public TConfig_application
{ {
protected:
public: virtual void load_mask();
virtual void save_mask(bool tosave) ;
virtual bool user_create( ); virtual bool user_create( );
public:
TConf_Lavanderie() : TConfig_application( CONFIG_DITTA ){ } TConf_Lavanderie() : TConfig_application( CONFIG_DITTA ){ }
virtual ~TConf_Lavanderie( ){ } virtual ~TConf_Lavanderie( ){ }
}; };
@ -16,14 +19,87 @@ class TConf_Lavanderie : public TConfig_application
bool TConf_Lavanderie::user_create( ) bool TConf_Lavanderie::user_create( )
{ {
TConfig conf(CONFIG_DITTA ); TConfig conf(CONFIG_DITTA );
conf.set( "EdMask", "lv0300a", "lv" ); conf.set( "EdMask", "lv0300a", "lv" );
return true; return true;
} }
void TConf_Lavanderie::load_mask()
{
TMask* m=get_mask();
if (m==NULL)
return;
TConfig_application::load_mask();
FOR_EACH_MASK_SHEET((*m), i, s)
{
s->destroy();
TMask& sm=s->sheet_mask();
bool found=true;
for (int r=0; found ;r++)
{
FOR_EACH_MASK_FIELD(sm,j,f)
{
const TFieldref* fr=f->field();
if(fr!=NULL)
{
const TString& value=get_config()->get(fr->name(),NULL,r);
if (value.empty() && f->dlg()==101 )
{
found=false;
break;
}
s->row(r).add(value,s->cid2index(f->dlg()));
}
}
if (found)
s->check_row(r, 1);
}
s->force_update();
}
}
void TConf_Lavanderie::save_mask(bool tosave)
{
TConfig* cnf = get_config();
if (!tosave || cnf==NULL)
return;
TAssoc_array& v = cnf->list_variables("lv");
TConfig_application::save_mask(tosave);
FOR_EACH_ASSOC_STRING(v, h, k, str)
{
const TFixed_string name = k;
if (name.find('(') > 0)
v.remove(name);
}
TMask& m=*get_mask();
FOR_EACH_MASK_SHEET(m, i, s)
{
TMask& sm=s->sheet_mask();
FOR_EACH_SHEET_ROW(*s,j,row)
{
FOR_EACH_MASK_FIELD(sm,k,f)
{
const TFieldref* fr = f->field();
if (fr!=NULL)
{
const char* value=row->get(s->cid2index(f->dlg()));
cnf->set(fr->name(),value, NULL,true,j);
}
}
}
}
}
int lv0300(int argc, char* argv[]) int lv0300(int argc, char* argv[])
{ {
TConf_Lavanderie appc; TConf_Lavanderie appc;
appc.run(argc, argv, TR("Parametri gestione Lavanderie industriali")); appc.run(argc, argv, TR("Parametri Lavanderie industriali"));
return 0; return 0;
} }

56
lv/lv0300a.h
View File

@ -1,26 +1,42 @@
//campi maschera lv0300a #define GEN 1
#define DDT 1
#define RIT 2 #define RIT 2
#define PRE 3 #define ANT 3
#define ANT 4 #define CONG 4
#define DOT 5
#define F_CODNUM_DDT 101 #define F_CODNUM_GEN 201
#define F_DESNUM_DDT 102 #define F_DESNUM_GEN 202
#define F_TIPODOC_DDT 103 #define F_TIPODOC_GEN 203
#define F_DESTIPODOC_DDT 104 #define F_DESTIPODOC_GEN 204
#define F_BUONIRIT 205
#define F_BUONIANT 206
#define F_DOCCONG 207
#define F_DOCDOT 208
#define F_TIPORIGDOT 209
#define F_TIPORIGDTMP 210
#define F_CODNUM_RIT 105 #define S_CODNUM_RIT 101
#define F_DESNUM_RIT 106 #define S_TIPODOC_RIT 102
#define F_TIPODOC_RIT 107 #define S_DESTIPODOC_RIT 103
#define F_DESTIPODOC_RIT 108 #define S_STATO_RIT 104
#define S_DESNUM_RIT 105
#define F_CODNUM_PRE 109 #define S_CODNUM_ANT 101
#define F_DESNUM_PRE 110 #define S_TIPODOC_ANT 102
#define F_TIPODOC_PRE 111 #define S_DESTIPODOC_ANT 103
#define F_DESTIPODOC_PRE 112 #define S_STATO_ANT 104
#define S_DESNUM_ANT 105
#define S_CODNUM_CONG 101
#define S_TIPODOC_CONG 102
#define S_DESTIPODOC_CONG 103
#define S_STATO_CONG 104
#define S_DESNUM_CONG 105
#define S_CODNUM_DOT 101
#define S_TIPODOC_DOT 102
#define S_DESTIPODOC_DOT 103
#define S_STATO_DOT 104
#define S_DESNUM_DOT 105
#define F_CODNUM_ANT 113
#define F_DESNUM_ANT 114
#define F_TIPODOC_ANT 115
#define F_DESTIPODOC_ANT 116

629
lv/lv0300a.uml
View File

@ -28,234 +28,521 @@ PAGE "Parametri" 0 0 0 0
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 1 "@bDocumenti di trasporto" PROMPT 1 1 "@bDocumenti da generare"
END END
STRING F_CODNUM_DDT 4 STRING F_CODNUM_GEN 4
BEGIN BEGIN
PROMPT 2 2 "Numerazione " PROMPT 2 2 "Numerazione "
FIELD NUM(DDT) FIELD NUM_GEN
HELP "Codice numerazione" HELP "Codice numerazione"
USE %NUM USE %NUM
INPUT CODTAB F_CODNUM_DDT INPUT CODTAB F_CODNUM_GEN
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM_DDT CODTAB OUTPUT F_CODNUM_GEN CODTAB
OUTPUT F_DESNUM_DDT S0 OUTPUT F_DESNUM_GEN S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAG "UPA" FLAGS "UPA"
WARNING "Numerazione assente" WARNING "Numerazione assente"
END END
STRING F_DESNUM_DDT 50 STRING F_DESNUM_GEN 50
BEGIN BEGIN
PROMPT 24 2 "" PROMPT 24 2 ""
HELP "Descrizione numerazione" HELP "Descrizione Numerazione"
USE %NUM KEY 2 USE %NUM KEY 2
INPUT S0 F_DESNUM_DDT INPUT S0 F_DESNUM_GEN
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODNUM_DDT COPY OUTPUT F_CODNUM_GEN
END END
STRING F_TIPODOC_DDT 4 STRING F_TIPODOC_GEN 4
BEGIN BEGIN
PROMPT 2 3 "Tipo " PROMPT 2 3 "Tipo "
FIELD TIPODOC(DDT) FIELD TIPODOC_GEN
HELP "Codice tipo documento" HELP "Codice tipo documento"
USE %TIP USE %TIP
INPUT CODTAB F_TIPODOC_DDT INPUT CODTAB F_TIPODOC_GEN
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC_DDT CODTAB OUTPUT F_TIPODOC_GEN CODTAB
OUTPUT F_DESTIPODOC_DDT S0 OUTPUT F_DESTIPODOC_GEN S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAG "UP" FLAGS "UP"
END END
STRING F_DESTIPODOC_DDT 50 STRING F_DESTIPODOC_GEN 50
BEGIN BEGIN
PROMPT 24 3 "" PROMPT 24 3 ""
HELP "Descrizione tipo documento" HELP "Descrizione tipo documento"
USE %TIP KEY 2 USE %TIP KEY 2
INPUT S0 F_DESTIPODOC_DDT INPUT S0 F_DESTIPODOC_GEN
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPODOC_DDT COPY OUTPUT F_TIPODOC_GEN
END END
GROUPBOX DLG_NULL 78 4 ENDPAGE
PAGE "Buoni" 0 2 0 0
SPREADSHEET F_BUONIRIT 0 8
BEGIN BEGIN
PROMPT 1 5 "@bBuoni Ritiro" PROMPT 0 1 "Buoni di ritiro"
ITEM "Numerazione"
ITEM "Tipo documento"
ITEM "Desczrizione tipo documento"
ITEM "Stato"
ITEM "Descrizione numerazione"
END END
STRING F_CODNUM_RIT 4 SPREADSHEET F_BUONIANT 0 8
BEGIN BEGIN
PROMPT 2 6 "Numerazione " PROMPT 0 10 "Buoni di anticipo"
FIELD NUM(RIT) ITEM "Numerazione"
HELP "Codice numerazione" ITEM "Tipo documento"
USE %NUM ITEM "Desczrizione tipo documento"
INPUT CODTAB F_CODNUM_RIT ITEM "Stato"
DISPLAY "Codice" CODTAB ITEM "Descrizione numerazione"
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM_RIT CODTAB
OUTPUT F_DESNUM_RIT S0
CHECKTYPE REQUIRED
FLAG "UPA"
WARNING "Numerazione assente"
END END
STRING F_DESNUM_RIT 50 ENDPAGE
PAGE "Documenti per conguaglio e dotazione" 0 2 0 0
SPREADSHEET F_DOCCONG 0 8
BEGIN BEGIN
PROMPT 24 6 "" PROMPT 0 1 "Documenti per conguaglio"
HELP "Descrizione numerazione" ITEM "Numerazione"
USE %NUM KEY 2 ITEM "Tipo documento"
INPUT S0 F_DESNUM_RIT ITEM "Desczrizione tipo documento"
DISPLAY "Descrizione@50" S0 ITEM "Stato"
DISPLAY "Codice" CODTAB ITEM "Descrizione numerazione"
COPY OUTPUT F_CODNUM_RIT
END END
STRING F_TIPODOC_RIT 4 SPREADSHEET F_DOCDOT 0 7
BEGIN BEGIN
PROMPT 2 7 "Tipo " PROMPT 0 10 "Documenti per dotazione"
FIELD TIPODOC(RIT) ITEM "Numerazione"
HELP "Codice tipo documento" ITEM "Tipo documento"
ITEM "Desczrizione tipo documento"
ITEM "Stato"
ITEM "Descrizione numerazione"
END
STRING F_TIPORIGDOT 4
BEGIN
PROMPT 2 18 "Codice "
USE %TIP USE %TIP
INPUT CODTAB F_TIPODOC_RIT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC_RIT CODTAB
OUTPUT F_DESTIPODOC_RIT S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAG "UP" INPUT CODTAB F_TIPORIGDOT
END
STRING F_DESTIPODOC_RIT 50
BEGIN
PROMPT 24 7 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 F_DESTIPODOC_RIT
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPODOC_RIT
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 9 "@bBuoni Prelievo"
END
STRING F_CODNUM_PRE 4
BEGIN
PROMPT 2 10 "Numerazione "
FIELD NUM(PRE)
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUM_PRE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM_PRE CODTAB OUTPUT F_TIPORIGDOT CODTAB
OUTPUT F_DESNUM_PRE S0 FIELD TIPORIGDOT
CHECKTYPE REQUIRED FLAGS "UZ"
FLAG "UPA"
WARNING "Numerazione assente"
END END
STRING F_DESNUM_PRE 50 STRING F_TIPORIGDTMP 4
BEGIN BEGIN
PROMPT 24 10 "" PROMPT 2 19 "Codice "
HELP "Descrizione numerazione"
USE %NUM KEY 2
INPUT S0 F_DESNUM_PRE
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODNUM_PRE
END
STRING F_TIPODOC_PRE 4
BEGIN
PROMPT 2 11 "Tipo "
FIELD TIPODOC(PRE)
HELP "Codice tipo documento"
USE %TIP USE %TIP
INPUT CODTAB F_TIPODOC_PRE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC_PRE CODTAB
OUTPUT F_DESTIPODOC_PRE S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAG "UP" INPUT CODTAB F_TIPORIGDTMP
END
STRING F_DESTIPODOC_PRE 50
BEGIN
PROMPT 24 11 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 F_DESTIPODOC_PRE
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPODOC_PRE
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 13 "@bBuoni Anticipo"
END
STRING F_CODNUM_ANT 4
BEGIN
PROMPT 2 14 "Numerazione "
FIELD NUM(ANT)
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUM_ANT
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM_ANT CODTAB OUTPUT F_TIPORIGDTMP CODTAB
OUTPUT F_DESNUM_ANT S0 FIELD TIPORIGDTMP
CHECKTYPE REQUIRED FLAGS "UZ"
FLAG "UPA" END
WARNING "Numerazione assente"
END ENDPAGE
STRING F_DESNUM_ANT 50 ENDMASK
BEGIN
PROMPT 24 14 "" PAGE "Buoni di ritiro" -1 -1 80 5
HELP "Descrizione numerazione"
USE %NUM KEY 2 STRING S_CODNUM_RIT 4
INPUT S0 F_DESNUM_ANT BEGIN
DISPLAY "Descrizione@50" S0 PROMPT 1 1 "Numerazione "
DISPLAY "Codice" CODTAB FIELD NUM_RIT
COPY OUTPUT F_CODNUM_ANT HELP "Codice numerazione"
END USE %NUM
INPUT CODTAB S_CODNUM_RIT
STRING F_TIPODOC_ANT 4 DISPLAY "Codice" CODTAB
BEGIN DISPLAY "Descrizione@50" S0
PROMPT 2 15 "Tipo " OUTPUT S_CODNUM_RIT CODTAB
FIELD TIPODOC(ANT) OUTPUT S_DESNUM_RIT S0
HELP "Codice tipo documento" CHECKTYPE REQUIRED
USE %TIP FLAGS "UPA"
INPUT CODTAB F_TIPODOC_ANT WARNING "Numerazione assente"
DISPLAY "Codice" CODTAB END
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC_ANT CODTAB STRING S_DESNUM_RIT 50
OUTPUT F_DESTIPODOC_ANT S0 BEGIN
CHECKTYPE REQUIRED PROMPT 20 1 ""
FLAG "UP" HELP "Descrizione numerazione"
END USE %NUM KEY 2
INPUT S0 S_DESNUM_RIT
STRING F_DESTIPODOC_ANT 50 DISPLAY "Descrizione@50" S0
BEGIN DISPLAY "Codice" CODTAB
PROMPT 24 15 "" COPY OUTPUT S_CODNUM_RIT
HELP "Descrizione tipo documento" END
USE %TIP KEY 2
INPUT S0 F_DESTIPODOC_ANT STRING S_TIPODOC_RIT 4
DISPLAY "Descrizione@50" S0 BEGIN
DISPLAY "Codice" CODTAB PROMPT 1 2 "Tipo "
COPY OUTPUT F_TIPODOC_ANT FIELD TIPODOC_RIT
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB S_TIPODOC_RIT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT S_TIPODOC_RIT CODTAB
OUTPUT S_DESTIPODOC_RIT S0
CHECKTYPE REQUIRED
FLAGS "UP"
END
STRING S_DESTIPODOC_RIT 50
BEGIN
PROMPT 20 2 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 S_DESTIPODOC_RIT
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT S_TIPODOC_RIT
END
STRING S_STATO_RIT 1
BEGIN
PROMPT 1 3 "Stato "
USE %STD
CHECKTYPE REQUIRED
INPUT CODTAB S_STATO_RIT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT S_STATO_RIT CODTAB
FIELD STATO_RIT
FLAGS "U"
END
ENDPAGE
TOOLBAR "" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_DELREC 2 2
BEGIN
PROMPT 2 1 "Elimina"
MESSAGE EXIT,K_DEL
PICTURE BMP_DELREC
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 4 1 ""
END
ENDPAGE
ENDMASK
PAGE "Buoni d'anticipo" -1 -1 80 5
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 9 "@bBuoni di Anticipo"
END
STRING S_CODNUM_ANT 4
BEGIN
PROMPT 1 1 "Numerazione "
FIELD NUM_ANT
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB S_CODNUM_ANT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT S_CODNUM_ANT CODTAB
OUTPUT S_DESNUM_ANT S0
CHECKTYPE REQUIRED
FLAGS "UPA"
WARNING "Numerazione assente"
END
STRING S_DESNUM_ANT 50
BEGIN
PROMPT 20 1 ""
HELP "Descrizione numerazione"
USE %NUM KEY 2
INPUT S0 S_DESNUM_ANT
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT S_CODNUM_ANT
END
STRING S_TIPODOC_ANT 4
BEGIN
PROMPT 1 2 "Tipo "
FIELD TIPODOC_ANT
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB S_TIPODOC_ANT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT S_TIPODOC_ANT CODTAB
OUTPUT S_DESTIPODOC_ANT S0
CHECKTYPE REQUIRED
FLAGS "UP"
END
STRING S_DESTIPODOC_ANT 50
BEGIN
PROMPT 20 2 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 S_DESTIPODOC_ANT
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT S_TIPODOC_ANT
END
STRING S_STATO_ANT 1
BEGIN
PROMPT 1 3 "Stato "
USE %STD
CHECKTYPE REQUIRED
INPUT CODTAB S_STATO_ANT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT S_STATO_ANT CODTAB
FIELD STATO_ANT
FLAGS "U"
END
ENDPAGE
TOOLBAR "" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_DELREC 2 2
BEGIN
PROMPT 2 1 "Elimina"
MESSAGE EXIT,K_DEL
PICTURE BMP_DELREC
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 4 1 ""
END
ENDPAGE
ENDMASK
PAGE "Documenti conguaglio" -1 -1 80 5
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 9 "@bDocumenti conguaglio"
END
STRING S_CODNUM_CONG 4
BEGIN
PROMPT 1 1 "Numerazione "
FIELD NUM_CONG
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB S_CODNUM_CONG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT S_CODNUM_CONG CODTAB
OUTPUT S_DESNUM_CONG S0
CHECKTYPE REQUIRED
FLAGS "UPA"
WARNING "Numerazione assente"
END
STRING S_DESNUM_CONG 50
BEGIN
PROMPT 20 1 ""
HELP "Descrizione numerazione"
USE %NUM KEY 2
INPUT S0 S_DESNUM_CONG
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT S_CODNUM_CONG
END
STRING S_TIPODOC_CONG 4
BEGIN
PROMPT 1 2 "Tipo "
FIELD TIPODOC_CONG
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB S_TIPODOC_CONG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT S_TIPODOC_CONG CODTAB
OUTPUT S_DESTIPODOC_CONG S0
CHECKTYPE REQUIRED
FLAGS "UP"
END
STRING S_DESTIPODOC_CONG 50
BEGIN
PROMPT 20 2 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 S_DESTIPODOC_CONG
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT S_TIPODOC_CONG
END
STRING S_STATO_CONG 1
BEGIN
PROMPT 1 3 "Stato "
USE %STD
CHECKTYPE REQUIRED
INPUT CODTAB S_STATO_CONG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT S_STATO_CONG CODTAB
FIELD STATO_CONG
FLAGS "U"
END
ENDPAGE
TOOLBAR "" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_DELREC 2 2
BEGIN
PROMPT 2 1 "Elimina"
MESSAGE EXIT,K_DEL
PICTURE BMP_DELREC
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 4 1 ""
END
ENDPAGE
ENDMASK
PAGE "Documenti dotazione" -1 -1 80 5
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 9 "@bDocumenti dotazione"
END
STRING S_CODNUM_DOT 4
BEGIN
PROMPT 1 1 "Numerazione "
FIELD NUM_DOT
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB S_CODNUM_DOT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT S_CODNUM_DOT CODTAB
OUTPUT S_DESNUM_DOT S0
CHECKTYPE REQUIRED
FLAGS "UPA"
WARNING "Numerazione assente"
END
STRING S_DESNUM_DOT 50
BEGIN
PROMPT 20 1 ""
HELP "Descrizione numerazione"
USE %NUM KEY 2
INPUT S0 S_DESNUM_DOT
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT S_CODNUM_DOT
END
STRING S_TIPODOC_DOT 4
BEGIN
PROMPT 1 2 "Tipo "
FIELD TIPODOC_DOT
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB S_TIPODOC_DOT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT S_TIPODOC_DOT CODTAB
OUTPUT S_DESTIPODOC_DOT S0
CHECKTYPE REQUIRED
FLAGS "UP"
END
STRING S_DESTIPODOC_DOT 50
BEGIN
PROMPT 20 2 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 S_DESTIPODOC_DOT
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT S_TIPODOC_DOT
END
STRING S_STATO_DOT 1
BEGIN
PROMPT 1 3 "Stato "
USE %STD
CHECKTYPE REQUIRED
INPUT CODTAB S_STATO_DOT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT S_STATO_DOT CODTAB
FIELD STATO_DOT
FLAGS "U"
END
ENDPAGE
TOOLBAR "" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_DELREC 2 2
BEGIN
PROMPT 2 1 "Elimina"
MESSAGE EXIT,K_DEL
PICTURE BMP_DELREC
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 4 1 ""
END END
ENDPAGE ENDPAGE

19
lv/lv0400.h
View File

@ -56,8 +56,6 @@
#define DLG_PLANNING 254 #define DLG_PLANNING 254
#define F_INDSPED 255 #define F_INDSPED 255
#define F_INDIR 256 #define F_INDIR 256
#define F_DOCCP 257
//Sheet
#define S_CODART 101 #define S_CODART 101
#define S_DESCR 102 #define S_DESCR 102
#define S_UM 103 #define S_UM 103
@ -76,9 +74,14 @@
#define S_ARTBLOC 116 #define S_ARTBLOC 116
#define S_CALCCONS 117 #define S_CALCCONS 117
#define S_TIPOFORF 118 #define S_TIPOFORF 118
#define S_FORFPERCL 119 #define S_NOLCIC 119
#define S_CAUSMAG 120 #define S_VCARTCLI 120
#define S_TIPONOL 121 #define S_MINCIC 121
#define S_RITAUDTTMP 122 #define S_FORFPERCL 122
#define S_FATTKG 123 #define S_CAUSMAG 123
#define S_ARROT 124 #define S_TIPONOL 124
#define S_RITAUDTTMP 125
#define S_FATTKG 126
#define S_ARROT 127

191
lv/lv0400a.uml
View File

@ -124,6 +124,9 @@ BEGIN
ITEM "Articolo bloccato" ITEM "Articolo bloccato"
ITEM "Calcolo consegnato" ITEM "Calcolo consegnato"
ITEM "Tipo Forfait" ITEM "Tipo Forfait"
ITEM "Tipo nolo/ciclaggio"
ITEM "Tipo % val.conv."
ITEM "Minimo cilaggio"
ITEM "%Forfait Cliente" ITEM "%Forfait Cliente"
ITEM "Causale default" ITEM "Causale default"
ITEM "Tipo Noleggio" ITEM "Tipo Noleggio"
@ -249,12 +252,12 @@ ENDPAGE
PAGE "Opzioni" 0 2 0 0 PAGE "Opzioni" 0 2 0 0
GROUPBOX DLG_NULL 30 6 GROUPBOX DLG_NULL 78 6
BEGIN BEGIN
PROMPT 1 1 "@bPeriodicità di fatturazione" PROMPT 1 1 "@bPeriodicità di fatturazione"
END END
RADIOBUTTON F_PERFAT 1 30 RADIOBUTTON F_PERFAT 1 23
BEGIN BEGIN
PROMPT 1 1 "@bPeriodicità di fatturazione" PROMPT 1 1 "@bPeriodicità di fatturazione"
ITEM "0|Giornaliero" ITEM "0|Giornaliero"
@ -264,36 +267,25 @@ BEGIN
FIELD PERFAT FIELD PERFAT
END END
GROUPBOX DLG_NULL 50 6
BEGIN
PROMPT 31 1 ""
END
DATE F_INPERFAT DATE F_INPERFAT
BEGIN BEGIN
PROMPT 32 2 "Inizio primo periodo di fatturazione" PROMPT 28 2 "Inizio primo periodo di fatturazione"
FIELD INPERFAT FIELD INPERFAT
END END
DATE F_DTLASTFAT DATE F_DTLASTFAT
BEGIN BEGIN
PROMPT 32 3 "Data ultima fattura " PROMPT 28 3 "Data ultima fattura "
FIELD DTLASTFAT FIELD DTLASTFAT
END END
CURRENCY F_IMPMINFAT 15 CURRENCY F_IMPMINFAT 15
BEGIN BEGIN
PROMPT 32 4 "Importo minimo fatturabile " PROMPT 28 4 "Importo minimo fatturabile "
FIELD IMPMINFAT FIELD IMPMINFAT
END END
BOOLEAN F_FATTSOSP GROUPBOX DLG_NULL 38 10
BEGIN
PROMPT 32 5 "Escluso da fatturazione"
FIELD FATTSOSP
END
GROUPBOX DLG_NULL 38 9
BEGIN BEGIN
PROMPT 1 7 "@bTipo canone" PROMPT 1 7 "@bTipo canone"
END END
@ -326,42 +318,43 @@ BEGIN
FIELD TIPOIMB FIELD TIPOIMB
END END
RADIOBUTTON F_TIPOSTPRZ 1 40 RADIOBUTTON F_CONTSPOR 1 40
BEGIN BEGIN
PROMPT 40 11 "@bTipo di stampa prezzo" PROMPT 40 11 "@bConta dello sporco"
ITEM "0|Prezzo in DDT/Bolla" ITEM "0|Nessuno"
ITEM "1|Richiesta stampa in sede bollettaz." ITEM "1|Sporco"
ITEM "2|Prezzo e totale DOC. in DDT" ITEM "2|Solo pulito"
FIELD TIPOSTPRZ ITEM "3|Touch-Screen"
FIELD CONTSPOR
END END
NUMBER F_PERCNOCONT 6 2 NUMBER F_PERCNOCONT 6 2
BEGIN BEGIN
PROMPT 1 16 "Percentuale aumento per mancato conteggio " PROMPT 1 17 "Percentuale aumento per mancato conteggio "
FIELD PERCNOCONT FIELD PERCNOCONT
END END
NUMBER F_PERCTOLPES 6 2 NUMBER F_PERCTOLPES 6 2
BEGIN BEGIN
PROMPT 1 17 "Percentuale tolleranza peso teorico/effettivo" PROMPT 1 18 "Percentuale tolleranza peso teorico/effettivo"
FIELD PERCTOLPES FIELD PERCTOLPES
END END
NUMBER F_NUMUT 5 NUMBER F_NUMUT 5
BEGIN BEGIN
PROMPT 60 16 "Num. utente " PROMPT 60 17 "Num. utente "
FIELD NUMUT FIELD NUMUT
END END
NUMBER F_NUMETI 5 NUMBER F_NUMETI 5
BEGIN BEGIN
PROMPT 60 17 "Num. etichette" PROMPT 60 18 "Num. etichette"
FIELD NUMETI FIELD NUMETI
END END
STRING F_CAUSMAG 4 STRING F_CAUSMAG 4
BEGIN BEGIN
PROMPT 1 18 "Causale di default" PROMPT 1 19 "Causale di default"
USE CAU USE CAU
INPUT CODTAB F_CAUSMAG INPUT CODTAB F_CAUSMAG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -374,7 +367,7 @@ END
STRING F_CAUSMAGDESC 50 STRING F_CAUSMAGDESC 50
BEGIN BEGIN
PROMPT 27 18 "" PROMPT 27 19 ""
USE CAU KEY 2 USE CAU KEY 2
INPUT S0 F_CAUSMAGDESC INPUT S0 F_CAUSMAGDESC
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -383,35 +376,19 @@ BEGIN
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
LISTBOX F_DOCCP 23
BEGIN
PROMPT 1 19 "Documenti di consegna/ritiro "
ITEM "0|"
ITEM "1|Documento di trasporto"
ITEM "2|Buono di Ritiro"
ITEM "3|Buono di Prelievo"
ITEM "4|Buono di Anticipo"
FIELD DOCCP
END
RADIOBUTTON F_CONTSPOR 1 80
BEGIN
PROMPT 1 20 "@bConta dello sporco"
ITEM "0|Nessuno"
ITEM "1|Sporco"
ITEM "2|Solo pulito"
ITEM "3|Touch-Screen"
FIELD CONTSPOR
FLAG "Z"
END
ENDPAGE ENDPAGE
PAGE "Opzioni" 0 2 0 0 PAGE "Opzioni" 0 2 0 0
GROUPBOX DLG_NULL 58 16 GROUPBOX DLG_NULL 58 18
BEGIN BEGIN
PROMPT 9 2 "" PROMPT 9 1 ""
END
BOOLEAN F_FATTSOSP
BEGIN
PROMPT 10 2 "Escluso da fatturazione"
FIELD FATTSOSP
END END
BOOLEAN F_ATTFATNODT BOOLEAN F_ATTFATNODT
@ -498,6 +475,12 @@ BEGIN
FIELD RITAUDTTMP FIELD RITAUDTTMP
END END
BOOLEAN F_TIPOSTPRZ
BEGIN
PROMPT 10 17 "Stampa prezzo in bolla"
FIELD TIPOSTPRZ
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
@ -536,46 +519,99 @@ BEGIN
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
LISTBOX S_TIPOFORF 1 25
BEGIN
PROMPT 1 3 "Tipo Forfait "
ITEM "0|Nessuno"
MESSAGE HIDE,1@|DISABLE, S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|ENABLE,2@
ITEM "1|A valore fisso"
MESSAGE HIDE,1@|ENABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|DISABLE,2@
ITEM "2|Nolo"
MESSAGE SHOW,S_NOLCIC|HIDE,S_VCARTCLI|DISABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|ENABLE,2@
ITEM "3|Ciclaggio"
MESSAGE SHOW,S_NOLCIC|HIDE,S_VCARTCLI|DISABLE,S_IMPFISART|DISABLE,3@|ENABLE,S_MINCIC|ENABLE,2@
ITEM "4|% sul val. convenz."
MESSAGE HIDE,S_NOLCIC|SHOW,S_VCARTCLI|DISABLE,S_IMPFISART|ENABLE,3@|DISABLE,S_MINCIC|DISABLE,2@
ITEM "5|Fisso su dot. iniziale"
MESSAGE HIDE,1@|ENABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|DISABLE,2@
FIELD TIPOFORF
END
LISTBOX S_NOLCIC 1 20
BEGIN
PROMPT 46 3 "In base a "
ITEM "I|Dot. iniziale"
ITEM "O|Dot. odierna"
FLAGS "H"
GROUP 1
END
LISTBOX S_VCARTCLI 1 20
BEGIN
PROMPT 46 3 "Per "
ITEM "C|Cliente"
ITEM "A|Articolo"
FLAGS "H"
GROUP 1
END
CURRENCY S_PREZZOST 15 CURRENCY S_PREZZOST 15
BEGIN BEGIN
PROMPT 1 3 "Prezzo in vigore " PROMPT 1 4 "Prezzo in vigore "
FIELD PREZZO FIELD PREZZO
GROUP 2
END END
CURRENCY S_PREZZORN 15 CURRENCY S_PREZZORN 15
BEGIN BEGIN
PROMPT 43 3 "Prezzo di rinnovo " PROMPT 43 4 "Prezzo di rinnovo "
FIELD PREZRIN FIELD PREZRIN
GROUP 2
END END
CURRENCY S_IMPFISART 15 CURRENCY S_IMPFISART 15
BEGIN BEGIN
PROMPT 1 4 "Importo fisso " PROMPT 1 5 "Importo fisso "
FIELD IMPFISART FIELD IMPFISART
END END
NUMBER S_SCONTO 6 2 NUMBER S_SCONTO 6 2
BEGIN BEGIN
PROMPT 43 4 "Sconto % " PROMPT 43 5 "Sconto % "
FIELD SCONTPERC FIELD SCONTPERC
END END
NUMBER S_CONG 9 NUMBER S_CONG 9
BEGIN BEGIN
PROMPT 1 5 "Conguaglio " PROMPT 1 6 "Conguaglio "
FIELD QTACONG FIELD QTACONG
END END
CURRENCY S_VALCONV 15 CURRENCY S_VALCONV 15
BEGIN BEGIN
PROMPT 43 5 "Val. convenzionale" PROMPT 43 6 "Val. convenzionale"
FLAGS "U" FLAGS "U"
FIELD VALCONV FIELD VALCONV
GROUP 3
END END
NUMBER S_FORFPERCL 6 2
BEGIN
PROMPT 1 7 "% Forfait cliente "
FIELD FORFPERCL
GROUP 3
END
NUMBER S_MINCIC 4 2
BEGIN
PROMPT 43 7 "Minimo cilcaggio "
FIELD MINCIC
END
STRING S_UM 2 STRING S_UM 2
BEGIN BEGIN
PROMPT 1 6 "Unità di misura " PROMPT 1 8 "Unità di misura "
USE LF_UMART KEY 2 USE LF_UMART KEY 2
JOIN UMS INTO CODTAB=UM JOIN UMS INTO CODTAB=UM
INPUT CODART S_CODART SELECT INPUT CODART S_CODART SELECT
@ -589,7 +625,7 @@ END
STRING S_CAUSMAG 4 STRING S_CAUSMAG 4
BEGIN BEGIN
PROMPT 43 6 "Causale di default" PROMPT 43 8 "Causale di default"
USE CAU USE CAU
INPUT CODTAB S_CAUSMAG INPUT CODTAB S_CAUSMAG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -601,63 +637,42 @@ END
CURRENCY S_PREZDAN 15 CURRENCY S_PREZDAN 15
BEGIN BEGIN
PROMPT 1 7 "Prezzo danneggiati " PROMPT 1 9 "Prezzo danneggiati "
FLAGS "U" FLAGS "U"
FIELD PREZDAN FIELD PREZDAN
END END
CURRENCY S_PRZDTTMP 15 CURRENCY S_PRZDTTMP 15
BEGIN BEGIN
PROMPT 43 7 "Prezzo dot. temp. " PROMPT 43 9 "Prezzo dot. temp. "
FLAGS "U" FLAGS "U"
FIELD PRZDTTMP FIELD PRZDTTMP
END END
NUMBER S_DOTIN 9 NUMBER S_DOTIN 9
BEGIN BEGIN
PROMPT 1 8 "Dot. iniziale " PROMPT 1 10 "Dot. iniziale "
FIELD DOTIN FIELD DOTIN
END END
NUMBER S_DOTTMP 9 NUMBER S_DOTTMP 9
BEGIN BEGIN
PROMPT 43 8 "Dot. temporanea " PROMPT 43 10 "Dot. temporanea "
FIELD DOTTMP FIELD DOTTMP
END END
DATE S_INDTTMP DATE S_INDTTMP
BEGIN BEGIN
PROMPT 1 9 "Inizio dot. temporanea " PROMPT 1 11 "Inizio dot. temporanea "
FIELD INDTTMP FIELD INDTTMP
END END
DATE S_FIDTTMP DATE S_FIDTTMP
BEGIN BEGIN
PROMPT 43 9 "Fine dot. temp " PROMPT 43 11 "Fine dot. temp "
FIELD FIDTTMP FIELD FIDTTMP
END END
NUMBER S_FORFPERCL 6 2
BEGIN
PROMPT 1 10 "% Forfait cliente "
FIELD FORFPERCL
END
LISTBOX S_TIPOFORF 1 34
BEGIN
PROMPT 1 11 "Tipo Forfait "
ITEM "0|Nessuno"
ITEM "1|A valore fisso"
ITEM "2|Nolo in base a dot. iniziale"
ITEM "3|Nolo in base a dot. odierna"
ITEM "4|Ciclaggio in base a dot. odierna"
ITEM "5|Ciclaggio in base a dot. iniziale"
ITEM "6|% sul val. convenz. per articolo"
ITEM "7|% sul val. convenz. per cliente"
ITEM "8|Fisso in base alla dot. iniziale"
FIELD TIPOFORF
END
LISTBOX S_ARTBLOC 1 34 LISTBOX S_ARTBLOC 1 34
BEGIN BEGIN
PROMPT 1 12 "Articolo bloccato " PROMPT 1 12 "Articolo bloccato "

55
lv/lvconf.h
View File

@ -1,25 +1,42 @@
#define DDT 1 #define GEN 1
#define RIT 2 #define RIT 2
#define PRE 3 #define ANT 3
#define ANT 4 #define CONG 4
#define DOT 5
#define F_CODNUM_DDT 101 #define F_CODNUM_GEN 101
#define F_DESNUM_DDT 102 #define F_DESNUM_GEN 102
#define F_TIPODOC_DDT 103 #define F_TIPODOC_GEN 103
#define F_DESTIPODOC_DDT 104 #define F_DESTIPODOC_GEN 104
#define F_BUONIRIT 105
#define F_BUONIANT 106
#define F_DOCCONG 107
#define F_DOCDOT 108
#define F_TIPORIGDOT 109
#define F_TIPORIGDT 110
#define F_CODNUM_RIT 105 #define S_CODNUM_RIT 101
#define F_DESNUM_RIT 106 #define S_TIPODOC_RIT 102
#define F_TIPODOC_RIT 107 #define S_DESTIPODOC_RIT 103
#define F_DESTIPODOC_RIT 108 #define S_STATO_RIT 104
#define S_DESNUM_RIT 105
#define F_CODNUM_PRE 109 #define S_CODNUM_ANT 101
#define F_DESNUM_PRE 110 #define S_TIPODOC_ANT 102
#define F_TIPODOC_PRE 111 #define S_DESTIPODOC_ANT 103
#define F_DESTIPODOC_PRE 112 #define S_STATO_RIT 104
#define S_DESNUM_ANT 105
#define S_CODNUM_CONG 101
#define S_TIPODOC_CONG 102
#define S_DESTIPODOC_CONG 103
#define S_STATO_CONG 104
#define S_DESNUM_CONG 105
#define S_CODNUM_DOT 101
#define S_TIPODOC_DOT 102
#define S_DESTIPODOC_DOT 103
#define S_STATO_DOT 104
#define S_DESNUM_DOT 105
#define F_CODNUM_ANT 113
#define F_DESNUM_ANT 114
#define F_TIPODOC_ANT 115
#define F_DESTIPODOC_ANT 116

1
lv/lvrcondv.h
View File

@ -26,5 +26,6 @@
#define LVRCONDV_ARTBLOC "ARTBLOC" #define LVRCONDV_ARTBLOC "ARTBLOC"
#define LVRCONDV_CALCCONS "CALCCONS" #define LVRCONDV_CALCCONS "CALCCONS"
#define LVRCONDV_TIPONOL "TIPONOL" #define LVRCONDV_TIPONOL "TIPONOL"
#define LVRCONDV_MINCIC "MINCIC"
#endif #endif