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

Sistemazione tabelle etc...

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3530 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1996-09-05 16:44:31 +00:00
parent db82d5d19f
commit ec750c7e02
35 changed files with 3512 additions and 2596 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
ve/basteld.uml Executable file
View File

@ -0,0 +1,42 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Elaborazioni differite" -1 -1 50 8
STRING F_INIZIO1 8
BEGIN
PROMPT 2 1 "Da cod. elaborazione "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %ELD
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. elaborazione differita" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 8
BEGIN
PROMPT 2 3 "A cod. elaborazione "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ve/bastfrd.uml Executable file
View File

@ -0,0 +1,42 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Formule documenti" -1 -1 50 8
STRING F_INIZIO1 10
BEGIN
PROMPT 2 1 "Da cod. formula "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %FRD
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. formula documento" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 10
BEGIN
PROMPT 2 3 "A cod. formula "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ve/bastfrr.uml Executable file
View File

@ -0,0 +1,42 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Formule righe documenti" -1 -1 50 8
STRING F_INIZIO1 10
BEGIN
PROMPT 2 1 "Da cod. formula "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %FRR
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. formula documento" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 10
BEGIN
PROMPT 2 3 "A cod. formula "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

66
ve/bastmag.uml Executable file
View File

@ -0,0 +1,66 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Magazzini e depositi" -1 -1 58 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da magazzino "
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[1,3]
USE MAG
INPUT CODTAB[1,3] F_INIZIO1
INPUT CODTAB[4,5] F_INIZIO2
DISPLAY "Codice Magazzino" CODTAB[1,3]
DISPLAY "Codice Deposito" CODTAB[4,5]
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,3]
OUTPUT F_INIZIO2 CODTAB[4,5]
GROUP 1
END
STRING F_INIZIO2 2
BEGIN
PROMPT 28 1 "Da deposito "
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[4,5]
COPY ALL F_INIZIO1
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A magazzino "
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[1,3]
COPY USE F_INIZIO1
INPUT CODTAB[1,3] F_FINE1
INPUT CODTAB[4,5] F_FINE2
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,3]
OUTPUT F_FINE2 CODTAB[4,5]
GROUP 2
END
STRING F_FINE2 2
BEGIN
PROMPT 28 3 "A deposito "
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[4,5]
COPY ALL F_FINE1
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ve/bastnum.uml Executable file
View File

@ -0,0 +1,42 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Numerazione documenti" -1 -1 50 8
STRING F_INIZIO1 4
BEGIN
PROMPT 2 1 "Da cod. numerazione "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %NUM
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. numerazione" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 4
BEGIN
PROMPT 2 3 "A cod. numerazione "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ve/bastprs.uml Executable file
View File

@ -0,0 +1,42 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Prestazioni" -1 -1 50 8
STRING F_INIZIO1 8
BEGIN
PROMPT 2 1 "Da cod. prestazione "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE PRS
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. prestazione" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 8
BEGIN
PROMPT 2 3 "A cod. prestazione "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ve/bastspp.uml Executable file
View File

@ -0,0 +1,42 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Spese" -1 -1 50 8
STRING F_INIZIO1 8
BEGIN
PROMPT 2 1 "Da cod. spesa "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE SPP
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. spesa" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 8
BEGIN
PROMPT 2 3 "A cod. spesa "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ve/basttip.uml Executable file
View File

@ -0,0 +1,42 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Tipi documento" -1 -1 50 8
STRING F_INIZIO1 4
BEGIN
PROMPT 2 1 "Da cod. tipo documento "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %NUM
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. tipo documento" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 4
BEGIN
PROMPT 2 3 "A cod. tipo documento "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ve/basttri.uml Executable file
View File

@ -0,0 +1,42 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Profilo righe documento" -1 -1 50 8
STRING F_INIZIO1 4
BEGIN
PROMPT 2 1 "Da cod. tipo riga doc. "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %TRI
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. profilo riga doc." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 4
BEGIN
PROMPT 2 3 "A cod. tipo riga doc. "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

92
ve/batbeld.rpt Executable file
View File

@ -0,0 +1,92 @@
[Headers]
132
Tabella Elaborazioni differite
1|@2g%s|Cod. Tabella
1|@16g%s|Descrizione
1|@68g%s|Tipo elaborazione
2|@2g%s|Documento originale
2|@80g%s|Documento finale
2|@120g%s|Tipo Num.
3|@2g%s|Num.
3|@10g%s|Tipo 1
3|@18g%s|Tipo 2
3|@26g%s|Tipo 3
3|@34g%s|Tipo 4
3|@42g%s|Tipo 5
3|@50g%s|S.1
3|@54g%s|S.2
3|@58g%s|S.3
3|@62g%s|S.4
3|@66g%s|S.5
3|@70g%s|S.f
3|@80g%s|Tipo
3|@88g%s|S.f
3|@92g%s|Num.
4|@2g%s|Condizioni per raggruppamento documento
4|@86g%s|Ragg. righe
5|@2g%s|Cambio
5|@9g%s|Sconto
5|@16g%s|Doc.
5|@23g%s|Num.
5|@30g%s|Spediz.
5|@37g%s|Porto
5|@44g%s|Pag.
5|@51g%s|App.
5|@58g%s|List.
5|@65g%s|Agente
5|@72g%s|Trasp.
5|@79g%s|Vett.
5|@86g%s|Somma
5|@93g%s|Mag.
5|@100g%s|IVA
5|@106g%s|P.zzo
5|@112g%s|G.rif.
5|@119g%s|Rif.t.
5|@126g%s|I.r.d.
[Rows]
1|CODTAB|@2g@8s
1|S0|@16g@50,ls
1|S3|@68g@50t
2|S5|@2g@8,ls
2|S2[1,4]|@10g@8,ls
2|S2[5,8]|@18g@8,ls
2|S2[9,12]|@26g@8,ls
2|S2[13,15]|@34g@8,ls
2|S2[16,19]|@42g@8,ls
2|S7[1,1]|@50g@4,cs
2|S7[2,2]|@54g@4,cs
2|S7[3,3]|@58g@4,cs
2|S7[4,4]|@62g@4,cs
2|S7[5,5]|@66g@4,cs
2|S4|@70g@4,cs
2|S8|@80g@8,ls
2|S9|@88g@4,cs
2|S6|@92g@8,ls
2|B4|@120g@12t
3|S1[1,1]|@2g@7,cs
3|S1[2,2]|@9g@7,cs
3|S1[3,3]|@16g@7,cs
3|S1[4,4]|@23g@7,cs
3|S1[5,5]|@30g@7,cs
3|S1[6,6]|@37g@7,cs
3|S1[7,7]|@44g@7,cs
3|S1[8,8]|@51g@7,cs
3|S1[9,9]|@58g@7,cs
3|S1[10,10]|@65g@7,cs
3|S1[11,11]|@72g@7,cs
3|S1[12,12]|@79g@7,cs
3|B0|@86g@7,cf
3|S1[40,40]|@93g@7,cs
3|S1[41,41]|@100g@6,cs
3|S1[42,42]|@106g@6,cs
3|B1|@112g@7,cf
3|B2|@119g@7,cf
3|B3|@128g@4,cf
[Translations]
4|S3| |Altro
4|S3|CO|Consegna Ordini
4|S3|FB|Fatturazione bolle
4|S3|SM|Scarico magazzino
4|S3|TC|Trasferimento a contabilita'
4|B4| |Definitiva
4|B4|X|Provvisoria

17
ve/batbfrd.rpt Executable file
View File

@ -0,0 +1,17 @@
[Headers]
132
Tabella Formule documento
1|@2g%s|Cod. Tabella
1|@16g%s|Descrizione
2|@16g%s|Picture presentazione
2|@40g%s|Tipo formula
2|@70g%s|Formula
[Rows]
1|CODTAB|@2g@8s
1|S0|@16g@50,ls
2|S3|@16g@20,ls
2|B0|@40g@15t
2|S1|@70g@50,ls
[Translations]
4|B0| |Non numerica
4|B0|X|Numerica

17
ve/batbfrr.rpt Executable file
View File

@ -0,0 +1,17 @@
[Headers]
132
Tabella Formule righe documento
1|@2g%s|Cod. Tabella
1|@16g%s|Descrizione
2|@16g%s|Picture presentazione
2|@40g%s|Tipo formula
2|@70g%s|Formula
[Rows]
1|CODTAB|@2g@8s
1|S0|@16g@50,ls
2|S3|@16g@20,ls
2|B0|@40g@15t
2|S1|@70g@50,ls
[Translations]
4|B0| |Non numerica
4|B0|X|Numerica

70
ve/batbmag.h
View File

@ -1,37 +1,37 @@
#define F_CODICE 101 #define F_CODICE 101
#define F_DESCR 102 #define F_DESCR 102
#define F_CODDEP 123 #define F_CODDEP 103
#define F_DESDEP 124 #define F_DESDEP 104
#define F_IND 103 #define F_IND 105
#define F_LOC 104 #define F_LOC 106
#define F_CAP 105 #define F_CAP 107
#define F_PROV 106 #define F_PROV 108
#define F_CIV 127 #define F_CIV 109
#define F_COM 128 #define F_COM 110
#define F_NATMAG 107 #define F_NATMAG 111
#define F_CODMAGSTA 108 #define F_CODMAGSTA 112
#define F_CODLGIOR 109 #define F_CODLGIOR 113
#define F_CODLUNICO 110 #define F_CODLUNICO 114
#define F_GESTGIA 111 #define F_GESTGIA 115
#define F_STALDIS 112 #define F_STALDIS 116
#define F_FREQSTA 113 #define F_FREQSTA 117
#define F_STAFISART 114 #define F_STAFISART 118
#define F_STAFISCAU 115 #define F_STAFISCAU 119
#define F_ULTCORR 116 #define F_ULTCORR 120
#define F_PAGULTCORR 117 #define F_PAGULTCORR 121
#define F_ULTPREC 118 #define F_ULTPREC 122
#define F_PAGULTPREC 119 #define F_PAGULTPREC 123
#define F_STARIS 120 #define F_STARIS 124
#define F_LUNGMOD 121 #define F_LUNGMOD 125
#define F_INTDITTA 122 #define F_INTDITTA 126
#define H_CODICE 125 #define H_CODICE 127
#define H_DESCR 126 #define H_DESCR 128
#define F_DITTA 127 #define F_DITTA 129
#define F_UNLOC 128 #define F_UNLOC 130
#define H_IND 129 #define H_IND 131
#define H_CIV 130 #define H_CIV 132
#define H_CAP 131 #define H_CAP 133
#define H_COM 132 #define H_COM 134
#define H_LOC 133 #define H_LOC 135
#define H_PROV 134 #define H_PROV 136
#define F_ANNO 135 #define F_ANNO 137

64
ve/batbmag.rpt Executable file
View File

@ -0,0 +1,64 @@
[Relations]
13;COM==S5
[Headers]
132
Tabella Banche
1|@2g%s|Cod.Mag.
1|@12g%s|Cod.Dep.
1|@22g%s|Descrizione
1|@74g%s|U.Loc.
1|@82g%s|Natura del magazzino
2|@12g%s|Sede : Indirizzo
2|@49g%s|N.
2|@61g%s|C.A.P.
2|@69g%s|Comune
2|@125g%s|Pr.
3|@12g%s|Mag.
3|@19g%s|L.G.
3|@26g%s|L.U.
3|@34g%s|Dep.
3|@42g%s|C.F.A.
3|@50g%s|Freq.
3|@58g%s|R.F.A.
3|@66g%s|R.F.C.
3|@74g%s|Pag.
3|@81g%s|Data
3|@93g%s|Pag.
3|@100g%s|Data
3|@112g%s|Intest.
3|@120g%s|St.r.
3|@127g%s|L.mod.
[Rows]
1|CODTAB[1,3]|@2g@3s
1|CODTAB[4,5]|@12g@2s
1|S0|@22g@50,ls
1|I1|@74g@3n
1|I2|@82g@50t
2|S2|@12g@35,ls
2|S7|@49g@10,ls
2|S3|@61g@5,ls
2|13->DENCOM|@69g@50,ls
2|13->PROVCOM|@125g@2,ls
3|S6|@12g@3s
3|S8|@19g@3s
3|S9|@26g@3s
3|B0|@34g@2f
3|B1|@42g@2f
3|I4|@50g@2n
3|B2|@58g@2f
3|B3|@66g@2f
3|I5|@74g@3n
3|D0|@81g@10d
3|I6|@93g@3n
3|D1|@100g@10d
3|B4|@112g@2f
3|B5|@120g@2f
3|I7|@127g@2n
[Translations]
5|I2|1|Proprietà dell'azienda
5|I2|2|Materiale nostro in lavorazione presso terzi
5|I2|3|Materiale nostro in deposito presso terzi
5|I2|4|Materiale di terzi in lavorazione presso l'azienda
5|I2|5|Materiale di terzi in deposito presso l'azienda

2
ve/batbmag.uml
View File

@ -229,7 +229,7 @@ END
LISTBOX F_NATMAG 1 50 LISTBOX F_NATMAG 1 50
BEGIN BEGIN
PROMPT 2 17 "Natura del magazzino " PROMPT 2 17 "Natura del magazzino "
FIELD MAG->I1 FIELD MAG->I2
ITEM "1|Proprietà dell'azienda " ITEM "1|Proprietà dell'azienda "
ITEM "2|Materiale nostro in lavorazione presso terzi" ITEM "2|Materiale nostro in lavorazione presso terzi"
ITEM "3|Materiale nostro in deposito presso terzi" ITEM "3|Materiale nostro in deposito presso terzi"

25
ve/batbnum.rpt Executable file
View File

@ -0,0 +1,25 @@
[Headers]
132
Tabella Numerazione documenti
1|@2g%s|Cod. Tabella
1|@16g%s|Descrizione
1|@68g%s|Prefisso
1|@77g%s|Suffisso
1|@86g%s|Provv/def.
1|@100g%s|Aut.
1|@105g%s|Tipi documenti validi
[Rows]
1|CODTAB|@2g@8s
1|S0|@16g@50,ls
1|S6|@68g@7,ls
1|S7|@77g@7,ls
1|B0|@86g@10t
1|B1|@100g@2,cf
1|S2[1,4]|@105g@4,ls
1|S2[5,8]|@110g@4,ls
1|S2[9,12]|@115g@4,ls
1|S2[13,16]|@120g@4,ls
1|S2[17,20]|@125g@4,ls
[Translations]
4|B0| |Definitiva
4|B0|X|Provvisoria

12
ve/batbprs.h Executable file
View File

@ -0,0 +1,12 @@
#define F_CODICE 101
#define F_DESCR 102
#define F_CODASSFIS 103
#define F_CODASSFIS1 104
#define F_CODDIV 105
#define F_CODDIV1 106
#define F_PREZZO 107
#define F_UM 108
#define F_GRUPPO 109
#define F_CONTO 110
#define F_SOTTO 111
#define F_DESCRCONTO 112

25
ve/batbprs.rpt Executable file
View File

@ -0,0 +1,25 @@
[Relations]
19;GRUPPO==I0|CONTO==I1|SOTTOCONTO==I2
[Headers]
132
Tabella prestazioni
1|@2g%s|Cod. Tabella
1|@16g%s|Descrizione
1|@68g%s|IVA
1|@74g%s|Valuta
1|@82g%s|Prezzo
1|@97g%s|UM
2|@16g%s|Cod. Conto
2|@36g%s|Descrizione conto
[Rows]
1|CODTAB|@2g@8s
1|S0|@16g@50,ls
1|S3|@68g@4s
1|S4|@74g@4s
1|R0|@82g@13n
1|S7|@97g@2s
2|I0|@16g@3n
2|I1|@21g@3n
2|I2|@26g@7n
2|19->DESCR|@36g@40,ls

154
ve/batbprs.uml Executable file
View File

@ -0,0 +1,154 @@
#include "batbprs.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella prestazioni" 11 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 8
BEGIN
PROMPT 2 2 "Cod. tabella "
FIELD SPP->CODTAB
KEY 1
USE PRS
FLAGS "U"
INPUT CODTAB F_CODICE
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50 " S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD SPP->S0
KEY 2
USE SPP KEY 2
INPUT S0 F_DESCR
DISPLAY "Descrizione@50 " S0
DISPLAY "Codice " CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_CODASSFIS 4
BEGIN
PROMPT 2 7 "Codice IVA "
FIELD SPP->S3
FLAGS "U"
USE %IVA
INPUT CODTAB F_CODASSFIS
DISPLAY "Codice " CODTAB
DISPLAY "D2escrizione@50" S0
OUTPUT F_CODASSFIS CODTAB
OUTPUT F_CODASSFIS1 S0
CHECKTYPE NORMAL
END
STRING F_CODASSFIS1 50
BEGIN
PROMPT 25 7 ""
FLAG "D"
END
STRING F_CODDIV 4
BEGIN
PROMPT 2 8 "Codice valuta"
FIELD SPP->S4
FLAGS "U"
USE %VAL
INPUT CODTAB F_CODDIV
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODDIV CODTAB
OUTPUT F_CODDIV1 S0
CHECKTYPE NORMAL
END
STRING F_CODDIV1 50
BEGIN
PROMPT 25 8 ""
FLAG "D"
END
NUMBER F_PREZZO 13 2
BEGIN
PROMPT 2 10 "Prezzo "
FIELD SPP->R0
END
STRING F_UM 2
BEGIN
PROMPT 35 10 "U.M. "
FIELD S7
FLAGS "U"
USE %UMS
INPUT CODTAB F_UM
DISPLAY "U.M." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_UM CODTAB
CHECKTYPE NORMAL
END
NUMBER F_GRUPPO 3
BEGIN
PROMPT 2 12 "Codice conto "
FIELD SPP->I0
CHECKTYPE NORMAL
END
NUMBER F_CONTO 3
BEGIN
PROMPT 20 12 ""
FIELD SPP->I1
USE LF_PCON
INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
CHECKTYPE NORMAL
ADD RUN CG0 -0
END
NUMBER F_SOTTO 6
BEGIN
PROMPT 28 12 ""
FIELD SPP->I2
USE LF_PCON
INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO
INPUT SOTTOCONTO F_SOTTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTO SOTTOCONTO
OUTPUT F_DESCRCONTO DESCR
CHECKTYPE NORMAL
ADD RUN CG0 -0
END
STRING F_DESCRCONTO 50
BEGIN
PROMPT 15 14 ""
FLAG "D"
END
ENDMASK

2
ve/batbrfa.rpt
View File

@ -1,5 +1,5 @@
[Relations] [Relations]
ASF,CODTAB=S8,1,0,200 ASF;CODTAB=S8,1,0,200
[Headers] [Headers]
132 132

43
ve/batbspp.h
View File

@ -1,26 +1,17 @@
#define F_CODICE 101 #define F_CODICE 101
#define F_DESCR 102 #define F_DESCR 102
#define F_CODASSFIS 103 #define F_CODASSFIS 103
#define F_CODASSFIS1 125 #define F_CODASSFIS1 104
#define F_CODDIV 104 #define F_CODDIV 105
#define F_CODDIV1 105 #define F_CODDIV1 106
#define F_PREZZO 106 #define F_PREZZO 107
#define F_VALORE 107 #define F_QTA 108
#define F_NCAMPOCAL 108 #define F_NCAMPOCAL 109
#define F_NCAMPOCAL1 122 #define F_NCAMPOCAL1 110
#define F_PERCENTUALE 109 #define F_PERCENTUALE 111
#define F_TIPO 110 #define F_GRUPPO 112
#define F_INCASSO 111 #define F_CONTO 113
#define F_STAMPA 112 #define F_SOTTO 114
#define F_CODTABAGG 113 #define F_DESCRCONTO 115
#define F_CODTABAGG1 114 #define F_CAMPI 116
#define F_NCAMPOAUTOM 115 #define F_UM 117
#define F_NCAMPOAUTOM1 116
#define F_SEGNO 117
#define F_GRUPPO 118
#define F_CONTO 119
#define F_SOTTO 120
#define F_DESCRCONTO 121
#define F_CODMOVCOM 123
#define F_CODMOVCOM1 124
#define F_CAMPI 125

34
ve/batbspp.rpt Executable file
View File

@ -0,0 +1,34 @@
[Relations]
19;GRUPPO==I0|CONTO==I1|SOTTOCONTO==I2
%FRD;CODTAB==S5;1;0;200
[Headers]
132
Tabella Spese
1|@2g%s|Cod. Tabella
1|@16g%s|Descrizione
1|@68g%s|IVA
1|@74g%s|Valuta
1|@82g%s|Prezzo
1|@97g%s|Q.ta
1|@112g%s|%
1|@120g%s|U.M.
2|@16g%s|Cod.form.
2|@28g%s|Formula
2|@80g%s|Cod. Conto
2|@92g%s|Descrizione conto
[Rows]
1|CODTAB|@2g@8s
1|S0|@16g@50,ls
1|S3|@68g@4s
1|S4|@74g@4s
1|R0|@82g@13n
1|R1|@97g@13n
1|R2|@112g@5n
1|S7|@120g@2s
2|S5|@16g@10,ls
2|-200->S1|@28g@50,ls
2|I0|@80g@3n
2|I1|@85g@3n
2|I2|@90g@7n
2|19->DESCR|@92g@40,ls

146
ve/batbspp.uml
View File

@ -4,7 +4,7 @@ TOOLBAR "" 0 20 60 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella spese e prestazioni " 11 60 14 PAGE "Tabella spese " 11 60 14
GROUPBOX DLG_NULL 75 7 GROUPBOX DLG_NULL 75 7
BEGIN BEGIN
@ -12,7 +12,7 @@ BEGIN
FLAGS "R" FLAGS "R"
END END
STRING F_CODICE 3 STRING F_CODICE 8
BEGIN BEGIN
PROMPT 2 2 "Cod. tabella " PROMPT 2 2 "Cod. tabella "
FIELD SPP->CODTAB FIELD SPP->CODTAB
@ -45,14 +45,16 @@ END
STRING F_CODASSFIS 4 STRING F_CODASSFIS 4
BEGIN BEGIN
PROMPT 2 7 "Codice IVA " PROMPT 2 7 "Codice IVA "
FIELD SPP->S3 FIELD SPP->S3
FLAG "U"
USE %IVA USE %IVA
INPUT CODTAB F_CODASSFIS INPUT CODTAB F_CODASSFIS
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
DISPLAY "D2escrizione@50" S0 DISPLAY "D2escrizione@50" S0
OUTPUT F_CODASSFIS CODTAB OUTPUT F_CODASSFIS CODTAB
OUTPUT F_CODASSFIS1 S0 OUTPUT F_CODASSFIS1 S0
CHECKTYPE NORMAL
END END
STRING F_CODASSFIS1 50 STRING F_CODASSFIS1 50
@ -63,14 +65,16 @@ END
STRING F_CODDIV 4 STRING F_CODDIV 4
BEGIN BEGIN
PROMPT 2 8 "Codice valuta " PROMPT 2 8 "Codice valuta"
FIELD SPP->S4 FIELD SPP->S4
USE VAL FLAG "U"
USE %VAL
INPUT CODTAB F_CODDIV INPUT CODTAB F_CODDIV
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODDIV CODTAB OUTPUT F_CODDIV CODTAB
OUTPUT F_CODDIV1 S0 OUTPUT F_CODDIV1 S0
CHECKTYPE NORMAL
END END
STRING F_CODDIV1 50 STRING F_CODDIV1 50
@ -81,111 +85,79 @@ END
LISTBOX F_CAMPI 15 LISTBOX F_CAMPI 15
BEGIN BEGIN
PROMPT 2 10 "Campo da proporre " PROMPT 2 10 "Campo da proporre "
FIELD SPP->S6 FIELD SPP->S6
ITEM "Q|Qta prezzo " ITEM "Q|Qta prezzo "
MESSAGE HIDE,F_VALORE|HIDE,F_PERCENTUALE|SHOW,F_PREZZO MESSAGE HIDE,F_PERCENTUALE|SHOW,F_PREZZO|SHOW,F_QTA|ENABLE,F_QTA|RESET,F_PERCENTUALE|RESET,F_QTA|SHOW,F_UM
ITEM "V|Valore " ITEM "V|Valore "
MESSAGE HIDE,F_PREZZO|HIDE,F_PERCENTUALE|SHOW,F_VALORE MESSAGE HIDE,F_PERCENTUALE|SHOW,F_PREZZO|SHOW,F_QTA|"1",F_QTA|DISABLE,F_QTA|RESET,F_PERCENTUALE|SHOW,F_UM
ITEM "P|Percentuale " ITEM "P|Percentuale "
MESSAGE HIDE,F_PREZZO|HIDE,F_VALORE|SHOW,F_PERCENTUALE MESSAGE HIDE,F_PREZZO|SHOW,F_PERCENTUALE|HIDE,F_QTA|RESET,F_PREZZO|RESET,F_QTA|HIDE,F_UM
END END
NUMBER F_PREZZO 13 2 NUMBER F_PREZZO 13 2
BEGIN BEGIN
PROMPT 50 10 "Prezzo " PROMPT 2 11 "Prezzo "
FIELD SPP->R0 FIELD SPP->R0
END END
NUMBER F_VALORE 13 2 NUMBER F_QTA 13 2
BEGIN BEGIN
PROMPT 50 10 "Valore " PROMPT 35 11 "Quantita' "
FIELD SPP->R1 FIELD SPP->R1
END END
STRING F_UM 2
BEGIN
PROMPT 63 11 "U.M. "
FIELD S7
FLAGS "U"
USE %UMS
INPUT CODTAB F_UM
DISPLAY "U.M." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_UM CODTAB
CHECKTYPE NORMAL
END
NUMBER F_PERCENTUALE 5 2 NUMBER F_PERCENTUALE 5 2
BEGIN BEGIN
PROMPT 50 10 "Percentuale " PROMPT 2 11 "Percentuale "
FIELD SPP->R2 FIELD SPP->R2
END END
STRING F_NCAMPOCAL 2 STRING F_NCAMPOCAL 10
BEGIN BEGIN
PROMPT 2 12 "N. calcolo " PROMPT 2 13 "Formula Doc. "
FIELD SPP->I0 FIELD SPP->S5
FLAG "U"
USE %FRD
INPUT CODTAB F_NCAMPOCAL
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_NCAMPOCAL CODTAB
OUTPUT F_NCAMPOCAL1 S0
CHECKTYPE NORMAL
END END
STRING F_NCAMPOCAL1 50 STRING F_NCAMPOCAL1 50
BEGIN BEGIN
PROMPT 25 12 "" PROMPT 15 14 ""
FLAG "D" FLAG "D"
END END
LISTBOX F_TIPO 8
BEGIN
PROMPT 2 14 "Tipo spesa "
FIELD SPP->S7
ITEM "S|Spesa "
ITEM "M|Merce "
END
BOOLEAN F_INCASSO
BEGIN
PROMPT 2 16 "Spesa da incassare su prima rata "
FIELD SPP->B0
END
BOOLEAN F_STAMPA
BEGIN
PROMPT 2 17 "Stampa riga su corpo documento "
FIELD SPP->B1
END
ENDPAGE
PAGE "Tabella spese e prestazioni " 11 60 14
NUMBER F_CODTABAGG 2
BEGIN
PROMPT 2 2 "N. agg. piede "
FIELD SPP->I3
END
STRING F_CODTABAGG1 50
BEGIN
PROMPT 25 2 ""
FLAG "D"
END
NUMBER F_NCAMPOAUTOM 2
BEGIN
PROMPT 2 4 "N. calcolo spese "
FIELD SPP->I4
END
STRING F_NCAMPOAUTOM1 50
BEGIN
PROMPT 25 4 ""
FLAG "D"
END
STRING F_SEGNO 1
BEGIN
PROMPT 2 6 "Segno "
FIELD SPP->S8
END
NUMBER F_GRUPPO 3 NUMBER F_GRUPPO 3
BEGIN BEGIN
PROMPT 2 8 "Conto ric./costo " PROMPT 2 16 "Codice conto "
FIELD SPP->S2 FIELD SPP->I0
CHECKTYPE NORMAL
END END
NUMBER F_CONTO 3 NUMBER F_CONTO 3
BEGIN BEGIN
PROMPT 28 8 "" PROMPT 20 16 ""
FIELD SPP->I1 FIELD SPP->I1
USE LF_PCON SELECT (INDBIL="3")||(INDBIL="4") USE LF_PCON
INPUT GRUPPO F_GRUPPO INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO INPUT CONTO F_CONTO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
@ -193,16 +165,17 @@ BEGIN
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO OUTPUT F_CONTO CONTO
CHECKTYPE NORMAL
ADD RUN CG0 -0 ADD RUN CG0 -0
END END
NUMBER F_SOTTO 6 NUMBER F_SOTTO 6
BEGIN BEGIN
PROMPT 38 8 "" PROMPT 28 16 ""
FIELD SPP->I2 FIELD SPP->I2
USE LF_PCON USE LF_PCON
INPUT GRUPPO F_GRUPPO SELECT INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO SELECT INPUT CONTO F_CONTO
INPUT SOTTOCONTO F_SOTTO INPUT SOTTOCONTO F_SOTTO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
@ -212,27 +185,14 @@ BEGIN
OUTPUT F_CONTO CONTO OUTPUT F_CONTO CONTO
OUTPUT F_SOTTO SOTTOCONTO OUTPUT F_SOTTO SOTTOCONTO
OUTPUT F_DESCRCONTO DESCR OUTPUT F_DESCRCONTO DESCR
CHECKTYPE NORMAL
ADD RUN CG0 -0 ADD RUN CG0 -0
END END
STRING F_DESCRCONTO 50 STRING F_DESCRCONTO 50
BEGIN BEGIN
PROMPT 25 10 "" PROMPT 15 17 ""
FLAG "D" FLAG "D"
END END
STRING F_CODMOVCOM 3
BEGIN
PROMPT 2 12 "Mov. commessa "
FIELD SPP->S9
END
STRING F_CODMOVCOM1 50
BEGIN
PROMPT 25 12 ""
FLAG "D"
END
ENDPAGE
ENDMASK ENDMASK

16
ve/batbtip.rpt Executable file
View File

@ -0,0 +1,16 @@
[Headers]
132
Tabella Formule documento
1|@2g%s|Cod.
1|@7g%s|Descrizione
1|@58g%s|Riferimento
1|@109g%s|Pr.doc.
1|@118g%s|Pr.st.
1|@127g%s|Caus.
[Rows]
1|CODTAB|@2g@4s
1|S0|@7g@50,ls
1|S1|@58g@50,ls
1|S4|@109g@8,ls
1|S5|@118g@8,ls
1|S6|@127g@3,ls

2
ve/batbtip.uml
View File

@ -45,7 +45,7 @@ END
STRING F_RIFERIMENTO 50 STRING F_RIFERIMENTO 50
BEGIN BEGIN
PROMPT 2 6 "Riferimento " PROMPT 2 6 "Riferimento "
FIELD S1 FIELD S1
END END

15
ve/batbtri.rpt Executable file
View File

@ -0,0 +1,15 @@
[Headers]
132
Tabella Tipo riga documento
1|@2g%s|Cod. Tabella
1|@16g%s|Descrizione
1|@68g%s|Tipo riga
[Rows]
1|CODTAB|@2g@8s
1|S0|@16g@50,ls
1|S7|@68g@12t
[Translations]
4|S7|M|Merce
4|S7|S|Spese
4|S7|C|Sconti
4|S7|D|Descrizioni

71
ve/bollac.src
View File

@ -10,7 +10,7 @@ TYPE=Bolla di vendita
MSKFILE=BOLLAC MSKFILE=BOLLAC
FRMFILE=BOLLAC.FRM FRMFILE=BOLLAC.FRM
// modifica // modifica
PROGPIEDE=TOTNETTI|TRASPORTO|IMBALLO|GENERALI PROGPIEDE=IMPN|SCODOC|IMPS|IMPOSTA|SPESE|TOTALE|PROVVDOC
// modifica // modifica
// Procedure utente da chiamare per il documento ( preprocessarle? ) // Procedure utente da chiamare per il documento ( preprocessarle? )
NUOVO= NUOVO=
@ -130,13 +130,13 @@ DATADOCRIF = S_NASCOSTO //1000
NUMDOCRIF = S_NASCOSTO //1000 NUMDOCRIF = S_NASCOSTO //1000
CODAGVIS = S_NASCOSTO //1110 CODAGVIS = S_NASCOSTO //1110
DESAGVIS = S_NASCOSTO //1110 DESAGVIS = S_NASCOSTO //1110
CODAG = S_NASCOSTO //1100 CODAG = S_NORMALE //1100
DESAG = S_NASCOSTO //1100 DESAG = S_NORMALE //1100
CODZON = S_NORMALE //1100 CODZON = S_NORMALE //1100
DESZON = S_NORMALE //1100 DESZON = S_NORMALE //1100
CODSPMEZZO = S_OBBLIGATORIO //1200 CODSPMEZZO = S_OBBLIGATORIO //1200
DESSPMEZZO = S_NORMALE //1200 DESSPMEZZO = S_NORMALE //1200
CODPORTO = S_OBBLIGATORIO //1210 CODPORTO = S_NORMALE //1210
DESPORTO = S_NORMALE //1210 DESPORTO = S_NORMALE //1210
CODNOTESP1 = S_NORMALE //1300 CODNOTESP1 = S_NORMALE //1300
DESNOTESP1 = S_NORMALE //1300 DESNOTESP1 = S_NORMALE //1300
@ -144,13 +144,13 @@ CODNOTESP2 = S_NASCOSTO //1300
DESNOTESP2 = S_NASCOSTO //1300 DESNOTESP2 = S_NASCOSTO //1300
CAUSTRASP = S_OBBLIGATORIO //1400 CAUSTRASP = S_OBBLIGATORIO //1400
DENCAUSTRASP = S_NORMALE //1400 DENCAUSTRASP = S_NORMALE //1400
CODVETT1 = S_OBBLIGATORIO //1500 CODVETT1 = S_NORMALE //1500
CODVETT2 = S_NASCOSTO //1500 CODVETT2 = S_NASCOSTO //1500
CODVETT3 = S_NASCOSTO //1500 CODVETT3 = S_NASCOSTO //1500
NOMEVETT1 = S_NORMALE //1500 NOMEVETT1 = S_NORMALE //1500
NOMEVETT2 = S_NASCOSTO //1500 NOMEVETT2 = S_NASCOSTO //1500
NOMEVETT3 = S_NASCOSTO //1500 NOMEVETT3 = S_NASCOSTO //1500
NCOPIE = S_OBBLIGATORIO //1600 NCOPIE = S_NASCOSTO //1600
GRPARTENZA = S_NORMALE //1700 GRPARTENZA = S_NORMALE //1700
DATAPART = S_NORMALE //1700 DATAPART = S_NORMALE //1700
ORAPART = S_NORMALE //1700 ORAPART = S_NORMALE //1700
@ -164,19 +164,19 @@ ASPBENI1 = S_OBBLIGATORIO //2100
DESCRBENI1 = S_NORMALE //2100 DESCRBENI1 = S_NORMALE //2100
ASPBENI2 = S_NASCOSTO //2100 ASPBENI2 = S_NASCOSTO //2100
DESCRBENI2 = S_NASCOSTO //2100 DESCRBENI2 = S_NASCOSTO //2100
IMPNETTI = S_NASCOSTO //2200 IMPNETTI = S_NORMALE //2200
RAGGR = S_NORMALE //2300 RAGGR = S_NORMALE //2300
RAGGREFF = S_NASCOSTO //2300 RAGGREFF = S_NASCOSTO //2300
SPESEINC = S_NASCOSTO //2400 SPESEINC = S_NORMALE //2400
GRADD = S_NASCOSTO //2500 GRADD = S_NORMALE //2500
ADDBRB = S_NASCOSTO //2500 ADDBRB = S_NORMALE //2500
ADDBTR = S_NASCOSTO //2500 ADDBTR = S_NORMALE //2500
ADDBDE = S_NASCOSTO //2500 ADDBDE = S_NORMALE //2500
GRCODIVA = S_NASCOSTO //2600 GRCODIVA = S_NORMALE //2600
CODIVABRB = S_NASCOSTO //2600 CODIVABRB = S_NORMALE //2600
CODIVABTR = S_NASCOSTO //2600 CODIVABTR = S_NORMALE //2600
CODIVABTRE = S_NASCOSTO //2600 CODIVABTRE = S_NORMALE //2600
CODIVABDE = S_NASCOSTO //2600 CODIVABDE = S_NORMALE //2600
UMTARA = S_NORMALE //2710 UMTARA = S_NORMALE //2710
TARA = S_NORMALE //2710 TARA = S_NORMALE //2710
DESUMTARA = S_NASCOSTO //2710 DESUMTARA = S_NASCOSTO //2710
@ -188,6 +188,7 @@ CAUSMAG1 = S_NASCOSTO //2900
DESCRMAG1 = S_NASCOSTO //2900 DESCRMAG1 = S_NASCOSTO //2900
CAUSMAG2 = S_NASCOSTO //2900 CAUSMAG2 = S_NASCOSTO //2900
DESCRMAG2 = S_NASCOSTO //2900 DESCRMAG2 = S_NASCOSTO //2900
BLANK = S_DISABILITATO //4000
[DEFAULT] [DEFAULT]
@ -208,11 +209,12 @@ NCOLS=10
10=FR_CODIVA 10=FR_CODIVA
[RIGHE] [RIGHE]
NTIPIRIGA=4 NTIPIRIGA=5
1=01 1=01
2=02 2=02
3=03 3=03
4=04 4=04
5=05
[HANDLERS] [HANDLERS]
NHANDLER=0 NHANDLER=0
@ -239,7 +241,7 @@ NHANDLER=0
1300 = S_NORMALE 1300 = S_NORMALE
1400 = S_NORMALE 1400 = S_NORMALE
1500 = S_NORMALE 1500 = S_NORMALE
1600 = S_NORMALE 1600 = S_NASCOSTO
1700 = S_NORMALE 1700 = S_NORMALE
1800 = S_NORMALE 1800 = S_NORMALE
1900 = S_NORMALE 1900 = S_NORMALE
@ -248,15 +250,16 @@ NHANDLER=0
2200 = S_NORMALE 2200 = S_NORMALE
2300 = S_NORMALE 2300 = S_NORMALE
2400 = S_NORMALE 2400 = S_NORMALE
2500 = S_NASCOSTO 2500 = S_NORMALE
2600 = S_NORMALE 2600 = S_NORMALE
2700 = S_NORMALE 2700 = S_NORMALE
2710 = S_NORMALE 2710 = S_NORMALE
2800 = S_NORMALE 2800 = S_NORMALE
2900 = S_NORMALE 2900 = S_NORMALE
4000 = S_NORMALE
[ORDINEGRUPPI] [ORDINEGRUPPI]
NGROUPS=29 NGROUPS=30
1=100 1=100
2=200 2=200
3=300 3=300
@ -268,22 +271,24 @@ NGROUPS=29
9=810 9=810
10=820 10=820
11=830 11=830
12=2300 12=900
13=900 13=1100
14=1100 14=1200
15=1200 15=1500
16=1210 16=1210
17=1300 17=1300
18=1400 18=1400
19=1700 19=1800
20=1800 20=1900
21=1900 21=2100
22=2100 22=2300
23=2200 23=2200
24=2400 24=2800
25=2700 25=2700
26=2710 26=2710
27=2800 27=1700
28=1500 28=2400
29=1600 29=2500
30=2600


154
ve/ve0300a.src
View File

@ -1116,17 +1116,6 @@ OUTPUT=F_CAUSTRASP CODTAB~F_DENCAUSTRASP S0
WARNING=Codice di causale non trovato WARNING=Codice di causale non trovato
HELP=Inserisci il codice dalla causale del trasporto HELP=Inserisci il codice dalla causale del trasporto
//[TRASPORTO] //???Va messo???
//GROUP=1500
//X=2
//Y=0
//FIELDNAME=???
//MSKID=F_TRASPORTO
//TYPE=T_LISTA
//PROMPT="Trasporto "
//SIZE=12
//ITEMS=0|Vettore~DISABLE CODVETT1~DISABLE CODVETT2~DISABLE CODVETT3@1|Mittente~ENABLE CODVETT1~ENABLE CODVETT2~ENABLE CODVETT3@2|Destinatario~ENABLE CODVETT1~ENABLE CODVETT2~ENABLE CODVETT3
[CODVETT1] [CODVETT1]
GROUP=1500 GROUP=1500
X=2 X=2
@ -1640,89 +1629,89 @@ FLAG=U
// ??? Campi aggiunti da Andrea // ??? Campi aggiunti da Andrea
[SCONFIS] //[SCONFIS]
GROUP=3000 //GROUP=3000
X=2 //X=2
Y=0 //Y=0
//FIELDNAME=??? //FIELDNAME=???
MSKID=F_SCONFIS //MSKID=F_SCONFIS
TYPE=T_STRINGA //TYPE=T_STRINGA
PROMPT="Scontrino Fiscale " //PROMPT="Scontrino Fiscale "
SIZE=30 //SIZE=30
[RICFIS] //[RICFIS]
GROUP=3200 //GROUP=3200
X=2 //X=2
Y=0 //Y=0
//FIELDNAME=??? //FIELDNAME=???
MSKID=F_RICFIS //MSKID=F_RICFIS
TYPE=T_CHECKBOX //TYPE=T_CHECKBOX
PROMPT="Ricevuta fiscale" //PROMPT="Ricevuta fiscale"
[GRSPESEADD] //[GRSPESEADD]
GROUP=3400 //GROUP=3400
X=2 //X=2
Y=0 //Y=0
MSKID=DLG_NULL //MSKID=DLG_NULL
TYPE=T_CORNICE //TYPE=T_CORNICE
PROMPT=Spese da addebitare //PROMPT=Spese da addebitare
SIZE=4004 //SIZE=4004
[SPESEADD1] //[SPESEADD1]
GROUP=3400 //GROUP=3400
X=2 //X=2
Y=1 //Y=1
//FIELDNAME=??? //FIELDNAME=???
MSKID=F_SPESEADD1 //MSKID=F_SPESEADD1
TYPE=T_STRINGA //TYPE=T_STRINGA
PROMPT="Spesa 1 " //PROMPT="Spesa 1 "
USE=%SAD //USE=%SAD
INPUT=CODTAB F_SPESEADD1 //INPUT=CODTAB F_SPESEADD1
DISPLAY="Codice Spesa " CODTAB~"Descrizione@20" S0 //DISPLAY="Codice Spesa " CODTAB~"Descrizione@20" S0
OUTPUT=F_SPESEADD1 CODTAB //OUTPUT=F_SPESEADD1 CODTAB
SIZE=3 //SIZE=3
[SPESEADD2] //[SPESEADD2]
GROUP=3400 //GROUP=3400
X=24 //X=24
Y=1 //Y=1
//FIELDNAME=??? //FIELDNAME=???
MSKID=F_SPESEADD2 //MSKID=F_SPESEADD2
TYPE=T_STRINGA //TYPE=T_STRINGA
PROMPT="Spesa 2 " //PROMPT="Spesa 2 "
USE=@F_SPESEADD1 //USE=@F_SPESEADD1
INPUT=CODTAB F_SPESEADD2 //INPUT=CODTAB F_SPESEADD2
DISPLAY=@F_SPESEADD1 //DISPLAY=@F_SPESEADD1
OUTPUT=F_SPESEADD2 CODTAB //OUTPUT=F_SPESEADD2 CODTAB
SIZE=3 //SIZE=3
[SPESEADD3] //[SPESEADD3]
GROUP=3400 //GROUP=3400
X=2 //X=2
Y=2 //Y=2
//FIELDNAME=??? //FIELDNAME=???
MSKID=F_SPESEADD3 //MSKID=F_SPESEADD3
TYPE=T_STRINGA //TYPE=T_STRINGA
PROMPT="Spesa 3 " //PROMPT="Spesa 3 "
USE=@F_SPESEADD1 //USE=@F_SPESEADD1
INPUT=CODTAB F_SPESEADD3 //INPUT=CODTAB F_SPESEADD3
DISPLAY=@F_SPESEADD1 //DISPLAY=@F_SPESEADD1
OUTPUT=F_SPESEADD3 CODTAB //OUTPUT=F_SPESEADD3 CODTAB
SIZE=3 //SIZE=3
[SPESEADD4] //[SPESEADD4]
GROUP=3400 //GROUP=3400
X=24 //X=24
Y=2 //Y=2
//FIELDNAME=??? //FIELDNAME=???
MSKID=F_SPESEADD4 //MSKID=F_SPESEADD4
TYPE=T_STRINGA //TYPE=T_STRINGA
PROMPT="Spesa 4 " //PROMPT="Spesa 4 "
USE=@F_SPESEADD1 //USE=@F_SPESEADD1
INPUT=CODTAB F_SPESEADD4 //INPUT=CODTAB F_SPESEADD4
DISPLAY=@F_SPESEADD1 //DISPLAY=@F_SPESEADD1
OUTPUT=F_SPESEADD4 CODTAB //OUTPUT=F_SPESEADD4 CODTAB
SIZE=3 //SIZE=3
//[NATTRASP] //[NATTRASP]
//GROUP=3300 //GROUP=3300
@ -1763,3 +1752,4 @@ TYPE=T_STRINGA
PROMPT="" PROMPT=""
SIZE=1 SIZE=1


16
ve/ve0300c.ini
View File

@ -54,13 +54,13 @@ HEIGHT=1
HEIGHT=1 HEIGHT=1
[1300] [1300]
HEIGHT=2 HEIGHT=1
[1400] [1400]
HEIGHT=1 HEIGHT=1
[1500] [1500]
HEIGHT=3 HEIGHT=1
[1600] [1600]
HEIGHT=1 HEIGHT=1
@ -78,7 +78,7 @@ HEIGHT=3
HEIGHT=1 HEIGHT=1
[2100] [2100]
HEIGHT=2 HEIGHT=1
[2200] [2200]
HEIGHT=1 HEIGHT=1
@ -93,13 +93,13 @@ HEIGHT=1
HEIGHT=3 HEIGHT=3
[2600] [2600]
HEIGHT=3 HEIGHT=4
[2700] [2700]
HEIGHT=2 HEIGHT=1
[2710] [2710]
HEIGHT=2 HEIGHT=1
[2800] [2800]
HEIGHT=1 HEIGHT=1
@ -116,6 +116,10 @@ HEIGHT=1
[3400] [3400]
HEIGHT=4 HEIGHT=4
[4000]
HEIGHT=1
[0] [0]
HEIGHT = HEIGHT =


9
ve/verig.h
View File

@ -6,17 +6,19 @@
#define FR_TIPORIGA 102 #define FR_TIPORIGA 102
#define FR_CODMAG 103 #define FR_CODMAG 103
#define FR_CODDEP 104 #define FR_CODDEP 104
// CODART CODSPV CODSPQ CODSPP alternativi definirne uno solo // CODART CODSPV CODSPQ CODSPP CODPRS alternativi definirne uno solo
#define FR_CODART 105 #define FR_CODART 105
#define FR_CODSPV 105 #define FR_CODSPV 105
#define FR_CODSPQ 105 #define FR_CODSPQ 105
#define FR_CODSPP 105 #define FR_CODSPP 105
// DESCR DESCRSPV DESCPSPQ DESCRSPP alternativi definirne uno solo #define FR_CODPRS 105
// DESCR DESCRSPV DESCPSPQ DESCRSPP DESCPRS alternativi definirne uno solo
#define FR_DESCR 106 #define FR_DESCR 106
#define FR_DESCRSPV 106 #define FR_DESCRSPV 106
#define FR_DESCRSPQ 106 #define FR_DESCRSPQ 106
#define FR_DESCRSPP 106 #define FR_DESCRSPP 106
// UMQTA UMQTASP alternativi definirne uno solo #define FR_DESCRPRS 106
// UMQTA UMQTASP UMQTAPR alternativi definirne uno solo
#define FR_UMQTA 107 #define FR_UMQTA 107
#define FR_UMQTASP 107 #define FR_UMQTASP 107
// QTA PERCSP alternativi definirne uno solo // QTA PERCSP alternativi definirne uno solo
@ -25,6 +27,7 @@
// PREZZO VALORE alternativi definirne uno solo // PREZZO VALORE alternativi definirne uno solo
#define FR_PREZZO 109 #define FR_PREZZO 109
#define FR_VALORE 109 #define FR_VALORE 109
#define FR_QTAEVASA 110 #define FR_QTAEVASA 110
#define FR_RIGAEVASA 111 #define FR_RIGAEVASA 111
#define FR_TARA 112 #define FR_TARA 112

97
ve/verig.uml
View File

@ -36,6 +36,7 @@ STRING FR_STATORIGA 2
BEGIN BEGIN
PROMPT 2 1 "Stato riga " PROMPT 2 1 "Stato riga "
FLAGS "DG" FLAGS "DG"
FIELD STATORIGA
END END
STRING FR_TIPORIGA 2 STRING FR_TIPORIGA 2
@ -46,6 +47,7 @@ BEGIN
OU FR_DESTIPORIGA S0 OU FR_DESTIPORIGA S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "DG" FLAGS "DG"
FIELD TIPORIGA
END END
#ifdef FULL_SCREEN #ifdef FULL_SCREEN
@ -83,6 +85,7 @@ IFDEF(FL_CODMAG)
FLAGS FL_CODMAG FLAGS FL_CODMAG
ENDIF ENDIF
KEY 1 KEY 1
FIELD CODMAG[1,3]
END END
ENDIF ENDIF
@ -130,6 +133,7 @@ IFDEF(FL_CODDEP)
ENDIF ENDIF
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
FIELD CODMAG[4,5]
END END
ENDIF ENDIF
@ -165,12 +169,13 @@ ENDIF
IFDEF(FL_CODART) IFDEF(FL_CODART)
FLAGS FL_CODART FLAGS FL_CODART
ENDIF ENDIF
FIELD CODART
ADD RUN ve2 -3 ADD RUN ve2 -3
END END
ENDIF ENDIF
IFDEF(F_CODSPV) IFDEF(F_CODSPV)
STRING FR_CODSPV 3 STRING FR_CODSPV 8
BEGIN BEGIN
IFDEF(X_CODSPV) IFDEF(X_CODSPV)
PROMPT X_CODSPV Y_CODSPV PR_CODSPV PROMPT X_CODSPV Y_CODSPV PR_CODSPV
@ -183,9 +188,12 @@ ENDIF
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT FR_CODSPV CODTAB OUTPUT FR_CODSPV CODTAB
OUTPUT FR_DESCRSPV S0 OUTPUT FR_DESCRSPV S0
OUTPUT FR_VALORE R1 OUTPUT FR_VALORE R0
OUTPUT FR_QTA R1
OUTPUT F_UMQTASP S7
OUTPUT FR_CODIVA S3 OUTPUT FR_CODIVA S3
MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA|DISABLE,FR_QTA
FIELD CODART
IFDEF(CH_CODSPV) IFDEF(CH_CODSPV)
CHECKTYPE CH_CODSPV CHECKTYPE CH_CODSPV
ELSEIF ELSEIF
@ -195,7 +203,7 @@ END
ENDIF ENDIF
IFDEF(F_CODSPQ) IFDEF(F_CODSPQ)
STRING FR_CODSPQ 3 STRING FR_CODSPQ 8
BEGIN BEGIN
IFDEF(X_CODSPQ) IFDEF(X_CODSPQ)
PROMPT X_CODSPQ Y_CODSPQ PR_CODSPQ PROMPT X_CODSPQ Y_CODSPQ PR_CODSPQ
@ -209,8 +217,10 @@ ENDIF
OUTPUT FR_CODSPQ CODTAB OUTPUT FR_CODSPQ CODTAB
OUTPUT FR_DESCRSPQ S0 OUTPUT FR_DESCRSPQ S0
OUTPUT FR_PREZZO R0 OUTPUT FR_PREZZO R0
OUTPUT F_UMQTASP S7
OUTPUT FR_CODIVA S3 OUTPUT FR_CODIVA S3
MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
FIELD CODART
IFDEF(CH_CODSPQ) IFDEF(CH_CODSPQ)
CHECKTYPE CH_CODSPQ CHECKTYPE CH_CODSPQ
ELSEIF ELSEIF
@ -220,7 +230,7 @@ END
ENDIF ENDIF
IFDEF(F_CODSPP) IFDEF(F_CODSPP)
STRING FR_CODSPP 3 STRING FR_CODSPP 8
BEGIN BEGIN
IFDEF(X_CODSPP) IFDEF(X_CODSPP)
PROMPT X_CODSPP Y_CODSPP PR_CODSPP PROMPT X_CODSPP Y_CODSPP PR_CODSPP
@ -235,6 +245,7 @@ ENDIF
OUTPUT FR_DESCRSPP S0 OUTPUT FR_DESCRSPP S0
OUTPUT FR_PERCSP R2 OUTPUT FR_PERCSP R2
OUTPUT FR_CODIVA S3 OUTPUT FR_CODIVA S3
FIELD CODART
MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
IFDEF(CH_CODSPP) IFDEF(CH_CODSPP)
CHECKTYPE CH_CODSPP CHECKTYPE CH_CODSPP
@ -244,6 +255,33 @@ ENDIF
END END
ENDIF ENDIF
IFDEF(F_CODPRS)
STRING FR_CODPRS 8
BEGIN
IFDEF(X_CODPRS)
PROMPT X_CODPRS Y_CODPRS PR_CODPRS
ELSEIF
PROMPT 2 6 "Prestazione "
ENDIF
USE PRS
INPUT CODTAB FR_CODPRS
DISPLAY "Codice prestazione" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FR_CODPRS CODTAB
OUTPUT FR_DESCRPRS S0
OUTPUT FR_PREZZO R0
OUTPUT F_UMQTASP S7
OUTPUT FR_CODIVA S3
MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
FIELD CODART
IFDEF(CH_CODPRS)
CHECKTYPE CH_CODPRS
ELSEIF
CHECKTYPE REQUIRED
ENDIF
END
ENDIF
IFDEF(F_DESCR) IFDEF(F_DESCR)
ZOOM FR_DESCR 50 ZOOM FR_DESCR 50
BEGIN BEGIN
@ -252,6 +290,7 @@ IFDEF(X_DESCR)
ELSEIF ELSEIF
PROMPT 2 7 "Descrizione " PROMPT 2 7 "Descrizione "
ENDIF ENDIF
FIELD DESCR
END END
ENDIF ENDIF
@ -269,7 +308,7 @@ ENDIF
DISPLAY "Codice@20" CODART DISPLAY "Codice@20" CODART
OUTPUT FR_DESCRART DESCR OUTPUT FR_DESCRART DESCR
ADD RUN ve2 -3 ADD RUN ve2 -3
FIELD DUMMY FIELD DESCR
END END
ENDIF ENDIF
@ -286,7 +325,7 @@ ENDIF
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice spesa" CODTAB DISPLAY "Codice spesa" CODTAB
COPY OUTPUT FR_CODSPV COPY OUTPUT FR_CODSPV
FIELD DUMMY FIELD DESCR
END END
ENDIF ENDIF
@ -303,7 +342,7 @@ ENDIF
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice spesa" CODTAB DISPLAY "Codice spesa" CODTAB
COPY OUTPUT FR_CODSPQ COPY OUTPUT FR_CODSPQ
FIELD DUMMY FIELD DESCR
END END
ENDIF ENDIF
@ -320,7 +359,24 @@ ENDIF
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice spesa" CODTAB DISPLAY "Codice spesa" CODTAB
COPY OUTPUT FR_CODSPP COPY OUTPUT FR_CODSPP
FIELD DUMMY FIELD DESCR
END
ENDIF
IFDEF(F_DESCRPRS)
ZOOM FR_DESCRPRS 50
BEGIN
IFDEF(X_DESCRPRS)
PROMPT X_DESCRPRS Y_DESCRPRS PR_DESCRPRS
ELSEIF
PROMPT 2 7 "Descrizione "
ENDIF
USE PRS KEY 2
INPUT S0 FR_DESCRPRS
DISPLAY "Descrizione@50" S0
DISPLAY "Codice prestazione" CODTAB
COPY OUTPUT FR_CODPRS
FIELD DESCR
END END
ENDIF ENDIF
@ -339,6 +395,7 @@ ENDIF
DISPLAY "Codice@20" UM DISPLAY "Codice@20" UM
DISPLAY "Descrizione@50" %UMS->S0 DISPLAY "Descrizione@50" %UMS->S0
OUTPUT FR_UMQTA UM OUTPUT FR_UMQTA UM
FIELD UMQTA
IFDEF(CH_UMQTA) IFDEF(CH_UMQTA)
CHECKTYPE CH_UMQTA CHECKTYPE CH_UMQTA
ELSEIF ELSEIF
@ -360,6 +417,7 @@ ENDIF
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT FR_UMQTASP CODTAB OUTPUT FR_UMQTASP CODTAB
FIELD UMQTA
IFDEF(CH_UMQTASP) IFDEF(CH_UMQTASP)
CHECKTYPE CH_UMQTASP CHECKTYPE CH_UMQTASP
ELSEIF ELSEIF
@ -376,6 +434,7 @@ IFDEF(X_QTA)
ELSEIF ELSEIF
PROMPT 22 9 "Qta' " PROMPT 22 9 "Qta' "
ENDIF ENDIF
FIELD QTA
END END
ENDIF ENDIF
@ -387,7 +446,7 @@ IFDEF(X_PERCSP)
ELSEIF ELSEIF
PROMPT 22 9 "%Spesa " PROMPT 22 9 "%Spesa "
ENDIF ENDIF
FIELD DUMMY FIELD PSPESA
END END
ENDIF ENDIF
@ -399,7 +458,7 @@ IFDEF(X_PREZZO)
ELSEIF ELSEIF
PROMPT 42 9 "Prezzo " PROMPT 42 9 "Prezzo "
ENDIF ENDIF
FIELD DUMMY FIELD PREZZO
END END
ENDIF ENDIF
@ -411,7 +470,7 @@ IFDEF(X_VALORE)
ELSEIF ELSEIF
PROMPT 42 9 "Valore " PROMPT 42 9 "Valore "
ENDIF ENDIF
FIELD DUMMY FIELD PREZZO
END END
ENDIF ENDIF
@ -423,6 +482,7 @@ IFDEF(X_QTAEVASA)
ELSEIF ELSEIF
PROMPT 17 10 "Q.ta evasa " PROMPT 17 10 "Q.ta evasa "
ENDIF ENDIF
FIELD QTAEVASA
END END
ENDIF ENDIF
@ -434,6 +494,7 @@ IFDEF(X_RIGAEVASA)
ELSEIF ELSEIF
PROMPT 42 10 "Saldata " PROMPT 42 10 "Saldata "
ENDIF ENDIF
FIELD RIGAEVASA
END END
ENDIF ENDIF
@ -445,6 +506,7 @@ IFDEF(X_TARA)
ELSEIF ELSEIF
PROMPT 2 11 "Tara " PROMPT 2 11 "Tara "
ENDIF ENDIF
FIELD TARA
END END
ENDIF ENDIF
@ -456,6 +518,7 @@ IFDEF(X_PNETTO)
ELSEIF ELSEIF
PROMPT 30 11 "Peso netto " PROMPT 30 11 "Peso netto "
ENDIF ENDIF
FIELD PNETTO
END END
ENDIF ENDIF
@ -467,6 +530,7 @@ IFDEF(X_NCOLLI)
ELSEIF ELSEIF
PROMPT 2 12 "N.Colli " PROMPT 2 12 "N.Colli "
ENDIF ENDIF
FIELD NCOLLI
END END
ENDIF ENDIF
@ -478,6 +542,7 @@ IFDEF(X_DAEVADERE)
ELSEIF ELSEIF
PROMPT 22 12 "Da evadere " PROMPT 22 12 "Da evadere "
ENDIF ENDIF
FIELD DAEVADERE
END END
ENDIF ENDIF
@ -489,6 +554,7 @@ IFDEF(X_SCONTO)
ELSEIF ELSEIF
PROMPT 2 13 "Sconto " PROMPT 2 13 "Sconto "
ENDIF ENDIF
FIELD SCONTO
END END
ENDIF ENDIF
@ -500,6 +566,7 @@ IFDEF(X_PERCPROV)
ELSEIF ELSEIF
PROMPT 42 13 "Perc.Provv. " PROMPT 42 13 "Perc.Provv. "
ENDIF ENDIF
FIELD PERCPROV
END END
ENDIF ENDIF
@ -511,6 +578,7 @@ IFDEF(X_IMPFISUN)
ELSEIF ELSEIF
PROMPT 2 14 "Importo provv.unitario" PROMPT 2 14 "Importo provv.unitario"
ENDIF ENDIF
FIELD IMPFISUN
END END
ENDIF ENDIF
@ -523,6 +591,7 @@ IFDEF(X_IMPFISSO)
ELSEIF ELSEIF
PROMPT 42 14 "Imp.Provv. " PROMPT 42 14 "Imp.Provv. "
ENDIF ENDIF
FIELD IMPFISSO
END END
ENDIF ENDIF
@ -547,7 +616,7 @@ IFDEF(CH_CODIVA)
ELSEIF ELSEIF
CHECKTYPE NORMAL CHECKTYPE NORMAL
ENDIF ENDIF
FIELD DUMMY FIELD CODIVA
END END
ENDIF ENDIF
@ -571,6 +640,7 @@ IFDEF(X_ADDIVA)
ELSEIF ELSEIF
PROMPT 2 16 "Addebito IVA" PROMPT 2 16 "Addebito IVA"
ENDIF ENDIF
FIELD ADDIVA
END END
ENDIF ENDIF
@ -594,6 +664,7 @@ IFDEF(CH_ASPBENI)
ELSEIF ELSEIF
CHECKTYPE NORMAL CHECKTYPE NORMAL
ENDIF ENDIF
FIELD ASPBENI
END END
ENDIF ENDIF

2
ve/verig02.uml
View File

@ -6,7 +6,9 @@
DEFINE_FIELD(CODSPV) DEFINE_FIELD(CODSPV)
DEFINE_FIELD(DESCRSPV) DEFINE_FIELD(DESCRSPV)
DEFINE_FIELD(UMQTASP)
DEFINE_FIELD(VALORE) DEFINE_FIELD(VALORE)
DEFINE_FIELD(QTA)
DEFINE_FIELD(SCONTO) DEFINE_FIELD(SCONTO)
DEFINE_FIELD(CODIVA) DEFINE_FIELD(CODIVA)
DEFINE_FIELD(DESIVA) DEFINE_FIELD(DESIVA)

17
ve/verig06.uml Executable file
View File

@ -0,0 +1,17 @@
#include "verigdef.h"
#define FULL_SCREEN
#define MASK_TITLE1 "Prestazioni"
DEFINE_FIELD(CODPRS)
DEFINE_FIELD(DESCRPRS)
DEFINE_FIELD(UMQTASP)
DEFINE_FIELD(QTA)
DEFINE_FIELD(PREZZO)
DEFINE_FIELD(SCONTO)
DEFINE_FIELD(CODIVA)
DEFINE_FIELD(DESIVA)
#include "verig.uml"