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

Correzioni al motore

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3015 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-06-18 15:55:39 +00:00
parent 51b94ca2eb
commit e808aad33e
14 changed files with 3099 additions and 2031 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

284
ve/bollac.src Executable file
View File

@ -0,0 +1,284 @@
#include "veini.h"
#include "veuml.h"
#include "verig.h"
// Esempio di profilo documento : Profilo Bolla Vendita
[MAIN]
// Descrizione a caratteri del documento
TYPE=Bolla di vendita
// Dove sono le risorse per il documento
MSKFILE=BOLLAC
FRMFILE=BOLLAC.FRM
// modifica
PROGPIEDE=TOTNETTI|TRASPORTO|IMBALLO|GENERALI
// modifica
// Procedure utente da chiamare per il documento ( preprocessarle? )
NUOVO=
MODIFICA=
CANCELLA=
STAMPA=
RAGGRUPPA=
USER=
// Indica se il documento è indirizzato ad un cliente o ad un fornitore
TIPOCF=C
[INSERIMENTO]
// Stati in cui è possibile effettuare la operazione
STATIVALIDI=1,2,3,4,5,6,7,8,9
// Stato finale del documento dopo la operazione
STATOFINALE=1
[MODIFICA]
// Stati in cui è possibile effettuare la operazione
STATIVALIDI=1,2,3,4,5
// Stato finale del documento dopo la operazione
STATOFINALE=N
[CANCELLAZIONE]
STATIVALIDI = 1,6,7
STATOFINALE = 4
REMOVE = 0
[STAMPA]
// Stati in cui è possibile effettuare la operazione
STATIVALIDI=1,2,3,4,5
// Stato finale del documento dopo la operazione
STATOFINALE=6
[RAGGRUPPA]
// Stati in cui è possibile effettuare la operazione
STATIVALIDI=6,7,8,9
// Stato finale del documento dopo la operazione
STATOFINALE=1
[SPECIALE]
// Stati in cui è possibile effettuare la operazione
STATIVALIDI=1,2,3,4,5,6,7,8,9
// Stato finale del documento dopo la operazione
STATOFINALE=9
[PROFILO]
// Si possono indicare, dopo il numero, PROMPT, HELP, WARNING cosi:
// 1|Prompt|Help|Warning
// TIPOCF = S_NORMALE
// CODCF = S_OBBLIGATORIO
// RAGSOC = S_NORMALE
OCCASEDIT = S_NORMALE //100
OCFPI = S_NORMALE //100
COFI = S_NORMALE //100
STATOPAIV = S_NORMALE //100
PAIVA = S_NORMALE //100
GRRECAPITO = S_NORMALE //100
INDCF = S_DISABILITATO //100
CIVCF = S_DISABILITATO //100
LOCALITACF = S_DISABILITATO //100
CAPCF = S_DISABILITATO //100
PROVCOM = S_DISABILITATO //100
COMCF = S_DISABILITATO //100
DENCOM = S_DISABILITATO //100
STATOCF = S_DISABILITATO //100
DESSTATOCF = S_DISABILITATO //100
CODVAL = S_NORMALE //200
NOME_VAL = S_DISABILITATO //200
CAMBIO = S_NORMALE //200
DATA_CAMBIO = S_DISABILITATO //200
CODLIN = S_NORMALE //300
DESLIN = S_DISABILITATO //300
CODPAG = S_OBBLIGATORIO //400
DESCODPAG = S_DISABILITATO //400
GRSCADENZE = S_NORMALE //500
DATAINSC = S_NORMALE //500
DATASCAD1 = S_DISABILITATO //500
DATASCAD2 = S_DISABILITATO //500
DATASCAD3 = S_DISABILITATO //500
DATASCAD4 = S_DISABILITATO //500
DATASCAD5 = S_DISABILITATO //500
CODABIA = S_OBBLIGATORIO //600
CODCABA = S_OBBLIGATORIO //600
DESBANAPP = S_DISABILITATO //600
CODABIP = S_NORMALE //700
CODCABP = S_NORMALE //700
DESBANPRE = S_DISABILITATO //700
CATVEN = S_NORMALE //800
DESCATVEN = S_DISABILITATO //800
CODLIST1 = S_NORMALE //800
CODLIST2 = S_NORMALE //800
DESLIST = S_DISABILITATO //800
CODCONT1 = S_NORMALE //810
CODCONT2 = S_NORMALE //810
DESCONT = S_DISABILITATO //810
CODCAMP = S_NORMALE //820
DESCAMP = S_DISABILITATO //820
SCONTOPERC = S_NORMALE //830
GRINDSPED = S_NORMALE //900
CODINDSP = S_NORMALE //900
RAGSOCSP = S_DISABILITATO //900
INDSP = S_DISABILITATO //900
CIVSP = S_DISABILITATO //900
LOCALITASP = S_DISABILITATO //900
CAPSP = S_DISABILITATO //900
COMSP = S_DISABILITATO //900
DENCOMSP = S_DISABILITATO //900
PROVCOMSP = S_DISABILITATO //900
STATOSP = S_DISABILITATO //900
DESSTATOSP = S_DISABILITATO //900
DATADOCRIF = S_NASCOSTO //1000
NUMDOCRIF = S_NASCOSTO //1000
CODAGVIS = S_NASCOSTO //1110
DESAGVIS = S_NASCOSTO //1110
CODAG = S_NORMALE //1100
DESAG = S_DISABILITATO //1100
CODSPMEZZO = S_OBBLIGATORIO //1200
DESSPMEZZO = S_DISABILITATO //1200
CODPORTO = S_OBBLIGATORIO //1210
DESPORTO = S_DISABILITATO //1210
CODNOTESP1 = S_NORMALE //1300
DESNOTESP1 = S_DISABILITATO //1300
CODNOTESP2 = S_NASCOSTO //1300
DESNOTESP2 = S_NASCOSTO //1300
CAUSTRASP = S_OBBLIGATORIO //1400
DENCAUSTRASP = S_DISABILITATO //1400
CODVETT1 = S_OBBLIGATORIO //1500
CODVETT2 = S_NASCOSTO //1500
CODVETT3 = S_NASCOSTO //1500
NOMEVETT1 = S_DISABILITATO //1500
NOMEVETT2 = S_NASCOSTO //1500
NOMEVETT3 = S_NASCOSTO //1500
NCOPIE = S_OBBLIGATORIO //1600
GRPARTENZA = S_NORMALE //1700
DATAPART = S_NORMALE //1700
ORAPART = S_NORMALE //1700
IMPPAGATO = S_NASCOSTO //1800
ACCSALDO = S_NASCOSTO //1800
DOC1 = S_NASCOSTO //1900
DOC2 = S_NASCOSTO //1900
DOC3 = S_NASCOSTO //1900
DATACONS = S_NASCOSTO //2000
ASPBENI1 = S_OBBLIGATORIO //2100
DESCRBENI1 = S_DISABILITATO //2100
ASPBENI2 = S_NASCOSTO //2100
DESCRBENI2 = S_NASCOSTO //2100
IMPNETTI = S_NASCOSTO //2200
RAGGREFF = S_NASCOSTO //2300
SPESEINC = S_NASCOSTO //2400
GRADD = S_NASCOSTO //2500
ADDBRB = S_NASCOSTO //2500
ADDBTR = S_NASCOSTO //2500
ADDBDE = S_NASCOSTO //2500
GRCODIVA = S_NASCOSTO //2600
CODIVABRB = S_NASCOSTO //2600
CODIVABTR = S_NASCOSTO //2600
CODIVABTRE = S_NASCOSTO //2600
CODIVABDE = S_NASCOSTO //2600
UMTARA = S_NORMALE //2710
TARA = S_NORMALE //2710
DESUMTARA = S_NASCOSTO //2710
UMPNETTO = S_NORMALE //2700
PNETTO = S_NORMALE //2700
DESUMPNETTO = S_NASCOSTO //2700
NCOLLI = S_NORMALE //2800
CAUSMAG1 = S_NASCOSTO //2900
DESCRMAG1 = S_NASCOSTO //2900
CAUSMAG2 = S_NASCOSTO //2900
DESCRMAG2 = S_NASCOSTO //2900
//RAGGR = S_NORMALE
[DEFAULT]
NDEFAULTS=1
1=F_CAUSTRASP|VEN
[SHEET]
NCOLS=10
1=FR_CODMAG
2=FR_CODDEP
3=FR_CODART
4=FR_DESCR
5=FR_UMQTA
6=FR_QTA
7=FR_PREZZO
8=FR_SCONTO
9=FR_PERCPROV
10=FR_CODIVA
[RIGHE]
NTIPIRIGA=4
1=01
2=02
3=03
4=04
[HANDLERS]
NHANDLER=0
1 = F_ORAPART|1
[PROFILOGRUPPO]
101 = S_NASCOSTO
100 = S_NORMALE
200 = S_NORMALE
300 = S_NORMALE
400 = S_NORMALE
500 = S_NORMALE
600 = S_NORMALE
700 = S_NORMALE
800 = S_NORMALE
810 = S_NORMALE
820 = S_NORMALE
830 = S_NORMALE
900 = S_NORMALE
1000 = S_NASCOSTO
1100 = S_NORMALE
1200 = S_NORMALE
1210 = S_NORMALE
1300 = S_NORMALE
1400 = S_NORMALE
1500 = S_NORMALE
1600 = S_NORMALE
1700 = S_NORMALE
1800 = S_NORMALE
1900 = S_NORMALE
2000 = S_NASCOSTO
2100 = S_NORMALE
2200 = S_NORMALE
2300 = S_NORMALE
2400 = S_NORMALE
2500 = S_NASCOSTO
2600 = S_NORMALE
2700 = S_NORMALE
2710 = S_NORMALE
2800 = S_NORMALE
2900 = S_NORMALE
[ORDINEGRUPPI]
NGROUPS=29
1=100
2=200
3=300
4=400
5=500
6=600
7=700
8=800
9=810
10=820
11=830
12=900
13=1100
14=1200
15=1210
16=1300
17=1400
18=1700
19=1800
20=1900
21=2100
22=2200
23=2300
24=2400
25=2700
26=2710
27=2800
28=1500
29=1600

203
ve/bollaf.src Executable file
View File

@ -0,0 +1,203 @@
#include "veini.h"
#include "veuml2.h"
#include "veuml.h"
#include "verig.h"
// Esempio di profilo documento : Profilo Bolla Fornitore
[MAIN]
// Descrizione a caratteri del documento
TYPE=Bolla a fornitore
// Dove sono le risorse per il documento
MSKFILE=BOLLAF
FRMFILE=BOLLAF.FRM
// modifica
PROGPIEDE=TOTNETTI
// modifica
// Procedure utente da chiamare per il documento ( preprocessarle? )
NUOVO=
MODIFICA=
CANCELLA=
STAMPA=
RAGGRUPPA=
USER=
// Indica se il documento è indirizzato ad un cliente o ad un fornitore
TIPOCF=F
[INSERIMENTO]
// Stati in cui è possibile effettuare la operazione
STATIVALIDI=1,2,3,4,5,6,7,8,9
// Stato finale del documento dopo la operazione
STATOFINALE=1
[MODIFICA]
// Stati in cui è possibile effettuare la operazione
STATIVALIDI=1,2,3,4,5
// Stato finale del documento dopo la operazione
STATOFINALE=N
[CANCELLAZIONE]
STATIVALIDI = 6,7
STATOFINALE = 4
REMOVE = 0
[STAMPA]
// Stati in cui è possibile effettuare la operazione
STATIVALIDI=1,2,3,4,5
// Stato finale del documento dopo la operazione
STATOFINALE=6
[RAGGRUPPA]
// Stati in cui è possibile effettuare la operazione
STATIVALIDI=6,7,8,9
// Stato finale del documento dopo la operazione
STATOFINALE=1
[SPECIALE]
// Stati in cui è possibile effettuare la operazione
STATIVALIDI=1,2,3,4,5,6,7,8,9
// Stato finale del documento dopo la operazione
STATOFINALE=9
[PROFILO]
// Si possono indicare, dopo il numero, PROMPT, HELP, WARNING cosi:
// 1|Prompt|Help|Warning
// TIPOCF = S_NORMALE
// CODCF = S_OBBLIGATORIO
// RAGSOC = S_NORMALE
OCCASEDIT = S_NORMALE //100
OCFPI = S_NORMALE //100
COFI = S_DISABILITATO //100
STATOPAIV = S_DISABILITATO //100
PAIVA = S_DISABILITATO //100
GRRECAPITO = S_NORMALE //100
INDCF = S_DISABILITATO //100
CIVCF = S_DISABILITATO //100
LOCALITACF = S_DISABILITATO //100
CAPCF = S_DISABILITATO //100
PROVCOM = S_DISABILITATO //100
COMCF = S_DISABILITATO //100
DENCOM = S_DISABILITATO //100
STATOCF = S_DISABILITATO //100
//DESSTATOCF = S_DISABILITATO //100
CODLIN = S_NORMALE //300
DESLIN = S_DISABILITATO //300
GRINDSPED = S_NORMALE //900
CODINDSP = S_NORMALE //900
RAGSOCSP = S_DISABILITATO //900
INDSP = S_DISABILITATO //900
CIVSP = S_DISABILITATO //900
LOCALITASP = S_DISABILITATO //900
CAPSP = S_DISABILITATO //900
COMSP = S_DISABILITATO //900
DENCOMSP = S_DISABILITATO //900
PROVCOMSP = S_DISABILITATO //900
STATOSP = S_DISABILITATO //900
//DESSTATOSP = S_DISABILITATO //900
DATADOCRIF = S_NASCOSTO //1000
NUMDOCRIF = S_NASCOSTO //1000
CODSPMEZZO = S_OBBLIGATORIO //1200
DESSPMEZZO = S_DISABILITATO //1200
CODPORTO = S_OBBLIGATORIO //1210
DESPORTO = S_DISABILITATO //1210
CODNOTESP1 = S_NORMALE //1300
DESNOTESP1 = S_DISABILITATO //1300
CODNOTESP2 = S_NASCOSTO //1300
DESNOTESP2 = S_NASCOSTO //1300
CAUSTRASP = S_OBBLIGATORIO //1400
DENCAUSTRASP = S_DISABILITATO //1400
CODVETT1 = S_OBBLIGATORIO //1500
CODVETT2 = S_NASCOSTO //1500
CODVETT3 = S_NASCOSTO //1500
NOMEVETT1 = S_DISABILITATO //1500
NOMEVETT2 = S_NASCOSTO //1500
NOMEVETT3 = S_NASCOSTO //1500
NCOPIE = S_OBBLIGATORIO //1600
GRPARTENZE = S_NORMALE //1700
DATAPART = S_NORMALE //1700
ORAPART = S_NORMALE //1700
DOC1 = S_NASCOSTO //1900
DOC2 = S_NASCOSTO //1900
DOC3 = S_NASCOSTO //1900
DATACONS = S_NASCOSTO //2000
ASPBENI1 = S_OBBLIGATORIO //2100
DESCRBENI1 = S_DISABILITATO //2100
ASPBENI2 = S_NORMALE //2100
DESCRBENI2 = S_DISABILITATO //2100
UMTARA = S_NORMALE //2710
TARA = S_NORMALE //2710
DESUMTARA = S_NASCOSTO //2710
UMPNETTO = S_NORMALE //2700
PNETTO = S_NORMALE //2700
DESUMPNETTO = S_NASCOSTO //2700
NCOLLI = S_NORMALE //2800
CAUSMAG1 = S_NASCOSTO //2900
DESCRMAG1 = S_NASCOSTO //2900
CAUSMAG2 = S_NASCOSTO //2900
DESCRMAG2 = S_NASCOSTO //2900
//RAGGR = S_NORMALE
[DEFAULT]
NDEFAULTS=0
//NDEFAULTS=1
//1=F_CAUSTRASP|VEN
[SHEET]
NCOLS=6
1=FR_CODMAG
2=FR_CODDEP
3=FR_CODART
4=FR_DESCR
5=FR_UMQTA
6=FR_QTA
[RIGHE]
NTIPIRIGA=1
1=01
[HANDLERS]
NHANDLER=0
1 = F_ORAPART|1
[PROFILOGRUPPO]
100 = S_NORMALE
300 = S_NORMALE
900 = S_NORMALE
1000 = S_NASCOSTO
1200 = S_NORMALE
1210 = S_NORMALE
1300 = S_NORMALE
1400 = S_NORMALE
1500 = S_NORMALE
1600 = S_NORMALE
1700 = S_NORMALE
1900 = S_NORMALE
2000 = S_NASCOSTO
2100 = S_NORMALE
2700 = S_NORMALE
2710 = S_NORMALE
2800 = S_NORMALE
2900 = S_NORMALE
[ORDINEGRUPPI]
NGROUPS=18
1=100
2=300
3=900
4=1000
5=1200
6=1210
7=1300
8=1400
9=1700
10=1900
11=2000
12=2100
13=2700
14=2710
15=2800
16=2900
17=1500
18=1600

229
ve/fatturac.src Executable file
View File

@ -0,0 +1,229 @@
#include "veini.h"
#include "veuml2.h"
#include "veuml.h"
#include "verig.h"
[MAIN]
// Descrizione a caratteri del documento
TYPE=Fattura di vendita
// Dove sono le risorse per il documento
MSKFILE=FATTURAC
FRMFILE=FATTURAC.FRM
// modifica
PROGPIEDE=TOTNETTI
// modifica
// Procedure utente da chiamare per il documento ( preprocessarle? )
NUOVO=
MODIFICA=
CANCELLA=
STAMPA=
RAGGRUPPA=
USER=
// Indica se il documento è indirizzato ad un cliente o ad un fornitore
TIPOCF=C
[INSERIMENTO]
// Stati in cui è possibile effettuare la operazione
STATIVALIDI=1,2,3,4,5,6,7,8,9
// Stato finale del documento dopo la operazione
STATOFINALE=1
[MODIFICA]
// Stati in cui è possibile effettuare la operazione
STATIVALIDI=1,2,3,4,5
// Stato finale del documento dopo la operazione
STATOFINALE=N
[CANCELLAZIONE]
STATIVALIDI = 6,7
STATOFINALE = 4
REMOVE = 0
[STAMPA]
// Stati in cui è possibile effettuare la operazione
STATIVALIDI=1,2,3,4,5
// Stato finale del documento dopo la operazione
STATOFINALE=6
[RAGGRUPPA]
// Stati in cui è possibile effettuare la operazione
STATIVALIDI=6,7,8,9
// Stato finale del documento dopo la operazione
STATOFINALE=1
[SPECIALE]
// Stati in cui è possibile effettuare la operazione
STATIVALIDI=1,2,3,4,5,6,7,8,9
// Stato finale del documento dopo la operazione
STATOFINALE=9
[PROFILO]
// Si possono indicare, dopo il numero, PROMPT, HELP, WARNING cosi:
// 1|Prompt|Help|Warning
OCCASEDIT = S_NORMALE //100
OCFPI = S_NORMALE //100
COFI = S_DISABILITATO //100
STATOPAIV = S_DISABILITATO //100
PAIVA = S_DISABILITATO //100
GRRECAPITO = S_NORMALE //100
INDCF = S_DISABILITATO //100
CIVCF = S_DISABILITATO //100
LOCALITACF = S_DISABILITATO //100
CAPCF = S_DISABILITATO //100
PROVCOM = S_DISABILITATO //100
COMCF = S_DISABILITATO //100
DENCOM = S_DISABILITATO //100
STATOCF = S_DISABILITATO //100
//DESSTATOCF = S_DISABILITATO //100
CODVAL = S_NORMALE //200
NOME_VAL = S_DISABILITATO //200
CAMBIO = S_NORMALE //200
DATA_CAMBIO = S_DISABILITATO //200
CODLIN = S_NORMALE //300
DESLIN = S_DISABILITATO //300
CODPAG = S_OBBLIGATORIO //400
DESCODPAG = S_DISABILITATO //400
GRSCADENZE = S_NORMALE //500
DATAINSC = S_NORMALE //500
DATASCAD1 = S_DISABILITATO //500
DATASCAD2 = S_DISABILITATO //500
DATASCAD3 = S_DISABILITATO //500
DATASCAD4 = S_DISABILITATO //500
DATASCAD5 = S_DISABILITATO //500
CODABIA = S_OBBLIGATORIO //600
CODCABA = S_OBBLIGATORIO //600
DESBANAPP = S_DISABILITATO //600
CODABIP = S_NORMALE //700
CODCABP = S_NORMALE //700
DESBANPRE = S_DISABILITATO //700
CATVEN = S_NORMALE //800
DESCATVEN = S_DISABILITATO //800
CODLIST1 = S_NORMALE //800
CODLIST2 = S_NORMALE //800
DESLIST = S_DISABILITATO //800
CODCONT1 = S_NORMALE //810
CODCONT2 = S_NORMALE //810
DESCONT = S_DISABILITATO //810
CODCAMP = S_NORMALE //820
DESCAMP = S_DISABILITATO //820
SCONTOPERC = S_NORMALE //830
CODAG = S_NORMALE //1100
DESAG = S_DISABILITATO //1100
CODPORTO = S_OBBLIGATORIO //1210
DESPORTO = S_DISABILITATO //1210
CODVETT1 = S_NORMALE //1500
CODVETT2 = S_NASCOSTO //1500
CODVETT3 = S_NASCOSTO //1500
NOMEVETT1 = S_DISABILITATO //1500
NOMEVETT2 = S_NASCOSTO //1500
NOMEVETT3 = S_NASCOSTO //1500
NCOPIE = S_OBBLIGATORIO //1600
IMPPAGATO = S_NORMALE //1800
ACCSALDO = S_NORMALE //1800
DOC1 = S_NASCOSTO //1900
DOC2 = S_NASCOSTO //1900
DOC3 = S_NASCOSTO //1900
IMPNETTI = S_NORMALE //2200
RAGGREFF = S_NORMALE //2300
SPESEINC = S_NORMALE //2400
GRADD = S_NORMALE //2500
ADDBRB = S_NORMALE //2500
ADDBTR = S_NORMALE //2500
ADDBDE = S_NORMALE //2500
GRCODIVA = S_NORMALE //2600
CODIVABRB = S_NORMALE //2600
CODIVABTR = S_NORMALE //2600
CODIVABTRE = S_NORMALE //2600
CODIVABDE = S_NORMALE //2600
SCONFIS = S_NORMALE //3000
RICFIS = S_NORMALE //3200
//NATTRASP = S_NASCOSTO //3300
//NATTRANS = S_NASCOSTO //3300
//REGIME = S_NASCOSTO //3300
GRSPESEADD = S_NORMALE //3400
SPESEADD1 = S_NORMALE //3400
SPESEADD2 = S_NORMALE //3400
SPESEADD3 = S_NORMALE //3400
SPESEADD4 = S_NORMALE //3400
[DEFAULT]
NDEFAULTS=0
[SHEET]
NCOLS=10
1=FR_CODMAG
2=FR_CODDEP
3=FR_CODART
4=FR_DESCR
5=FR_UMQTA
6=FR_QTA
7=FR_PREZZO
8=FR_SCONTO
9=FR_PERCPROV
10=FR_CODIVA
[RIGHE]
NTIPIRIGA=1
1=01
[HANDLERS]
NHANDLER=0
1 = F_ORAPART|1
[PROFILOGRUPPO]
100 = S_NORMALE
200 = S_NORMALE
300 = S_NORMALE
400 = S_NORMALE
500 = S_NORMALE
600 = S_NORMALE
700 = S_NORMALE
800 = S_NORMALE
810 = S_NORMALE
820 = S_NORMALE
830 = S_NORMALE
1100 = S_NORMALE
1210 = S_NORMALE
1500 = S_OBBLIGATORIO
1600 = S_NORMALE
1800 = S_NORMALE
1900 = S_NORMALE
2200 = S_NORMALE
2300 = S_NORMALE
2400 = S_NORMALE
2500 = S_NORMALE
2600 = S_NORMALE
3000 = S_NORMALE
3200 = S_NORMALE
//3300 = S_NASCOSTO
3400 = S_NORMALE
[ORDINEGRUPPI]
NGROUPS=25
1=100
2=200
3=300
4=400
5=500
6=600
7=700
8=800
9=810
10=820
11=1100
12=1210
13=1500
14=830
15=1800
16=1900
17=2200
18=2300
19=2400
20=2500
21=2600
22=3000
23=3200
24=3400
25=1600

103
ve/righedoc.cpp
View File

@ -63,56 +63,68 @@ static bool riga_art_handler( TMask_field& f, KEY key )
} }
void TRiga::load( TToken_string& row ) void TRiga::load(TSheet_field & f, TToken_string& row, TRectype * r)
{ {
_data.put( "STATORIGA", row.get( FR_STATORIGA - 101 ) ); if (r)
_data.put( "TIPORIGA", row.get( FR_TIPORIGA - 101 ) ); _data = *r;
_data.put( "CODMAG", row.get( FR_CODMAG - 101 ) ); _data.put( "STATORIGA", row.get( f.cid2index(FR_STATORIGA) ) );
_data.put( "CODART", row.get( FR_CODART - 101 ) ); _data.put( "TIPORIGA", row.get( f.cid2index(FR_TIPORIGA )) );
_data.put( "DESCR", row.get( FR_DESCR - 101 ) ); TString16 codmag(row.get(f.cid2index(FR_CODMAG)));
_data.put( "PREZZO", row.get( FR_PREZZO - 101 ) );
_data.put( "UMQTA", row.get( FR_UMQTA - 101 ) ); codmag.left_just(3);
_data.put( "QTA", row.get( FR_QTA - 101 ) ); codmag << row.get( f.cid2index(FR_CODDEP ));
_data.put( "QTAEVASA", row.get( FR_QTAEVASA - 101 ) ); _data.put( "CODMAG", codmag);
_data.put( "RIGAEVASA", row.get( FR_RIGAEVASA - 101 ) ); _data.put( "CODART", row.get( f.cid2index(FR_CODART )) );
_data.put( "TARA", row.get( FR_TARA - 101 ) ); _data.put( "DESCR", row.get( f.cid2index(FR_DESCR )) );
_data.put( "PNETTO", row.get( FR_PNETTO - 101 ) ); _data.put( "PREZZO", row.get( f.cid2index(FR_PREZZO )) );
_data.put( "NCOLLI", row.get( FR_NCOLLI - 101 ) ); _data.put( "UMQTA", row.get( f.cid2index(FR_UMQTA )) );
_data.put( "DAEVADERE", row.get( FR_DAEVADERE - 101 ) ); _data.put( "QTA", row.get( f.cid2index(FR_QTA )) );
_data.put( "SCONTO", row.get( FR_SCONTO - 101 ) ); _data.put( "QTAEVASA", row.get( f.cid2index(FR_QTAEVASA )) );
_data.put( "PERCPROV", row.get( FR_PERCPROV - 101 ) ); _data.put( "RIGAEVASA", row.get( f.cid2index(FR_RIGAEVASA )) );
_data.put( "IMPFISSO", row.get( FR_IMPFISSO - 101 ) ); _data.put( "TARA", row.get( f.cid2index(FR_TARA )) );
_data.put( "CODIVA", row.get( FR_CODIVA - 101 ) ); _data.put( "PNETTO", row.get( f.cid2index(FR_PNETTO )) );
_data.put( "ADDIVA", row.get( FR_ADDIVA - 101 ) ); _data.put( "NCOLLI", row.get( f.cid2index(FR_NCOLLI )) );
_data.put( "ASPBENI", row.get( FR_ASPBENI - 101 ) ); _data.put( "DAEVADERE", row.get( f.cid2index(FR_DAEVADERE )) );
_data.put( "SCONTO", row.get( f.cid2index(FR_SCONTO )) );
_data.put( "PERCPROV", row.get( f.cid2index(FR_PERCPROV )) );
_data.put( "IMPFISSO", row.get( f.cid2index(FR_IMPFISSO )) );
_data.put( "CODIVA", row.get( f.cid2index(FR_CODIVA )) );
_data.put( "ADDIVA", row.get( f.cid2index(FR_ADDIVA )) );
_data.put( "ASPBENI", row.get( f.cid2index(FR_ASPBENI )) );
carica_profilo( ); carica_profilo( );
_piede.destroy( ); _piede.destroy( );
somma( _piede ); somma( _piede );
// _piede.put( "G1", _piede.string( ) );
if (r)
*r = _data;
} }
void TRiga::save( TToken_string& row ) void TRiga::save(TSheet_field & f, TToken_string& row )
{ {
row.add( _data.get( "STATORIGA" ), FR_STATORIGA - 101 ); row.add( _data.get( "STATORIGA" ), f.cid2index(FR_STATORIGA ));
row.add( _data.get( "TIPORIGA" ), FR_TIPORIGA - 101 ); row.add( _data.get( "TIPORIGA" ), f.cid2index(FR_TIPORIGA ));
row.add( _data.get( "CODMAG" ), FR_CODMAG - 101 ); const TString codmag(_data.get("CODMAG"));
row.add( _data.get( "CODART" ), FR_CODART - 101 ); row.add( codmag.left(3), f.cid2index(FR_CODMAG ));
row.add( _data.get( "DESCR" ), FR_DESCR - 101 ); row.add( codmag.mid(3), f.cid2index(FR_CODDEP ));
row.add( _data.get( "UMQTA" ), FR_UMQTA - 101 ); row.add( _data.get( "CODART" ), f.cid2index(FR_CODART ));
row.add( _data.get( "PREZZO" ), FR_PREZZO - 101 ); row.add( _data.get( "DESCR" ), f.cid2index(FR_DESCR ));
row.add( _data.get( "QTA" ), FR_QTA - 101 ); row.add( _data.get( "UMQTA" ), f.cid2index(FR_UMQTA ));
row.add( _data.get( "QTAEVASA" ), FR_QTAEVASA - 101 ); row.add( _data.get( "PREZZO" ), f.cid2index(FR_PREZZO ));
row.add( _data.get( "RIGAEVASA" ), FR_RIGAEVASA - 101 ); row.add( _data.get( "QTA" ), f.cid2index(FR_QTA ));
row.add( _data.get( "TARA" ), FR_TARA - 101 ); row.add( _data.get( "QTAEVASA" ), f.cid2index(FR_QTAEVASA ));
row.add( _data.get( "PNETTO" ), FR_PNETTO - 101 ); row.add( _data.get( "RIGAEVASA" ), f.cid2index(FR_RIGAEVASA ));
row.add( _data.get( "NCOLLI" ), FR_NCOLLI - 101 ); row.add( _data.get( "TARA" ), f.cid2index(FR_TARA ));
row.add( _data.get( "DAEVADERE" ), FR_DAEVADERE - 101 ); row.add( _data.get( "PNETTO" ), f.cid2index(FR_PNETTO ));
row.add( _data.get( "SCONTO" ), FR_SCONTO - 101 ); row.add( _data.get( "NCOLLI" ), f.cid2index(FR_NCOLLI ));
row.add( _data.get( "PERCPROV" ), FR_PERCPROV - 101 ); row.add( _data.get( "DAEVADERE" ), f.cid2index(FR_DAEVADERE ));
row.add( _data.get( "IMPFISSO" ), FR_IMPFISSO - 101 ); row.add( _data.get( "SCONTO" ), f.cid2index(FR_SCONTO ));
row.add( _data.get( "CODIVA" ), FR_CODIVA - 101 ); row.add( _data.get( "PERCPROV" ), f.cid2index(FR_PERCPROV ));
row.add( _data.get( "ADDIVA" ), FR_ADDIVA - 101 ); row.add( _data.get( "IMPFISSO" ), f.cid2index(FR_IMPFISSO ));
row.add( _data.get( "ASPBENI" ), FR_ASPBENI - 101 ); row.add( _data.get( "CODIVA" ), f.cid2index(FR_CODIVA ));
// row.add( _piede.string( ), FR_G1 - 101 ); rimettere row.add( _data.get( "ADDIVA" ), f.cid2index(FR_ADDIVA ));
row.add( _data.get( "ASPBENI" ), f.cid2index(FR_ASPBENI ));
// row.add( _piede.string( ), f.cid2index(FR_G1 )); rimettere
} }
void TRiga::load( const TRectype& rec ) void TRiga::load( const TRectype& rec )
@ -124,7 +136,6 @@ void TRiga::load( const TRectype& rec )
void TRiga::save( TRectype& rec ) void TRiga::save( TRectype& rec )
{ {
rec = _data; rec = _data;
// rec.put( "G1", _piede.string( ) );
} }
void TRiga::carica_profilo( ) void TRiga::carica_profilo( )
@ -154,7 +165,7 @@ void TRiga::configura_sheet( TSheet_field& f, int numriga )
void TRiga::somma( TPiede_documento& piede ) void TRiga::somma( TPiede_documento& piede )
{ {
// Metti solo i campi numerici poichè sono gli unici che si calcolano // Metti solo i campi numerici poichh sono gli unici che si calcolano
//static const TString tabella_campi( "#STATORIGA#TIPORIGA#PROFRIGA#CODMAG#CODART#DESCR#DESCLUNGA#PREZZO#UMQTA#QTA#QTAEVASA#RIGAEVASA#TARA#PNETTO#NCOLLI#DAEVADERE#SCONTO#PERCPROV#IMPFISSO#IMPFISUN#CODIVA#ADDIVA#ASPBENI#" ); //static const TString tabella_campi( "#STATORIGA#TIPORIGA#PROFRIGA#CODMAG#CODART#DESCR#DESCLUNGA#PREZZO#UMQTA#QTA#QTAEVASA#RIGAEVASA#TARA#PNETTO#NCOLLI#DAEVADERE#SCONTO#PERCPROV#IMPFISSO#IMPFISUN#CODIVA#ADDIVA#ASPBENI#" );
static const TString tabella_campi( "#PREZZO#QTA#QTAEVASA#TARA#PNETTO#NCOLLI#PERCPROV#" ); static const TString tabella_campi( "#PREZZO#QTA#QTAEVASA#TARA#PNETTO#NCOLLI#PERCPROV#" );
@ -166,7 +177,7 @@ void TRiga::somma( TPiede_documento& piede )
TString formula = s.get( ); TString formula = s.get( );
if( formula.blank( ) ) if( formula.blank( ) )
{ {
// Se non è indicata alcuna formula, la prendo dalla tabella piedi // Se non h indicata alcuna formula, la prendo dalla tabella piedi
ppd.zero( ); ppd.zero( );
ppd.put( "CODTAB", progpiede ); ppd.put( "CODTAB", progpiede );
if( ppd.read( ) == NOERR ) if( ppd.read( ) == NOERR )

4
ve/righedoc.h
View File

@ -69,9 +69,9 @@ class TRiga : public TObject
int numero( ) { return _data.get_int( "NRIGA" ); } int numero( ) { return _data.get_int( "NRIGA" ); }
const TString & tipo( ) const { return _data.get( "TIPORIGA" ); } const TString & tipo( ) const { return _data.get( "TIPORIGA" ); }
// Carica la riga dalla riga dello sheet // Carica la riga dalla riga dello sheet
void load( TToken_string& row ); void load( TSheet_field& f, TToken_string& row , TRectype * r = NULL);
// Registra la riga sullo sheet // Registra la riga sullo sheet
void save( TToken_string& row ); void save( TSheet_field& f, TToken_string& row);
// Legge la riga dal record // Legge la riga dal record
void load( const TRectype& rec ); void load( const TRectype& rec );
// Scrive la riga sul record // Scrive la riga sul record

18
ve/sconti.cpp
View File

@ -82,7 +82,7 @@ void TSconto::set( const TString& exp, bool signal )
break; break;
case '.': case '.':
case ',': case ',':
// Se siamo già nella parte decimale ... // Se siamo gi` nella parte decimale ...
if( dec ) if( dec )
{ {
// Segnala un errore // Segnala un errore
@ -102,7 +102,7 @@ void TSconto::set( const TString& exp, bool signal )
break; break;
} }
} }
// Controlla la validità // Controlla la validit`
_valid = ( _errorpos < 0 ); _valid = ( _errorpos < 0 );
// Se richiesto segnala l'errore // Se richiesto segnala l'errore
if( !_valid && signal ) if( !_valid && signal )
@ -132,7 +132,7 @@ real TSconto::sconto( )
} }
TSconto_riga::TSconto_riga( TCliFor& clifo, TMask * testa, TMask * riga ) : _condv( LF_CONDV ), _rcondv( LF_RCONDV ), _anamag( LF_ANAGR ), _sconti( LF_SCONTI ), _ditta( CONFIG_DITTA ) TSconto_riga::TSconto_riga( TCliFor& clifo, TMask * testa, TMask * riga ) : _condv( LF_CONDV ), _rcondv( LF_RCONDV ), _anamag( LF_ANAMAG ), _sconti( LF_SCONTI ), _ditta( CONFIG_DITTA )
{ {
_clifo = &clifo; _clifo = &clifo;
_testa = testa; _testa = testa;
@ -152,11 +152,11 @@ bool TSconto_riga::cerca_condv( int tiporicerca )
CHECK( ret == NOERR, "Articolo non trovato in anagrafica di magazzino!" ); CHECK( ret == NOERR, "Articolo non trovato in anagrafica di magazzino!" );
} }
if( tiporicerca == A_ANAMAG ) if( tiporicerca == A_ANAMAG )
// Se ricercavo per anagrafica, ho già finito // Se ricercavo per anagrafica, ho gi` finito
return TRUE; return TRUE;
if( _ditta.get_bool( "GES", "ve", tiporicerca ) ) if( _ditta.get_bool( "GES", "ve", tiporicerca ) )
{ {
// Se è attiva la gestione contratti ... // Se h attiva la gestione contratti ...
_condv.setkey( 1 ); _condv.setkey( 1 );
_condv.zero( ); _condv.zero( );
switch( tiporicerca ) switch( tiporicerca )
@ -166,7 +166,7 @@ bool TSconto_riga::cerca_condv( int tiporicerca )
_condv.blank( "CATVEN" ); _condv.blank( "CATVEN" );
if( _ditta.get_bool( "GESSCONCC", "ve" ) ) if( _ditta.get_bool( "GESSCONCC", "ve" ) )
{ {
// Se in ditta è abilitata la gestione del cliente in chiave // Se in ditta h abilitata la gestione del cliente in chiave
// al contratto, lo carico con gioia // al contratto, lo carico con gioia
_condv.put( "TIPOCF", clifo( ).tipocf( ) ); _condv.put( "TIPOCF", clifo( ).tipocf( ) );
_condv.put( "CODCF", clifo( ).codcf( ) ); _condv.put( "CODCF", clifo( ).codcf( ) );
@ -182,7 +182,7 @@ bool TSconto_riga::cerca_condv( int tiporicerca )
_condv.put( "TIPO", "L" ); _condv.put( "TIPO", "L" );
if( _ditta.get_bool( "GESLISCV", "ve" ) ) if( _ditta.get_bool( "GESLISCV", "ve" ) )
{ {
// Se in ditta è abilitata la gestione del cliente in chiave // Se in ditta h abilitata la gestione del cliente in chiave
// al contratto, lo carico con gioia // al contratto, lo carico con gioia
_condv.put( "TIPOCF", clifo( ).tipocf( ) ); _condv.put( "TIPOCF", clifo( ).tipocf( ) );
_condv.put( "CODCF", clifo( ).codcf( ) ); _condv.put( "CODCF", clifo( ).codcf( ) );
@ -263,11 +263,11 @@ bool TSconto_riga::cerca_condv( int tiporicerca )
return FALSE; return FALSE;
} }
else else
// La ricerca non è gestita, impossibile trovarlo ... // La ricerca non h gestita, impossibile trovarlo ...
return FALSE; return FALSE;
} }
// Probabilmente dovrebbe lavorare sulla maschera, ma per ora la lasciamo così // Probabilmente dovrebbe lavorare sulla maschera, ma per ora la lasciamo cosl
void TSconto_riga::calcola( ) void TSconto_riga::calcola( )
{ {
char gestione = _ditta.get_char( "GESSCORIGA", "ve" ); char gestione = _ditta.get_char( "GESSCORIGA", "ve" );

244
ve/ve0100.cpp
View File

@ -1,7 +1,6 @@
#ifndef __VE0100_H #ifndef __VE0100_H
#include "ve0100.h" #include "ve0100.h"
#endif #endif
// babbalone #3-4 I can't show these, because they are in the mask
TTipo_documento::TTipo_documento(const char * tipodoc) TTipo_documento::TTipo_documento(const char * tipodoc)
: _tipodoc(tipodoc), _mask(NULL) : _tipodoc(tipodoc), _mask(NULL)
@ -33,19 +32,30 @@ TMotore_application& app( ) { return ( TMotore_application& ) main_app( ); }
void TMotore_application::init_query_mode( TMask& m ) void TMotore_application::init_query_mode( TMask& m )
{ {
_msk->set( F_CODNUM, _codnum ); _msk->set( F_CODNUM, _codnum);
_msk->check_field(F_CODNUM); _msk->field(F_CODNUM).set_focusdirty(TRUE);
_msk->set( F_PROFILO, _profilo ); _msk->field(F_CODNUM).on_key(K_TAB);
_msk->set( F_TIPODOC, _tipodoc ); // _msk->check_field(F_CODNUM);
_msk->set( F_PROFILO, _profilo, TRUE);
_msk->set( F_TIPODOC, _tipodoc, TRUE);
} }
void TMotore_application::init_insert_mode( TMask& m ) void TMotore_application::init_insert_mode( TMask& m )
{ {
TString tipocf( "A" ); TString tipocf( "A" );
tipocf[ 0 ] = app( ).tipocf( ); tipocf[ 0 ] = app().tipocf();
// m.reset( ); m.reset();
m.set(F_PROFILO, _profilo);
m.set(F_CODNUM, _codnum);
m.field(F_CODNUM).on_key(K_TAB);
m.set(F_TIPODOC, _tipodoc);
m.field(F_TIPODOC).on_key(K_TAB);
m.set(F_ANNO, _anno);
m.set(F_PROVV, _tiponum);
m.set(F_NDOC, _numdoc);
m.set( F_DATAINSC, m.get( F_DATADOC ) ); m.set( F_DATAINSC, m.get( F_DATADOC ) );
m.set( F_TIPOCF, tipocf ); m.set( F_TIPOCF, tipocf , TRUE);
clifo( ).occas_mask( ).reset( ); clifo( ).occas_mask( ).reset( );
int ndefaults = pro( ).get_int( "NDEFAULTS", "DEFAULT" ); // prof int ndefaults = pro( ).get_int( "NDEFAULTS", "DEFAULT" ); // prof
for( int i = 1; i <= ndefaults; i++ ) for( int i = 1; i <= ndefaults; i++ )
@ -87,23 +97,23 @@ TMask *TMotore_application::ss_getmask( int numriga, TMask& fullmask, bool destr
} }
else else
{ {
TSheet_field* ss = fullmask.get_sheet( ); TSheet_field & ss = *fullmask.get_sheet( );
TToken_string& riga = ss->row( numriga ); TToken_string& riga = ss.row( numriga );
const TString tipo(riga.get( FR_TIPORIGA - 101 )); const TString tipo(riga.get( ss.cid2index(FR_TIPORIGA)));
if ( tipo.blank() ) return &fullmask; if ( tipo.blank() ) return &fullmask;
if ( !r ) if ( !r )
r = new TRiga; r = new TRiga;
if(r->tipo() != tipo) if(r->tipo() != tipo)
{ {
r->load( riga ); r->load(ss, riga);
} }
TAssoc_array & row_masks = app()._row_masks; TAssoc_array & row_masks = app()._row_masks;
TMask * row_mask = (TMask *) row_masks.objptr(tipo); TMask * row_mask = (TMask *) row_masks.objptr(tipo);
if (row_mask == NULL) if (row_mask == NULL)
{ {
row_mask = r->getmask(); row_mask = r->getmask();
row_mask->set_sheet( ss ); row_mask->set_sheet( &ss );
row_masks.add(tipo, row_mask); row_masks.add(tipo, row_mask);
} }
return( row_mask ); return( row_mask );
@ -149,56 +159,23 @@ bool TMotore_application::ss_handler( TSheet_field& ss, int r, KEY key )
delete riga; delete riga;
riga = new TRiga; riga = new TRiga;
riga->load( ss.row( r ) ); riga->load(ss, ss.row( r ));
}
if ( key == K_CTRL + K_TAB ) // Lascio una riga nello sheet
{
// TRelation rdoc( LF_RIGHEDOC );
// TToken_string riga( ss.row( r ) );
// rdoc.curr( ).zero( );
// rdoc.curr( ).put( "CODNUM", app( ).edit_mask( ).get( F_CODNUM ) );
// rdoc.curr( ).put( "ANNO", app( ).edit_mask( ).get( F_ANNO ) );
// rdoc.curr( ).put( "PROVV", app( ).edit_mask( ).get( F_PROVV ) );
// rdoc.curr( ).put( "NDOC", app( ).edit_mask( ).get( F_NDOC ) );
// rdoc.curr( ).put( "NRIGA", riga.get( 1 ) );
// rdoc.read( );
// app( ).edit_mask( ).field( F_MEMORIGA ).autosave( &rdoc );
// rdoc.write( );
} }
if ( key == K_INS ) // Inserimento if ( key == K_INS ) // Inserimento
{ {
TMask & emask = app().edit_mask(); TMask & emask = app().edit_mask();
/*
TTable tabtr( "%TRI" );
tabtr.zero( );
tabtr.put( "CODTAB", app( ).edit_mask( ).get( F_LBTIPORIGA ) );
tabtr.read( );
*/
TToken_string& tsr = ss.row( r ); TToken_string& tsr = ss.row( r );
/*
tsr.add(emask.get( F_ANNO ), FR_ANNO - 101 );
tsr.add(emask.get( F_PROVV ), FR_PROVV - 101 );
tsr.add(emask.get( F_NDOC ), FR_NDOC - 101 );
tsr.add(emask.get( F_CODNUM ), FR_CODNUM - 101 );
*/
tsr.add(emask.get( F_LBTIPORIGA ), FR_TIPORIGA - 101 ); tsr.add(emask.get( F_LBTIPORIGA ), FR_TIPORIGA - 101 );
tsr.add("", FR_STATORIGA - 101 ); tsr.add("", FR_STATORIGA - 101 );
/*
tsr.add( tabtr.get( "S4" ), FR_PROFRIGA - 101 );
*/
if ( riga ) if ( riga )
delete riga; delete riga;
riga = new TRiga; riga = new TRiga;
riga->load( tsr ); riga->load(ss, tsr);
return TRUE; return TRUE;
} }
if ( key == K_CTRL + K_INS ) // Dopo inserimento if (key == K_CTRL + K_INS)
{ {
riga->configura_sheet( ss, r );
ss.force_update();
ss.select(r); ss.select(r);
app( ).curr_mask( ).send_key( K_ROWEDIT, F_SHEET );
return TRUE; return TRUE;
} }
if ( key == K_DEL ) // Cancellazione if ( key == K_DEL ) // Cancellazione
@ -221,9 +198,9 @@ bool TMotore_application::num_handler( TMask_field& f, KEY key )
// Ottengo la maschera // Ottengo la maschera
TMask& m = f.mask( ); TMask& m = f.mask( );
if ( key == K_TAB && m.is_running( ) ) if ( key == K_TAB && f.focusdirty() )
{ {
// Se la numerazione non è specificata, // Se la numerazione non h specificata,
const TString16 value( m.get( F_CODNUM ) ); const TString16 value( m.get( F_CODNUM ) );
if ( value.blank( ) ) if ( value.blank( ) )
{ {
@ -236,10 +213,11 @@ bool TMotore_application::num_handler( TMask_field& f, KEY key )
return TRUE; return TRUE;
} }
// Apro la tabella numerazioni // Apro la tabella numerazioni
TTable tabnum( "NUM" );
tabnum.zero( ); TTable & tabnum = ((TTable &) ((TEdit_field &)f).browse()->cursor()->file());
tabnum.put( "CODTAB", value ); // tabnum.zero( );
if ( tabnum.read( ) == NOERR ) // tabnum.put( "CODTAB", value );
if ( tabnum.good())
{ {
// Copio la descrizione della numerazione // Copio la descrizione della numerazione
m.set( F_DESNUM, tabnum.get( "S0" ) ); m.set( F_DESNUM, tabnum.get( "S0" ) );
@ -254,7 +232,7 @@ bool TMotore_application::num_handler( TMask_field& f, KEY key )
// m.field( F_TIPODOC ).check( ); // m.field( F_TIPODOC ).check( );
m.send_key( K_TAB, F_TIPODOC ); m.send_key( K_TAB, F_TIPODOC );
} }
// Se per questa numerazione è abilitata le numerazione provvisoria // Se per questa numerazione h abilitata le numerazione provvisoria
if ( tabnum.get_bool ( "B0" ) ) if ( tabnum.get_bool ( "B0" ) )
{ {
// Setta di default la numerazione provvisoria // Setta di default la numerazione provvisoria
@ -274,8 +252,9 @@ bool TMotore_application::num_handler( TMask_field& f, KEY key )
message_box( "Numerazione non valida!" ); message_box( "Numerazione non valida!" );
return FALSE; return FALSE;
} }
if ( key == K_ENTER && m.is_running( ) )
{ // Se la numerazione non è specificata, if ( key == K_ENTER && f.dirty() )
{ // Se la numerazione non h specificata,
const TString16 value( m.get( F_CODNUM ) ); const TString16 value( m.get( F_CODNUM ) );
if ( value.blank( ) ) if ( value.blank( ) )
{ {
@ -340,13 +319,6 @@ bool TMotore_application::tip_handler( TMask_field& f, KEY key )
TMask& m = f.mask( ); TMask& m = f.mask( );
if ( key == K_TAB && m.is_running( ) && m.get(F_TIPODOC).not_empty()) if ( key == K_TAB && m.is_running( ) && m.get(F_TIPODOC).not_empty())
{ {
// const TString16 value( m.get( F_TIPODOC ) );
// if (value.blank())
// {
// Pulisce il profilo
// m.set( F_PROFILO, "" );
// return TRUE;
// }
TString tipi_consentiti( m.get( F_TIPIDOCS ) ); TString tipi_consentiti( m.get( F_TIPIDOCS ) );
TString16 tipo( f.get( ) ); TString16 tipo( f.get( ) );
tipo.trim( ); tipo.trim( );
@ -380,7 +352,7 @@ bool TMotore_application::tip_handler( TMask_field& f, KEY key )
return TRUE; return TRUE;
} }
bool TMotore_application::ndoc_handler( TMask_field& f, KEY key ) /* bool TMotore_application::ndoc_handler( TMask_field& f, KEY key )
{ {
TMask& m = f.mask( ); TMask& m = f.mask( );
if ( key == K_TAB && m.is_running( ) ) if ( key == K_TAB && m.is_running( ) )
@ -396,19 +368,16 @@ bool TMotore_application::ndoc_handler( TMask_field& f, KEY key )
m.set( F_TIPODOC, doc.get( "TIPODOC" ) ); m.set( F_TIPODOC, doc.get( "TIPODOC" ) );
m.send_key(K_TAB, F_TIPODOC); m.send_key(K_TAB, F_TIPODOC);
m.set( F_STATO, doc.get( "STATO" ) ); m.set( F_STATO, doc.get( "STATO" ) );
// TTable tabtip( "%TIP" );
// tabtip.put( "CODTAB", doc.get( "TIPODOC" ) );
// tabtip.read( );
// m.set( F_PROFILO, tabtip.get( "S4" ) );
m.stop_run( K_AUTO_ENTER ); m.stop_run( K_AUTO_ENTER );
} }
} }
return TRUE; return TRUE;
} }
*/
bool TMotore_application::clifo_handler( TMask_field& f, KEY key ) bool TMotore_application::clifo_handler( TMask_field& f, KEY key )
{ {
if ( key == K_TAB && f.active( ) ) if (f.to_check(key))
{ {
TMask& m = f.mask( ); TMask& m = f.mask( );
@ -421,12 +390,9 @@ bool TMotore_application::clifo_handler( TMask_field& f, KEY key )
clifo.put( "TIPOCF", cf ); clifo.put( "TIPOCF", cf );
clifo.put( "CODCF", f.get( ) ); clifo.put( "CODCF", f.get( ) );
clifo.read( ); clifo.read( );
CHECK( clifo.good( ), "Impossibile ritrovare il clifo" );
} }
CHECKD( f.is_edit( ), "Can't check suspension of a non edit-field ", f.dlg( ) );
const TEdit_field& c = ( const TEdit_field& )f; const TEdit_field& c = ( const TEdit_field& )f;
const TBrowse* b = c.browse( ); const TBrowse* b = c.browse( );
CHECKD( b, "Can't check suspension of a edit-field without a USE ", f.dlg( ) );
const TLocalisamfile& i = b->cursor( )->file( ); const TLocalisamfile& i = b->cursor( )->file( );
// Tabella File // Tabella File
const char* sf = i.tab( ) ? "B2" : "SOSPESO"; const char* sf = i.tab( ) ? "B2" : "SOSPESO";
@ -436,18 +402,11 @@ bool TMotore_application::clifo_handler( TMask_field& f, KEY key )
sf = f.get( ); sf = f.get( );
return f.error_box( "Il codice '%s' e' sospeso e non puo' essere utilizzato", sf ); return f.error_box( "Il codice '%s' e' sospeso e non puo' essere utilizzato", sf );
} }
/*
if ( !m.is_running( ) || f.dirty( ) )
{
// Equichecazzociva?
}
*/
// Disabilitazioni varie, ma le demando all'oggetto cliente // Disabilitazioni varie, ma le demando all'oggetto cliente
if ( f.focusdirty( ) ) if (key == K_TAB)
{ {
app( ).clifo( ).load( cf, atol( f.get( ) ), "" ); app().clifo( ).load( cf, atol( f.get( ) ), "" );
app( ).clifo( ).update_mask( m ); app().clifo( ).update_mask( m );
if( f.mask( ).id2pos( F_OCCASEDIT ) > 0 ) if( f.mask( ).id2pos( F_OCCASEDIT ) > 0 )
{ {
if ( app( ).clifo( ).occasionale( ) && app( ).clifo( ).occas_mask( ).get( O_CODICE ).empty( ) ) if ( app( ).clifo( ).occasionale( ) && app( ).clifo( ).occas_mask( ).get( O_CODICE ).empty( ) )
@ -525,6 +484,9 @@ void TMotore_application::configura_sheet( TSheet_field& sheet, TConfig& config
if (size != 0) if (size != 0)
sheet.set_column_width( field_id, size); sheet.set_column_width( field_id, size);
} }
to_delete.reset(0);
to_delete.reset(1);
for ( i = MAX_COLUMNS - 1; i >= 0; i-- ) for ( i = MAX_COLUMNS - 1; i >= 0; i-- )
if( to_delete[i] ) sheet.delete_column( i + FIRST_FIELD); if( to_delete[i] ) sheet.delete_column( i + FIRST_FIELD);
} }
@ -581,6 +543,14 @@ void TMotore_application::get_edit_mask( const char * profilo )
listbox.replace_items( keys, descrs ); listbox.replace_items( keys, descrs );
configura_sheet( *_sheet, *_pro ); configura_sheet( *_sheet, *_pro );
((TVariable_sheet_field&)sheet()).set_getmask( ss_getmask ); ((TVariable_sheet_field&)sheet()).set_getmask( ss_getmask );
if (_msk1->id2pos( F_OCCASEDIT ) > 0 )
_msk1->set_handler( F_OCCASEDIT, occas_handler );
if (_msk1->id2pos( F_CODVAL ) > 0 )
_msk1->set_handler( F_CODVAL, val_handler );
_msk1->set_handler( F_CODCF, clifo_handler );
_msk1->set_handler( F_CODPAG, condpag_hndl );
_msk1->set_handler( F_DATAINSC, condpag_hndl );
// _msk1->set_handler( 99, elabora_handler );
int numhandler = pro( ).get_int( "NHANDLER", "HANDLERS" ); // prof int numhandler = pro( ).get_int( "NHANDLER", "HANDLERS" ); // prof
for ( i = 1; i <= numhandler; i ++ ) for ( i = 1; i <= numhandler; i ++ )
{ {
@ -608,14 +578,6 @@ TMask* TMotore_application::get_mask( int mode )
_numdoc = _msk->get_long(F_NDOC); _numdoc = _msk->get_long(F_NDOC);
get_edit_mask( _profilo ); get_edit_mask( _profilo );
TMask & emask = edit_mask(); TMask & emask = edit_mask();
if (emask.id2pos( F_OCCASEDIT ) > 0 )
emask.set_handler( F_OCCASEDIT, occas_handler );
if ( emask.id2pos( F_CODVAL ) > 0 )
emask.set_handler( F_CODVAL, val_handler );
emask.set_handler( F_CODCF, clifo_handler );
emask.set_handler( F_CODPAG, condpag_hndl );
emask.set_handler( F_DATAINSC, condpag_hndl );
// edit_mask( ).set_handler( 99, elabora_handler );
return( &emask ); return( &emask );
break; break;
} }
@ -654,7 +616,7 @@ const char* TMotore_application::get_next_key( )
tabnum.put( "CODTAB", value ); tabnum.put( "CODTAB", value );
if ( tabnum.read( ) == NOERR ) if ( tabnum.read( ) == NOERR )
{ {
// Se per questa numerazione è abilitata le numerazione automatica // Se per questa numerazione h abilitata le numerazione automatica
if ( tabnum.get_bool ( "B1" ) ) if ( tabnum.get_bool ( "B1" ) )
{ {
TLocalisamfile doc( LF_DOC ); TLocalisamfile doc( LF_DOC );
@ -662,7 +624,7 @@ const char* TMotore_application::get_next_key( )
doc.put( "CODNUM", value ); doc.put( "CODNUM", value );
doc.put( "ANNO", m.get( F_ANNO ) ); doc.put( "ANNO", m.get( F_ANNO ) );
doc.put( "NDOC", 9999999L ); doc.put( "NDOC", 9999999L );
// Se per questa numerazione è abilitata le numerazione provvisoria // Se per questa numerazione h abilitata le numerazione provvisoria
if ( tabnum.get_bool ( "B0" ) ) if ( tabnum.get_bool ( "B0" ) )
{ {
doc.put( "PROVV", "P" ); doc.put( "PROVV", "P" );
@ -689,18 +651,22 @@ int TMotore_application::read( TMask& m )
int err = TRelation_application::read( m ); int err = TRelation_application::read( m );
if ( err == NOERR ) if ( err == NOERR )
{ {
// edit_mask( ).set( F_DESNUM, query_mask( ).get( F_DESNUM ) );
// edit_mask( ).set( F_DESTIPODOC, query_mask( ).get( F_DESTIPODOC ) );
const char tipocf = m.get( F_TIPOCF )[ 0 ]; const char tipocf = m.get( F_TIPOCF )[ 0 ];
clifo( ).load( tipocf, m.get_int( F_CODCF ), rel( ).curr( ).get( "OCFPI" ) ); clifo( ).load( tipocf, m.get_int( F_CODCF ), rel( ).curr( ).get( "OCFPI" ) );
clifo( ).update_mask( ( TVariable_mask& ) m, TRUE ); clifo( ).update_mask( ( TVariable_mask& ) m, TRUE );
TLocalisamfile& rdoc = rel( ).lfile( LF_RIGHEDOC ); // TLocalisamfile& rdoc = rel( ).lfile( LF_RIGHEDOC );
TRectype r(rdoc.curr( )); TRectype r(_rdoc->curr( ));
r.zero( ); r.zero( );
/*
r.put( "CODNUM", _codnum); r.put( "CODNUM", _codnum);
r.put( "PROVV", _tiponum); r.put( "PROVV", _tiponum);
r.put( "ANNO", _anno); r.put( "ANNO", _anno);
r.put( "NDOC", _numdoc); r.put( "NDOC", _numdoc);
*/
r.put( "CODNUM", m.get(F_CODNUM));
r.put( "PROVV", m.get(F_PROVV));
r.put( "ANNO", m.get(F_ANNO));
r.put( "NDOC", m.get(F_NDOC));
_righe_rec->read( r ); _righe_rec->read( r );
TSheet_field& f = ( TSheet_field& ) m.field( F_SHEET ); TSheet_field& f = ( TSheet_field& ) m.field( F_SHEET );
f.destroy( ); f.destroy( );
@ -712,8 +678,8 @@ int TMotore_application::read( TMask& m )
TRiga currentrow; TRiga currentrow;
currentrow.load( rec ); currentrow.load( rec );
currentrow.save( srow ); currentrow.save(f, srow);
currentrow.configura_sheet( f, i - 1 ); f.post_insert(i - 1);
currentrow.somma( _piede ); currentrow.somma( _piede );
} }
carica_piedi( ); carica_piedi( );
@ -729,14 +695,15 @@ bool TMotore_application::check_key( TLocalisamfile& rdoc, TString16 codnum, boo
( rdoc.get_bool( "PROVV" ) == provv ) ); ( rdoc.get_bool( "PROVV" ) == provv ) );
} }
int TMotore_application::write( const TMask& m ) int TMotore_application::write( const TMask& m ) // C 90
{ {
int err = NOERR; int err = esegui_procedura(OP_NUOVO);
if (esegui_procedura(OP_NUOVO) != NOERR )
return FALSE; if (err == NOERR)
{
m.field(F_STATO).set( _pro->get( "STATOFINALE", "INSERIMENTO" ) ); m.field(F_STATO).set( _pro->get( "STATOFINALE", "INSERIMENTO" ) );
if ( m.id2pos( F_OCCASEDIT) > 0 ) if ( m.id2pos( F_OCCASEDIT) > 0 )
err = app( ).clifo( ).write_occas( ); err = app().clifo().write_occas();
if ( err == NOERR ) if ( err == NOERR )
{ {
err = TRelation_application::write( m ); err = TRelation_application::write( m );
@ -744,13 +711,17 @@ int TMotore_application::write( const TMask& m )
{ {
TSheet_field& f = ss( ); TSheet_field& f = ss( );
_righe_rec->destroy_rows( ); _righe_rec->destroy_rows( );
TRectype * rec = new TRectype(_righe_rec->key()); ((TRectype &)_righe_rec->key()).zero();
TRelation * rel = get_relation(); /*
rec->put("CODNUM", rel->lfile().get("CODNUM")); _righe_rec->renum_key("CODNUM", _codnum);
rec->put("ANNO", rel->lfile().get("ANNO")); _righe_rec->renum_key("PROVV", _tiponum);
rec->put("PROVV", rel->lfile().get("PROVV")); _righe_rec->renum_key("ANNO", _anno);
rec->put("NDOC", rel->lfile().get("NDOC")); _righe_rec->renum_key("NDOC", _numdoc);
_righe_rec->set_key(rec); */
_righe_rec->renum_key( "CODNUM", m.get(F_CODNUM));
_righe_rec->renum_key( "PROVV", m.get(F_PROVV));
_righe_rec->renum_key( "ANNO", m.get(F_ANNO));
_righe_rec->renum_key( "NDOC", m.get(F_NDOC));
for ( int i = 0; i < f.items( ); i ++ ) for ( int i = 0; i < f.items( ); i ++ )
{ {
TToken_string& t = f.row( i ); TToken_string& t = f.row( i );
@ -760,14 +731,18 @@ int TMotore_application::write( const TMask& m )
err = _righe_rec->write( ); err = _righe_rec->write( );
} }
} }
}
return err; return err;
} }
int TMotore_application::rewrite( const TMask& m ) int TMotore_application::rewrite( const TMask& m ) // C 90
{ {
int err = NOERR; if (!valida_operazione(OP_MODIFICA))
if ( ! valida_operazione( OP_MODIFICA ) ) return NOERR; // Errore gia' segnalato
return FALSE; int err = esegui_procedura(OP_MODIFICA);
if (err == NOERR)
{
if ( m.id2pos( F_OCCASEDIT) > 0 ) if ( m.id2pos( F_OCCASEDIT) > 0 )
err = app( ).clifo( ).write_occas( ); err = app( ).clifo( ).write_occas( );
if ( err == NOERR ) if ( err == NOERR )
@ -777,13 +752,6 @@ int TMotore_application::rewrite( const TMask& m )
{ {
TSheet_field& f = ss( ); TSheet_field& f = ss( );
_righe_rec->destroy_rows( ); _righe_rec->destroy_rows( );
TRectype * rec = new TRectype(_righe_rec->key());
TRelation * rel = get_relation();
rec->put("CODNUM", rel->lfile().get("CODNUM"));
rec->put("ANNO", rel->lfile().get("ANNO"));
rec->put("PROVV", rel->lfile().get("PROVV"));
rec->put("NDOC", rel->lfile().get("NDOC"));
_righe_rec->set_key(rec);
for ( int i = 0; i < f.items( ); i ++ ) for ( int i = 0; i < f.items( ); i ++ )
{ {
TToken_string& t = f.row( i ); TToken_string& t = f.row( i );
@ -793,6 +761,7 @@ int TMotore_application::rewrite( const TMask& m )
err = _righe_rec->rewrite( ); err = _righe_rec->rewrite( );
} }
} }
}
return err; return err;
} }
@ -828,11 +797,12 @@ int TMotore_application::avanza_numero( bool provv )
return err; return err;
} }
bool TMotore_application::remove( void ) bool TMotore_application::remove( void ) // C 80
{ {
if ( ! valida_operazione( OP_CANCELLA ) ) if ( ! valida_operazione( OP_CANCELLA ) )
return FALSE; return FALSE;
return TRelation_application::remove && ( _righe_rec->remove( ) == NOERR ); int err = esegui_procedura(OP_CANCELLA);
return TRelation_application::remove() && ( _righe_rec->remove() == NOERR );
} }
void TMotore_application::load_riga( TSheet_field& f, int numrig, TRectype& r ) void TMotore_application::load_riga( TSheet_field& f, int numrig, TRectype& r )
@ -882,16 +852,17 @@ void TMotore_application::store_riga( TSheet_field& f, int numrig, TRectype& r )
{ {
TToken_string& rigastr = f.row( numrig ); TToken_string& rigastr = f.row( numrig );
TRiga riga; TRiga riga;
riga.load( rigastr ); riga.load(f, rigastr, &r);
riga.set_numero( numrig + 1 ); // riga.set_numero( numrig + 1 );
riga.save( r ); riga.save( r );
} }
bool TMotore_application::user_create( ) bool TMotore_application::user_create( )
{ {
// Metto in relazione testata e righe // Metto in relazione testata e righe
_rel = new TRelation( LF_DOC ); // babbalone #5 creava file dopo maschera che la conteneva _rel = new TRelation( LF_DOC );
rel( ).add( LF_RIGHEDOC,"CODNUM=CODNUM|ANNO=ANNO|PROVV=PROVV|NDOC=NDOC" ); _rdoc = new TLocalisamfile(LF_RIGHEDOC);
// rel( ).add( LF_RIGHEDOC,"CODNUM=CODNUM|ANNO=ANNO|PROVV=PROVV|NDOC=NDOC" );
// Inizializzo il Record_array // Inizializzo il Record_array
_righe_rec = new TRecord_array( LF_RIGHEDOC, "NRIGA", 1 ); _righe_rec = new TRecord_array( LF_RIGHEDOC, "NRIGA", 1 );
@ -910,7 +881,7 @@ bool TMotore_application::user_create( )
_clifor = new TCliForVendite( ); _clifor = new TCliForVendite( );
azzera_piedi( ); azzera_piedi( );
_msk = new TMask( "ve1000a" ); _msk = new TMask( "ve1000a" );
query_mask( ).set_handler( F_NDOC, ndoc_handler ); // query_mask( ).set_handler( F_NDOC, ndoc_handler );
query_mask( ).set_handler( F_CODNUM, num_handler ); query_mask( ).set_handler( F_CODNUM, num_handler );
query_mask( ).set_handler( F_TIPODOC, tip_handler ); query_mask( ).set_handler( F_TIPODOC, tip_handler );
TConfig utente( CONFIG_USER ); TConfig utente( CONFIG_USER );
@ -929,9 +900,6 @@ bool TMotore_application::user_destroy( )
TConfig utente( CONFIG_USER ); TConfig utente( CONFIG_USER );
utente.set( "CODNUM", _codnum, "ve" ); utente.set( "CODNUM", _codnum, "ve" );
utente.set( "TIPODOC", _tipodoc, "ve" ); utente.set( "TIPODOC", _tipodoc, "ve" );
// utente.set( "DESNUM", query_mask( ).get( F_DESNUM ), "ve" );
// utente.set( "DESTIPODOC", query_mask( ).get( F_DESTIPODOC ), "ve" );
// utente.set( "PROFILO", _profilo, "ve" );
// Distruggo la maschera di modifica // Distruggo la maschera di modifica
if ( _msk != NULL ) if ( _msk != NULL )
@ -939,6 +907,7 @@ bool TMotore_application::user_destroy( )
// Distruggo la relazione // Distruggo la relazione
delete _rel; delete _rel;
delete _rdoc;
// Distruggo il Record_array // Distruggo il Record_array
delete _righe_rec; delete _righe_rec;
@ -955,18 +924,13 @@ int TMotore_application::esegui_procedura( int operazione )
return ( NOERR ); return ( NOERR );
} }
bool TMotore_application::valida_operazione( int operazione ) bool TMotore_application::valida_operazione( int operazione ) // C 90
{ {
if ( operazione != OP_NUOVO ) if (operazione != OP_NUOVO && !stato_valido( stato_corrente( ), operazione))
{
if ( !stato_valido( stato_corrente( ), operazione ) )
{ {
segnala_stato_non_valido( operazione ); segnala_stato_non_valido( operazione );
return FALSE; return FALSE;
} }
}
if ( esegui_procedura( operazione ) != NOERR )
return FALSE;
return TRUE; return TRUE;
} }

9
ve/ve0100.h
View File

@ -1,6 +1,6 @@
#ifndef __VE0100_H #ifndef __VE0100_H
#define __VE0100_H #define __VE0100_H
// Operazioni che può fare il motore su un documento // Operazioni che pur fare il motore su un documento
#define OP_NUOVO 1 #define OP_NUOVO 1
#define OP_MODIFICA 2 #define OP_MODIFICA 2
@ -18,7 +18,7 @@
#define F_MEMORIGA 501 #define F_MEMORIGA 501
#define BASE_PIEDE 600 #define BASE_PIEDE 600
#define CHANGE_MESSAGE "Sono state effettuate modifiche alla configurazione.\nPrima di eseguire la gestione documenti occorrerà rigenerare le maschere.\nDesideri farlo ora ?" #define CHANGE_MESSAGE "Sono state effettuate modifiche alla configurazione.\nPrima di eseguire la gestione documenti occorrer` rigenerare le maschere.\nDesideri farlo ora ?"
// Modifiche pianificate per il dopo/cattolica: // Modifiche pianificate per il dopo/cattolica:
// Rorganizzazione del codice come: // Rorganizzazione del codice come:
@ -156,7 +156,7 @@ class TMotore_application : public TRelation_application
// Puntatore al profilo del documento caricato // Puntatore al profilo del documento caricato
TConfig* _pro; TConfig* _pro;
// Puntatore al nome, per evitare di ricrearlo se è uguale // Puntatore al nome, per evitare di ricrearlo se h uguale
TFilename* _proname; TFilename* _proname;
// Puntatore alla maschera di ricerca // Puntatore alla maschera di ricerca
@ -167,6 +167,7 @@ class TMotore_application : public TRelation_application
// puntatore alla relazione // puntatore alla relazione
TRelation* _rel; TRelation* _rel;
TLocalisamfile * _rdoc;
// Puntatore allo sheet delle righe documento // Puntatore allo sheet delle righe documento
TSheet_field * _sheet; TSheet_field * _sheet;
@ -223,7 +224,7 @@ class TMotore_application : public TRelation_application
void somma_piedi( ); void somma_piedi( );
void sottrai_piedi( ); void sottrai_piedi( );
// Esegue, se c'è, la procedura utente relativa ad una certa operazione // Esegue, se c'h, la procedura utente relativa ad una certa operazione
int esegui_procedura( int operazione ); int esegui_procedura( int operazione );
protected: protected:

222
ve/ve0300.cpp
View File

@ -92,7 +92,7 @@
// Numero massimo di linee per pagina // Numero massimo di linee per pagina
#define MAX_LINES_PER_PAGE 18 #define MAX_LINES_PER_PAGE 18
#define MASK_FIRST_LINE 5 #define MASK_FIRST_LINE 6
#define GROUPKEY(x) format( "%5d", x ) #define GROUPKEY(x) format( "%5d", x )
@ -158,6 +158,7 @@ public:
// USE // USE
void use( const TString& s ){ outline( s, "US " ); }; void use( const TString& s ){ outline( s, "US " ); };
void use( const int file, const int key ){ _out << "US " << file << " KEY " << key << "\n"; }; void use( const int file, const int key ){ _out << "US " << file << " KEY " << key << "\n"; };
void use( const TString& tab, const int key ){ _out << "US " << tab << " KEY " << key << "\n"; };
// DISPLAY // DISPLAY
void display( const TString& s ){ outline( s, "DI " ); }; void display( const TString& s ){ outline( s, "DI " ); };
@ -179,7 +180,7 @@ public:
// Costruttore, vuole il nome del file .INI // Costruttore, vuole il nome del file .INI
TMaschera( const TFilename outfile ); TMaschera( const TFilename outfile );
// Vero se la pagina è aperta // Vero se la pagina h aperta
bool _pageopen; bool _pageopen;
// File .MSK di output // File .MSK di output
@ -197,7 +198,7 @@ private:
// Identificatore corrente per lo sheet // Identificatore corrente per lo sheet
int _curid; int _curid;
// vero se il gruppo è aperto // vero se il gruppo h aperto
bool _groupopen; bool _groupopen;
// nome del file di .INI di input // nome del file di .INI di input
@ -238,7 +239,7 @@ protected:
// Crea un controllo del tipo specificato // Crea un controllo del tipo specificato
void control( const int type, const int id = DLG_NULL, const int size = -1 ); void control( const int type, const int id = DLG_NULL, const int size = -1 );
// Ritorna vero se una componente della maschera è presente // Ritorna vero se una componente della maschera h presente
int present( const int i, TToken_string line ){ const TString s = line.get( i ); return !(s.blank( )); }; int present( const int i, TToken_string line ){ const TString s = line.get( i ); return !(s.blank( )); };
// Carica dati dei campi // Carica dati dei campi
@ -367,13 +368,15 @@ void TMaschera::item( const TString& str )
{ {
int i, j; int i, j;
TToken_string u( str, '@' ); TToken_string u( str, '@' );
TToken_string s; TToken_string s("", '~');
for( i = 0; i < u.items( ); i ++ ) for( i = 0; i < u.items( ); i ++ )
{ {
_out << "IT \"" << s[ 0 ] << "\"\n"; s = u.get();
_out << "IT \"" << s.get(0) << "\"\n";
for( j = 1; j < s.items( ); j ++ ) for( j = 1; j < s.items( ); j ++ )
_out << "ME " << s[ j ] << "\n"; _out << "ME " << s.get() << "\n";
} }
} }
@ -626,7 +629,7 @@ TField::TField( )
int TField::stato_reale( ) int TField::stato_reale( )
{ {
// Strategia al 28/08/95 // Strategia al 28/08/95
// Se il campo, nel file .INI di definizione dei campi, è legato a qualche voce in // Se il campo, nel file .INI di definizione dei campi, h legato a qualche voce in
// configurazione, legge il suo stato, altrimenti assume il massimo. // configurazione, legge il suo stato, altrimenti assume il massimo.
// Va poi a verificare nel .INI da compilare, e verifica li' la impostazione. // Va poi a verificare nel .INI da compilare, e verifica li' la impostazione.
// Controlla poi la impostazione per il gruppo, come impostato nel file .INI // Controlla poi la impostazione per il gruppo, come impostato nel file .INI
@ -712,7 +715,12 @@ void TField::genera( )
m.prompt( _x, _y + m.line( ), _prompt ); m.prompt( _x, _y + m.line( ), _prompt );
m.flag( _flag ); m.flag( _flag );
break; break;
default:
break;
} }
if ((_type == T_DATA || _type == T_STRINGA ||
_type == T_NUMERO || _type == T_MEMO) &&
(_stato == S_OBBLIGATORIO || !_use.blank()))
m.check( _stato ); m.check( _stato );
if ( !_fieldname.blank( ) ) m.field( _fieldname ); if ( !_fieldname.blank( ) ) m.field( _fieldname );
if ( !_items.blank( ) ) m.item( _items ); if ( !_items.blank( ) ) m.item( _items );
@ -764,32 +772,6 @@ TMask_generator::~TMask_generator( )
}; };
/*
void TMask_generator::carica_ordine_gruppi( )
{
int last, i;
last = _gruppi.items( );
for( i = 1; i <= last; i ++ )
{
TString16 chiavepro, chiavegruppi;
chiavepro.format( "%d", i );
const int gruppo( _pro->get_int( chiavepro, "ORDINEGRUPPI" ) );
chiavegruppo.format( "%5d", gruppo );
( ( TGruppo& )_gruppi[ chiavegruppo ] ).ordine( i );
}
last = _pro->get( "NGRUPPI", "ORDINEGRUPPI" );
for( i = 1; i <= last; i ++ )
{
TString16 chiavepro, chiavegruppi;
chiavepro.format( "%d", i );
const int gruppo( _pro->get_int( chiavepro, "ORDINEGRUPPI" ) );
chiavegruppo.format( "%5d", gruppo );
( ( TGruppo& )_gruppi[ chiavegruppo ] ).ordine( i );
}
}
*/
void TMask_generator::carica_dati_campi( const TFilename& fn, TAssoc_array& a ) void TMask_generator::carica_dati_campi( const TFilename& fn, TAssoc_array& a )
{ {
TScanner infile( fn ); TScanner infile( fn );
@ -946,42 +928,84 @@ void TMask_generator::genera_item_sheet( TToken_string _line )
void TMask_generator::intestazione_pagina( ) void TMask_generator::intestazione_pagina( )
{ {
_m->page( _m->page( ) + 1 ); _m->page( _m->page( ) + 1 );
_m->pagina( _m->page( ), _pro->get( "TYPE", "MAIN" ) ); _m->pagina( _m->page( ));
_m->control( T_CORNICE, DLG_NULL, 7805 ); _m->control( T_CORNICE, DLG_NULL, 7806 );
_m->begin( ); _m->begin( );
_m->prompt( 1, 0, "" ); _m->prompt( 1, 0, "" );
_m->end( ); _m->end( );
_m->control( T_STRINGA, DLG_NULL, 4 );
_m->begin( );
_m->prompt( 2, 1, "Cod. num. " );
_m->flag( "D" );
_m->group( 2 );
_m->end( );
_m->control( T_STRINGA, DLG_NULL, 50 ); _m->control( T_STRINGA, DLG_NULL, 50 );
_m->begin( ); _m->begin( );
_m->prompt( 2, 1, "Tipo doc. " ); _m->prompt( 24, 1 );
_m->flag( "DU" ); _m->flag( "D" );
_m->group( 3 );
_m->end( );
_m->control( T_STRINGA, DLG_NULL, 4 );
_m->begin( );
_m->prompt( 2, 2, "Tipo doc. " );
_m->flag( "D" );
_m->group( 4 );
_m->end( );
_m->control( T_STRINGA, DLG_NULL, 50 );
_m->begin( );
_m->prompt( 24, 2 );
_m->flag( "D" );
_m->group( 5 ); _m->group( 5 );
_m->end( ); _m->end( );
_m->control( T_NUMERO, DLG_NULL, 6 ); _m->control( T_NUMERO, DLG_NULL, 6 );
_m->begin( ); _m->begin( );
_m->prompt( 2, 2, "Doc.: nr. " ); _m->prompt( 2, 3, "Doc.: nr. " );
_m->group( 6 ); _m->group( 6 );
_m->flag( "D" ); _m->flag( "D" );
_m->end( ); _m->end( );
_m->control( T_DATA ); _m->control( T_DATA, DLG_NULL );
_m->begin( ); _m->begin( );
_m->prompt( 24, 2 ); _m->prompt( 24, 3, "Data " );
_m->group( 7 ); _m->group( 7 );
_m->flag( "D" ); _m->flag( "D" );
_m->end( ); _m->end( );
_m->control( T_NUMERO, DLG_NULL, 1 );
_m->begin( );
_m->prompt( 50, 3, "Stato " );
_m->group( 8 );
_m->flag( "D" );
_m->end( );
_m->control( T_STRINGA, DLG_NULL, 4 );
_m->begin( );
_m->prompt( 66, 3, "Es. " );
_m->group( 9 );
_m->flag( "D" );
_m->end( );
_m->control( T_STRINGA, DLG_NULL, 6 );
_m->begin( );
if ( _pro->get( "TIPOCF", "MAIN" ) == "C" )
_m->prompt( 2, 4, "Cliente " );
else
_m->prompt( 2, 4, "Fornitore " );
_m->group( 10 );
_m->flag( "D" );
_m->end( );
_m->control( T_STRINGA, DLG_NULL, 50 ); _m->control( T_STRINGA, DLG_NULL, 50 );
_m->begin( ); _m->begin( );
if ( _pro->get( "TIPOCF", "MAIN" ) == "C" ) _m->prompt( 24, 4, "" );
_m->prompt( 2, 3, "Cliente " );
else
_m->prompt( 2, 3, "Fornitore " );
_m->flag( "D" );
_m->group( 11 ); _m->group( 11 );
_m->flag( "D" );
_m->end( ); _m->end( );
} }
@ -991,7 +1015,7 @@ void TMask_generator::genera( const TString& profilo )
int i, last; int i, last;
TString temp_s; TString temp_s;
TFilename proname( profilo ), TFilename proname( profilo ),
// All'inizio il gruppo è 'chiuso' // All'inizio il gruppo h 'chiuso'
_groupopen = FALSE; _groupopen = FALSE;
// Forza l'estensione al profilo // Forza l'estensione al profilo
@ -1050,7 +1074,7 @@ void TMask_generator::genera( const TString& profilo )
// Header della prima pagina // Header della prima pagina
_m->pagina( _m->page( ), _pro->get( "TYPE", "MAIN" ) ); _m->pagina( _m->page( ));
_m->control( T_CORNICE, DLG_NULL, 7806 ); _m->control( T_CORNICE, DLG_NULL, 7806 );
_m->begin( ); _m->begin( );
@ -1060,8 +1084,14 @@ void TMask_generator::genera( const TString& profilo )
_m->control( T_STRINGA, F_CODNUM, 4 ); _m->control( T_STRINGA, F_CODNUM, 4 );
_m->begin( ); _m->begin( );
_m->prompt( 2, 1, "Cod. num. " ); _m->prompt( 2, 1, "Cod. num. " );
_m->field( "CODNUM" ); _m->field("CODNUM");
_m->flag( "GDUZ" ); _m->use("NUM", 1);
temp_s.format("CODTAB %d", F_CODNUM);
_m->input(temp_s);
_m->display("\"Codice\" CODTAB~\"Descrizione@50\" S0");
temp_s.format("%d CODTAB~%d S0~%d S2", F_CODNUM, F_DESNUM, F_TIPIDOCS);
_m->output(temp_s);
_m->flag( "GDU" );
_m->message( "CO,2@" ); _m->message( "CO,2@" );
_m->end( ); _m->end( );
@ -1076,6 +1106,12 @@ void TMask_generator::genera( const TString& profilo )
_m->begin( ); _m->begin( );
_m->field( "TIPODOC" ); _m->field( "TIPODOC" );
_m->prompt( 2, 2, "Tipo doc. " ); _m->prompt( 2, 2, "Tipo doc. " );
_m->use("%TIP" , 1);
temp_s.format("CODTAB %d", F_TIPODOC);
_m->input(temp_s);
_m->display("\"Codice\" CODTAB~\"Descrizione@50\" S0");
temp_s.format("%d CODTAB~%d S0~%d S4", F_TIPODOC, F_DESTIPODOC, F_PROFILO);
_m->output(temp_s);
_m->flag( "GDU" ); _m->flag( "GDU" );
_m->message( "CO,4@" ); _m->message( "CO,4@" );
_m->end( ); _m->end( );
@ -1185,7 +1221,7 @@ void TMask_generator::genera( const TString& profilo )
_m->outline( "ADD RU cg0 -1 C" ); _m->outline( "ADD RU cg0 -1 C" );
_m->message( "CO,11@" ); _m->message( "CO,11@" );
_m->end( ); _m->end( );
_m->line( MASK_FIRST_LINE + 1 ); _m->line( MASK_FIRST_LINE );
_m->_pageopen = TRUE; _m->_pageopen = TRUE;
@ -1212,79 +1248,6 @@ void TMask_generator::genera( const TString& profilo )
intestazione_pagina( ); intestazione_pagina( );
} }
/*
last = _campi.items( );
for( i = 0; i < last; i ++ )
{
TString nome = (( TField & )_campi[ i ]).nome( );
int stato = stato_del_campo( nome );
if( stato != S_NASCOSTO )
{
const int addgruppo = (( TField & )_campi[ i ]).gruppo( );
const int ordine = 0; //ordine_del_gruppo( addgruppo );
if( ordine )
{
TString16 chiave;
chiave.format( "%5d", addgruppo );
if ( !gruppi.is_key( chiave ) )
gruppi.add( chiave, new TGruppo( addgruppo, _groupsini ) );
}
else
{
// Se il gruppo non compare nell'elenco dei gruppi,
stato = S_NASCOSTO;
}
}
(( TField & )_campi[ i ]).stato( stato );
// (( TField & )_campi[ i ]).ordine( ordine );
};
_campi.sort( );
// Generazione vera e propria
_m->_pageopen = TRUE;
last = _campi.items( );
int curgruppo = 0;
for( i = 0; i < last; i ++ )
{
if ( _m->_pageopen == FALSE)
{
intestazione_pagina( );
_m->_pageopen = TRUE;
}
TField& campo = ( TField& ) _campi[ i ];
if ( campo.gruppo( ) != curgruppo )
{
TString16 chiave;
chiave.format( "%5d", campo.gruppo( ) );
if ( gruppi.is_key( chiave ) )
{
TGruppo& gruppo = ( TGruppo& ) gruppi[ chiave ];
if ( _m->line( ) + gruppo.height( ) > MAX_LINES_PER_PAGE )
{
_m->end( );
intestazione_pagina( );
_m->line( MASK_FIRST_LINE );
}
else
{
TString16 vecchiachiave;
vecchiachiave.format( "%5d", curgruppo );
if ( gruppi.is_key( vecchiachiave ) )
{
_m->line( _m->line( ) + ( ( TGruppo& ) gruppi[ vecchiachiave ]).height( ) );
}
}
}
curgruppo = campo.gruppo( );
}
campo.configura( *_pro );
campo.genera( *_m );
}
if ( _m->_pageopen == TRUE ) _m->end( );
intestazione_pagina( );
*/
// Generazione del listbox per i tipi di riga da aggiungere nello sheet // Generazione del listbox per i tipi di riga da aggiungere nello sheet
_m->control ( T_LISTA, F_LBTIPORIGA, 30 ); _m->control ( T_LISTA, F_LBTIPORIGA, 30 );
@ -1294,22 +1257,13 @@ void TMask_generator::genera( const TString& profilo )
// Generazione dello sheet : vedi il profilo // Generazione dello sheet : vedi il profilo
TScanner sheet_in( "ve0300b.dat" ); TScanner sheet_in( "ve0300b.dat" );
_m->_out << "SPREADSHEET " << F_SHEET << " 76 6 \n"; _m->_out << "SPREADSHEET " << F_SHEET << "\n";
// _m->_out << "SPREADSHEET " << F_SHEET << " 76 10 \n";
_m->begin( ); _m->begin( );
_m->prompt( 2, 7 ); _m->prompt( 2, 7 );
for( i = 0; i < _tab0300b.items( ); i ++ ) for( i = 0; i < _tab0300b.items( ); i ++ )
genera_item_sheet( _tab0300b.row( i ) ); genera_item_sheet( _tab0300b.row( i ) );
_m->end( ); _m->end( );
// Campo memo per mostrare le righe
_m->control( T_MEMO, F_MEMORIGA, 7604 );
_m->begin( );
_m->prompt( 2, 14, " " );
_m->field( "34->DESCEST" );
_m->flag( "D" );
_m->end( );
_m->end( ); _m->end( );
// Generazione pagina dei piedi // Generazione pagina dei piedi

2
ve/ve0300.uml
View File

@ -1,4 +1,4 @@
#include "VeUML1.h" \#include "VeUML1.h"
TIPOCF |TIPOCF |F_TIPOCF |2|Tipo cliente/fornitore |1| TIPOCF |TIPOCF |F_TIPOCF |2|Tipo cliente/fornitore |1|
CODCF |CODCF |F_CODCF |3|Codice cliente/fornitore |6|R|§ CODCF |CODCF |F_CODCF |3|Codice cliente/fornitore |6|R|§

2693
ve/ve0300a.src
View File

File diff suppressed because it is too large Load Diff

86
ve/ve0300c.ini
View File

@ -1,121 +1,121 @@
[100] [100]
HEIGHT=5 HEIGHT=7
CONFIGS= CONFIGS=
[101]
HEIGHT=1
[200] [200]
HEIGHT=2 HEIGHT=2
CONFIGS=
[300] [300]
HEIGHT=1 HEIGHT=1
CONFIGS=
[400] [400]
HEIGHT=1 HEIGHT=1
CONFIGS=
[500] [500]
HEIGHT=2 HEIGHT=5
CONFIGS=
[600] [600]
HEIGHT=2 HEIGHT=2
CONFIGS=
[700] [700]
HEIGHT=2 HEIGHT=2
CONFIGS=
[800] [800]
HEIGHT=2 HEIGHT=2
CONFIGS=
[810]
HEIGHT=1
[820]
HEIGHT=1
[830]
HEIGHT=1
[900] [900]
HEIGHT=5 HEIGHT=8
CONFIGS=
[1000] [1000]
HEIGHT=2 HEIGHT=2
CONFIGS=
[1100] [1100]
HEIGHT=1 HEIGHT=1
CONFIGS=
[1110]
HEIGHT=1
[1200] [1200]
HEIGHT=3 HEIGHT=1
CONFIGS=
[1210]
HEIGHT=1
[1300] [1300]
HEIGHT=1 HEIGHT=2
CONFIGS=
[1400] [1400]
HEIGHT=1 HEIGHT=1
CONFIGS=
[1500] [1500]
HEIGHT=6 HEIGHT=3
CONFIGS=
[1600] [1600]
HEIGHT=1 HEIGHT=1
CONFIGS=
[1700] [1700]
HEIGHT=2 HEIGHT=3
CONFIGS=
[1800] [1800]
HEIGHT=2 HEIGHT=2
CONFIGS=
[1900] [1900]
HEIGHT=3 HEIGHT=3
CONFIGS=
[2000] [2000]
HEIGHT=1 HEIGHT=1
CONFIGS=
[2100] [2100]
HEIGHT=4 HEIGHT=2
CONFIGS=
[2200] [2200]
HEIGHT=1 HEIGHT=1
CONFIGS=
[2300] [2300]
HEIGHT=1 HEIGHT=1
CONFIGS=
[2400] [2400]
HEIGHT=1 HEIGHT=1
CONFIGS=
[2500] [2500]
HEIGHT=3 HEIGHT=3
CONFIGS=
[2600] [2600]
HEIGHT=4 HEIGHT=3
CONFIGS=
[27] [2700]
HEIGHT=6 HEIGHT=2
CONFIGS=
[28] [2710]
HEIGHT=2
[2800]
HEIGHT=1 HEIGHT=1
CONFIGS=
[29] [2900]
HEIGHT=2
[3000]
HEIGHT=1
[3200]
HEIGHT=1
[3400]
HEIGHT=4 HEIGHT=4
CONFIGS=
[0] [0]
HEIGHT = HEIGHT =


8
ve/veuml.h
View File

@ -1,6 +1,7 @@
#ifndef __VEUML_H #ifndef __VEUML_H
#define __VEUML_H #define __VEUML_H
#define DLG_NULL -1 // da eliminare quando si potranno compilare le maschere
#define F_CODNUM 101 // GESTITO DAL MOTORE #define F_CODNUM 101 // GESTITO DAL MOTORE
#define F_ANNO 102 // GESTITO DAL MOTORE #define F_ANNO 102 // GESTITO DAL MOTORE
#define F_PROVV 103 // GESTITO DAL MOTORE #define F_PROVV 103 // GESTITO DAL MOTORE
@ -81,5 +82,12 @@
#define DLG_ELABORA 178 // GESTITO DAL MOTORE: bottone Elabora #define DLG_ELABORA 178 // GESTITO DAL MOTORE: bottone Elabora
#define F_ATTIVAANNO 179 // GESTITO DAL MOTORE #define F_ATTIVAANNO 179 // GESTITO DAL MOTORE
#define F_OCCASEDIT 180 // GESTITO DAL MOTORE #define F_OCCASEDIT 180 // GESTITO DAL MOTORE
#define F_CATVEN 181
#define F_SCONFIS 182 // Andrea ?? verificare
#define F_RICFIS 183 // Andrea ?? verificare
#define F_SPESEADD1 184 // Andrea ?? verificare
#define F_SPESEADD2 185 // Andrea ?? verificare
#define F_SPESEADD3 186 // Andrea ?? verificare
#define F_SPESEADD4 187 // Andrea ?? verificare
#endif // veuml.h #endif // veuml.h

9
ve/veuml1.h
View File

@ -61,4 +61,13 @@
#define F_STATOSP 346 #define F_STATOSP 346
#define F_DESSTATOSP 347 #define F_DESSTATOSP 347
#define F_DESLIST 348 #define F_DESLIST 348
#define F_DESCONT 349
#define F_DESCAMP 350
#define F_DESCATVEN 351
#define F_DESSPMEZZO 352
#define F_DESAG 353
#define F_DESAGVIS 354
#define F_DESPORTO 355
#define F_DESNOTESP1 356
#define F_DESNOTESP2 357
#endif // __VEUML1_H #endif // __VEUML1_H