Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@17172 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
rajitgill 2008-09-05 14:47:54 +00:00
parent 4c1da0b1b3
commit adbc4a2dce
9 changed files with 446 additions and 88 deletions

View File

@ -1,3 +1,3 @@
168
0
$lvcondv|||169|0|Tabella testate di contratto|||
$lvcondv|||166|0|Tabella testate di contratto|||

View File

@ -12,7 +12,7 @@ STRCONS|8|1|0|Stampa riepilogo consegne
TIPOLIS|2|1|0|Tipo listino
STPRZBOL|8|1|0|Stampa dei prezzi in bolla
CONTSPOR|2|1|0|Conta dello sporco
TIPODOC|1|4|0|Tipo documento
DOCCP|2|1|0|Documenti alla consegna/ritiro
PERFAT|2|1|0|Periodicità di fatturazione
INPERFAT|5|8|0|Inizio primo periodo di fatturazione
FATTPARZ|8|1|0|Fatturazione parziale

View File

@ -7,6 +7,7 @@ int main(int argc, char** argv)
const int r = (argc > 1) ? argv[1][1] - '0' : 0;
switch (r)
{
case 2: lv0300(argc, argv); break; // parametri lavanderie lv0300
case 3: lv0400(argc, argv); break; // gestione contratti lv0400
case 4: lv0500(argc, argv); break; // passaggi planning per contratto lv0500
case 5: lv0600(argc, argv); break; // periodi di sospensione lv0600

View File

@ -2,7 +2,7 @@
#define __LV0_H
int lv0100(int argc, char* argv[]);
//int lv0200(int argc, char* argv[]);
int lv0300(int argc, char* argv[]);
int lv0400(int argc, char* argv[]);
int lv0500(int argc, char* argv[]);
int lv0600(int argc, char* argv[]);

29
lv/lv0300.cpp Executable file
View File

@ -0,0 +1,29 @@
#include <confapp.h>
#include "lvconf.h"
class TConf_Lavanderie : public TConfig_application
{
public:
virtual bool user_create( );
TConf_Lavanderie() : TConfig_application( CONFIG_DITTA ){ }
virtual ~TConf_Lavanderie( ){ }
};
bool TConf_Lavanderie::user_create( )
{
TConfig conf(CONFIG_DITTA );
conf.set( "EdMask", "lv0300a", "lv" );
return true;
}
int lv0300(int argc, char* argv[])
{
TConf_Lavanderie appc;
appc.run(argc, argv, TR("Parametri gestione Lavanderie industriali"));
return 0;
}

263
lv/lv0300a.uml Executable file
View File

@ -0,0 +1,263 @@
#include "lvconf.h"
TOOLBAR "" 0 0 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -14 -1 ""
END
BUTTON DLG_INFO 10 2
BEGIN
PROMPT -24 -11 ""
END
BUTTON DLG_HELP 10 2
BEGIN
PROMPT -34 -11 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -44 -1 ""
END
ENDPAGE
PAGE "Parametri" 0 0 0 0
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 1 "@bDocumenti di trasporto"
END
STRING F_CODNUM_DDT 4
BEGIN
PROMPT 2 2 "Numerazione "
FIELD NUM(DDT)
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUM_DDT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM_DDT CODTAB
OUTPUT F_DESNUM_DDT S0
CHECKTYPE REQUIRED
FLAG "UPA"
WARNING "Numerazione assente"
END
STRING F_DESNUM_DDT 50
BEGIN
PROMPT 24 2 ""
HELP "Descrizione numerazione"
USE %NUM KEY 2
INPUT S0 F_DESNUM_DDT
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODNUM_DDT
END
STRING F_TIPODOC_DDT 4
BEGIN
PROMPT 2 3 "Tipo "
FIELD TIPODOC(DDT)
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOC_DDT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC_DDT CODTAB
OUTPUT F_DESTIPODOC_DDT S0
CHECKTYPE REQUIRED
FLAG "UP"
END
STRING F_DESTIPODOC_DDT 50
BEGIN
PROMPT 24 3 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 F_DESTIPODOC_DDT
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPODOC_DDT
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 5 "@bBuoni Ritiro"
END
STRING F_CODNUM_RIT 4
BEGIN
PROMPT 2 6 "Numerazione "
FIELD NUM(RIT)
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUM_RIT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM_RIT CODTAB
OUTPUT F_DESNUM_RIT S0
CHECKTYPE REQUIRED
FLAG "UPA"
WARNING "Numerazione assente"
END
STRING F_DESNUM_RIT 50
BEGIN
PROMPT 24 6 ""
HELP "Descrizione numerazione"
USE %NUM KEY 2
INPUT S0 F_DESNUM_RIT
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODNUM_RIT
END
STRING F_TIPODOC_RIT 4
BEGIN
PROMPT 2 7 "Tipo "
FIELD TIPODOC(RIT)
HELP "Codice tipo documento"
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
FLAG "UP"
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 "Descrizione@50" S0
OUTPUT F_CODNUM_PRE CODTAB
OUTPUT F_DESNUM_PRE S0
CHECKTYPE REQUIRED
FLAG "UPA"
WARNING "Numerazione assente"
END
STRING F_DESNUM_PRE 50
BEGIN
PROMPT 24 10 ""
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
INPUT CODTAB F_TIPODOC_PRE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC_PRE CODTAB
OUTPUT F_DESTIPODOC_PRE S0
CHECKTYPE REQUIRED
FLAG "UP"
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 "Descrizione@50" S0
OUTPUT F_CODNUM_ANT CODTAB
OUTPUT F_DESNUM_ANT S0
CHECKTYPE REQUIRED
FLAG "UPA"
WARNING "Numerazione assente"
END
STRING F_DESNUM_ANT 50
BEGIN
PROMPT 24 14 ""
HELP "Descrizione numerazione"
USE %NUM KEY 2
INPUT S0 F_DESNUM_ANT
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODNUM_ANT
END
STRING F_TIPODOC_ANT 4
BEGIN
PROMPT 2 15 "Tipo "
FIELD TIPODOC(ANT)
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOC_ANT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC_ANT CODTAB
OUTPUT F_DESTIPODOC_ANT S0
CHECKTYPE REQUIRED
FLAG "UP"
END
STRING F_DESTIPODOC_ANT 50
BEGIN
PROMPT 24 15 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 F_DESTIPODOC_ANT
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPODOC_ANT
END
ENDPAGE
ENDMASK

View File

@ -52,6 +52,9 @@
#define F_CONSMESE 252
#define F_CONSANNO 253
#define DLG_PLANNING 254
#define F_INDSPED 255
#define F_INDIR 256
#define F_DOCCP 257
#define S_CODART 101
#define S_DESCR 102
#define S_UM 103

View File

@ -8,12 +8,12 @@ PAGE "Contratto" 0 2 0 0
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 1 "@bContratti"
PROMPT 1 0 "@bContratti"
END
NUMBER F_CODCF 6
BEGIN
PROMPT 2 2 "Cliente "
PROMPT 2 1 "Cliente "
FIELD CODCF
FLAGS "U"
KEY 1
@ -27,9 +27,9 @@ BEGIN
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50 30
STRING F_RAGSOC 50
BEGIN
PROMPT 2 3 "Ragione soc. "
PROMPT 25 1 ""
KEY 2
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
@ -42,7 +42,7 @@ END
NUMBER F_CODCONT 6
BEGIN
PROMPT 2 4 "Contratto N. "
PROMPT 2 2 "Contratto N. "
USE LF_LVCONDV
JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCF
INPUT CODCF F_CODCF
@ -63,27 +63,49 @@ END
DATE F_DATAIN
BEGIN
PROMPT 51 2 "Inizio "
PROMPT 25 2 "Inizio "
FIELD DATAIN
CHECKTYPE REQUIRED
END
DATE F_DATASC
BEGIN
PROMPT 51 3 "Scadenza "
PROMPT 45 2 "Scadenza "
FIELD DATASC
CHECKTYPE REQUIRED
END
BUTTON DLG_PLANNING 10
NUMBER F_INDSPED 3
BEGIN
PROMPT 51 4 "~Planning"
PROMPT 2 3 "Indirizzo sped. "
USE LF_INDSP KEY 1
INPUT TIPOCF "C"
INPUT CODCF F_CODCF SELECT
INPUT CODIND F_INDSPED
DISPLAY "Codice" CODCF
DISPLAY "Cod.Ind.Sped." CODIND
DISPLAY "Indirizzo@30" INDIR
DISPLAY "C.A.P." CAP
OUTPUT F_INDSPED CODIND
OUTPUT F_INDIR INDIR
CHECKTYPE NORMAL
END
STRING F_INDIR 50 39
BEGIN
PROMPT 25 3 ""
FLAGS "D"
END
BUTTON DLG_PLANNING 10 2
BEGIN
PROMPT 66 2 "~Planning"
MESSAGE RUN,lv0 -4 #F_CODCF #F_CODCONT
END
SPREADSHEET F_RIGHE 0 -7
SPREADSHEET F_RIGHE 0 9
BEGIN
PROMPT 0 6 "Righe contratto"
PROMPT 0 5 "Righe contratto"
ITEM "Articolo@20"
ITEM "Descrizione@50"
ITEM "UM"
@ -110,15 +132,20 @@ BEGIN
ITEM "Arrotondamento"
END
GROUPBOX DLG_NULL 78 8
BEGIN
PROMPT 1 14 "@bDettaglio"
END
NUMBER F_DOTOD 9
BEGIN
PROMPT 1 -6 "Dotazione odierna "
FLAGS "D"
PROMPT 2 15 "Dotazione odierna "
FLAGS "D"
END
STRING F_GRMERC 3
BEGIN
PROMPT 30 -6 "Tipologia "
PROMPT 32 15 "Tipologia "
FLAG "UD"
USE GMC KEY 1 SELECT CODTAB[4,5]==""
INPUT CODTAB F_GRMERC
@ -130,94 +157,93 @@ END
STRING F_COLORE 20 15
BEGIN
PROMPT 52 -6 "Colore "
PROMPT 54 15 "Colore "
FLAGS "D"
END
NUMBER F_PPCONF 9
BEGIN
PROMPT 1 -5 "Pz. per Pacco "
PROMPT 2 16 "Pz. per Pacco "
FLAGS "D"
END
NUMBER F_PPCOLLO 9
BEGIN
PROMPT 30 -5 "Per Sacco "
PROMPT 32 16 "Per Sacco "
FLAGS "D"
END
NUMBER F_PPPALLET 9
BEGIN
PROMPT 52 -5 "Per Carrello "
FLAGS "D"
END
NUMBER F_CONSMESE 9
BEGIN
PROMPT 1 -4 "Qtà. consegnata nel mese "
FLAGS "D"
END
NUMBER F_CONSANNO 9
BEGIN
PROMPT 38 -4 "Qtà. consegnata nell' anno "
FLAGS "D"
END
STRING F_LAVATRICE 3
BEGIN
PROMPT 1 -3 "Lavatrice "
FLAGS "D"
END
STRING F_ARTLAVCONT 4
BEGIN
PROMPT 30 -3 "Art.Lavacont "
PROMPT 54 16 "Per Carrello "
FLAGS "D"
END
STRING F_MANGDEST 3
BEGIN
PROMPT 50 -3 "Mangano Destinazione "
PROMPT 2 17 "Mangano Destinazione "
FLAGS "D"
END
STRING F_ARTLAVCONT 4
BEGIN
PROMPT 32 17 "Art.Lava.cont. "
FLAGS "D"
END
STRING F_LAVATRICE 4
BEGIN
PROMPT 54 17 "Lavatrice "
FLAGS "D"
END
STRING F_CODLAV1 3
BEGIN
PROMPT 1 -2 "Cod. Lavaggio 1 "
PROMPT 2 18 "Cod. Lavaggio 1 "
FLAGS "D"
END
STRING F_CODLAV2 3
BEGIN
PROMPT 30 -2 "Cod. Lavaggio 2 "
PROMPT 32 18 "Cod. Lavaggio 2 "
FLAGS "D"
END
STRING F_LIVELLO 1
STRING F_TIPOPARTE 1
BEGIN
PROMPT 60 -2 "Livello "
PROMPT 65 18 "Tipo Parte "
FLAGS "D"
END
STRING F_LINDEST1 3
BEGIN
PROMPT 1 -1 "Linea destinazione 1"
PROMPT 2 19 "Linea destinazione 1 "
FLAGS "D"
END
STRING F_LINDEST2 3
BEGIN
PROMPT 30 -1 "Linea destinazione 2 "
PROMPT 32 19 "Linea destinazione 2 "
FLAGS "D"
END
STRING F_TIPOPARTE 1
STRING F_LIVELLO 1
BEGIN
PROMPT 60 -1 "Tipo Parte "
PROMPT 65 19 "Livello "
FLAGS "D"
END
NUMBER F_CONSMESE 9
BEGIN
PROMPT 2 20 "Qtà. consegnata nel mese"
FLAGS "D"
END
NUMBER F_CONSANNO 9
BEGIN
PROMPT 41 20 "Qtà. consegnata nell' anno "
FLAGS "D"
END
ENDPAGE
@ -286,7 +312,7 @@ END
RADIOBUTTON F_TIPOLIS 1 25
BEGIN
PROMPT 40 7 "@bTipo Listino:"
PROMPT 40 7 "@bTipo Listino"
ITEM "0|Prezzo nel contratto"
ITEM "1|Listino in anag.Articoli"
FIELD TIPOLIS
@ -294,7 +320,7 @@ END
RADIOBUTTON F_TIPOIMB 1 14
BEGIN
PROMPT 66 7 "@bTipo imballo:"
PROMPT 66 7 "@bTipo imballo"
ITEM "0|Sacco"
ITEM "1|Carrello"
FIELD TIPOIMB
@ -335,7 +361,7 @@ END
STRING F_CAUSMAG 4
BEGIN
PROMPT 1 18 "Causale di default:"
PROMPT 1 18 "Causale di default"
USE CAU
INPUT CODTAB F_CAUSMAG
DISPLAY "Codice" CODTAB
@ -348,7 +374,7 @@ END
STRING F_CAUSMAGDESC 50
BEGIN
PROMPT 1 19 "Descrizione "
PROMPT 27 18 ""
USE CAU KEY 2
INPUT S0 F_CAUSMAGDESC
DISPLAY "Descrizione@50" S0
@ -357,6 +383,17 @@ BEGIN
CHECKTYPE NORMAL
END
LISTBOX F_DOCCP 23
BEGIN
PROMPT 1 19 "Documenti alla consegna/Ritiro "
ITEM "0|"
ITEM "1|Documenti di trasporto"
ITEM "2|Buoni di Ritiro"
ITEM "3|Buoni di Prelievo"
ITEM "4|Buoni di Anticipo"
FIELD DOCCP
END
RADIOBUTTON F_CONTSPOR 1 80
BEGIN
PROMPT 1 20 "@bConta dello sporco"
@ -374,91 +411,91 @@ PAGE "Opzioni" 0 2 0 0
GROUPBOX DLG_NULL 58 16
BEGIN
PROMPT 15 2 ""
PROMPT 9 2 ""
END
BOOLEAN F_ATTFATNODT
BEGIN
PROMPT 16 3 "Attiva fatturazione indipendentemente dalla data"
FIELD ATTFATNODT
PROMPT 10 3 "Attiva fatturazione indipendentemente dalla data"
FIELD ATTFATNODT
END
BOOLEAN F_FORFNOCONS
BEGIN
PROMPT 16 4 "Non fatturare forfait se senza consegne"
FIELD FORFNOCONS
PROMPT 10 4 "Non fatturare forfait se senza consegne"
FIELD FORFNOCONS
END
BOOLEAN F_SSCONS
BEGIN
PROMPT 16 5 "Spese di spedizione alla consegna"
FIELD SSCONS
PROMPT 10 5 "Spese di spedizione alla consegna"
FIELD SSCONS
END
BOOLEAN F_RIFBOLFAT
BEGIN
PROMPT 16 6 "Riferimenti bolle in fattura"
FIELD RIFBOLFAT
PROMPT 10 6 "Riferimenti bolle in fattura"
FIELD RIFBOLFAT
END
BOOLEAN F_ADDCAPROT
BEGIN
PROMPT 16 7 "Addebita capi rotti in fattura"
FIELD ADDCAPROT
PROMPT 10 7 "Addebita capi rotti in fattura"
FIELD ADDCAPROT
END
BOOLEAN F_PROFORME
BEGIN
PROMPT 16 8 "Proforme(progetti)"
FIELD PROFORME
PROMPT 10 8 "Proforme(progetti)"
FIELD PROFORME
END
BOOLEAN F_STRCONS
BEGIN
PROMPT 16 9 "Stampa di riepilogo consegne"
FIELD STRCONS
PROMPT 10 9 "Stampa di riepilogo consegne"
FIELD STRCONS
END
BOOLEAN F_CICLAGGIO
BEGIN
PROMPT 16 10 "Ciclaggio su 2 righe"
FIELD CICLAGGIO
PROMPT 10 10 "Ciclaggio su 2 righe"
FIELD CICLAGGIO
END
BOOLEAN F_STPRZBOL
BEGIN
PROMPT 16 11 "Visualizza prezzo in bolla"
FIELD STPRZBOL
PROMPT 10 11 "Visualizza prezzo in bolla"
FIELD STPRZBOL
END
BOOLEAN F_STETIMATI
BEGIN
PROMPT 16 12 "Stampa etichette con MATI"
FIELD STETIMATI
PROMPT 10 12 "Stampa etichette con MATI"
FIELD STETIMATI
END
BOOLEAN F_STETITS
BEGIN
PROMPT 16 13 "Stampa etic. con Touch-Screen"
FIELD STETITS
PROMPT 10 13 "Stampa etic. con Touch-Screen"
FIELD STETITS
END
BOOLEAN F_STDDTPTS
BEGIN
PROMPT 16 14 "Stampa DDT da pulito con Touch-Screen"
FIELD STDDTPTS
PROMPT 10 14 "Stampa DDT da pulito con Touch-Screen"
FIELD STDDTPTS
END
BOOLEAN F_STDICITURA
BEGIN
PROMPT 16 15 "Stampa dicitura '..COME DA ELENCO CONSEGNE'"
FIELD STDICITURA
PROMPT 10 15 "Stampa dicitura '..COME DA ELENCO CONSEGNE'"
FIELD STDICITURA
END
BOOLEAN F_RITAUDTTMP
BEGIN
PROMPT 16 16 "Ritiro automatico dotazione temporanea"
FIELD RITAUDTTMP
PROMPT 10 16 "Ritiro automatico dotazione temporanea"
FIELD RITAUDTTMP
END
ENDPAGE
@ -589,7 +626,7 @@ END
STRING S_CAUSMAG 4
BEGIN
PROMPT 52 9 "Causale di default: "
PROMPT 52 9 "Causale di default "
USE CAU
INPUT CODTAB S_CAUSMAG
DISPLAY "Codice" CODTAB

25
lv/lvconf.h Executable file
View File

@ -0,0 +1,25 @@
#define DDT 1
#define RIT 2
#define PRE 3
#define ANT 4
#define F_CODNUM_DDT 101
#define F_DESNUM_DDT 102
#define F_TIPODOC_DDT 103
#define F_DESTIPODOC_DDT 104
#define F_CODNUM_RIT 105
#define F_DESNUM_RIT 106
#define F_TIPODOC_RIT 107
#define F_DESTIPODOC_RIT 108
#define F_CODNUM_PRE 109
#define F_DESNUM_PRE 110
#define F_TIPODOC_PRE 111
#define F_DESTIPODOC_PRE 112
#define F_CODNUM_ANT 113
#define F_DESNUM_ANT 114
#define F_TIPODOC_ANT 115
#define F_DESTIPODOC_ANT 116