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

Correzioni alle tabelle

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1730 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-08-23 16:45:19 +00:00
parent a7ca6ce82d
commit ff508fd966
15 changed files with 820 additions and 733 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

204
ve/batbcaa.uml
View File

@ -1,99 +1,105 @@
#include "BATBCAA.H"
#define LF_PCON 19 //PIANO DEI CONTI
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella categoria acquisti articoli " 11 60 14
STRING F_CODICE 3
BEGIN
PROMPT 3 3 "Codice tabella "
FIELD CAA->CODTAB
KEY 1
USE CAA
FLAG "U"
INPUT CODTAB F_CODICE
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@30 " S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 30
BEGIN
PROMPT 3 5 "Descrizione "
FIELD CAA->S0
KEY 2
USE CAA KEY 2
INPUT S0 F_DESCR
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@30 " S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_CODCON 3
BEGIN
PROMPT 3 7 "Codice conto "
FIELD CAA->S1
FLAG "R"
END
STRING F_CODCON1 3
BEGIN
PROMPT 25 7 ""
FIELD CAA->S2
USE LF_PCON SELECT INDBIL=3
FLAG "R"
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
DISPLAY "Gruppo " GRUPPO
DISPLAY "Conto " CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCON GRUPPO
OUTPUT F_CODCON1 CONTO
OUTPUT F_DESCR1 DESCR
ADD RUN CG0 -0
END
STRING F_CODCON2 6
BEGIN
PROMPT 34 7 ""
FIELD CAA->S3
USE LF_PCON SELECT INDBIL=3
FLAG "R"
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
INPUT SOTTOCONTO F_CODCON2
DISPLAY "Gruppo " GRUPPO
DISPLAY "Conto " CONTO
DISPLAY "Sottoconto " SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCON GRUPPO
OUTPUT F_CODCON1 CONTO
OUTPUT F_CODCON2 SOTTOCONTO
OUTPUT F_DESCR1 DESCR
ADD RUN CG0 -0
END
STRING F_DESCR1 50
BEGIN
PROMPT 18 9 ""
FLAG "D"
END
ENDPAGE
ENDMASK
#include "BATBCAA.H"
#define LF_PCON 19 //PIANO DEI CONTI
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella categoria acquisti articoli " 11 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 3
BEGIN
PROMPT 2 2 "Cod. Tabella "
FIELD CAA->CODTAB
KEY 1
USE CAA
FLAG "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 CAA->S0
KEY 2
USE CAA KEY 2
INPUT S0 F_DESCR
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50 " S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_CODCON 3
BEGIN
PROMPT 2 8 "Codice conto "
FIELD CAA->S1
FLAG "R"
END
STRING F_CODCON1 3
BEGIN
PROMPT 25 8 ""
FIELD CAA->S2
USE LF_PCON SELECT INDBIL=3
FLAG "R"
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
DISPLAY "Gruppo " GRUPPO
DISPLAY "Conto " CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCON GRUPPO
OUTPUT F_CODCON1 CONTO
OUTPUT F_DESCR1 DESCR
ADD RUN CG0 -0
END
STRING F_CODCON2 6
BEGIN
PROMPT 34 8 ""
FIELD CAA->S3
USE LF_PCON SELECT INDBIL=3
FLAG "R"
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
INPUT SOTTOCONTO F_CODCON2
DISPLAY "Gruppo " GRUPPO
DISPLAY "Conto " CONTO
DISPLAY "Sottoconto " SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCON GRUPPO
OUTPUT F_CODCON1 CONTO
OUTPUT F_CODCON2 SOTTOCONTO
OUTPUT F_DESCR1 DESCR
ADD RUN CG0 -0
END
STRING F_DESCR1 50
BEGIN
PROMPT 17 10 ""
FLAG "D"
END
ENDPAGE
ENDMASK

206
ve/batbcra.uml
View File

@ -1,100 +1,106 @@
#include "BATBCRA.H"
#define LF_PCON 19 //PIANO DEI CONTI
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella categoria ricavi articoli " 11 60 14
STRING F_CODICE 3
BEGIN
PROMPT 3 3 "Codice tabella "
FIELD CRA->CODTAB
KEY 1
USE CRA
FLAG "U"
INPUT CODTAB F_CODICE
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@30 " S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 30
BEGIN
PROMPT 3 5 "Descrizione "
FIELD CRA->S0
KEY 2
USE CRA KEY 2
INPUT S0 F_DESCR
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@30 " S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_CODCON 3
BEGIN
PROMPT 3 7 "Codice conto "
FIELD CRA->S1
FLAG "R"
END
STRING F_CODCON1 3
BEGIN
PROMPT 25 7 ""
FIELD CRA->S2
USE LF_PCON SELECT INDBIL="4"
FLAG "R"
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
DISPLAY "Gruppo " GRUPPO
DISPLAY "Conto " CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCON GRUPPO
OUTPUT F_CODCON1 CONTO
OUTPUT F_DESCR1 DESCR
ADD RUN CG0 -0
END
STRING F_CODCON2 6
BEGIN
PROMPT 34 7 ""
FIELD CRA->S3
USE LF_PCON SELECT INDBIL="4"
FLAG "R"
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
INPUT SOTTOCONTO F_CODCON2
DISPLAY "Gruppo " GRUPPO
DISPLAY "Conto " CONTO
DISPLAY "Sottoconto " SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCON GRUPPO
OUTPUT F_CODCON1 CONTO
OUTPUT F_CODCON2 SOTTOCONTO
OUTPUT F_DESCR1 DESCR
ADD RUN CG0 -0
END
STRING F_DESCR1 50
BEGIN
PROMPT 18 9 ""
FLAG "D"
END
ENDPAGE
ENDMASK
#include "BATBCRA.H"
#define LF_PCON 19 //PIANO DEI CONTI
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella categoria ricavi articoli " 11 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 3
BEGIN
PROMPT 2 2 "Cod. Tabella "
FIELD CRA->CODTAB
KEY 1
USE CRA
FLAG "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 CRA->S0
KEY 2
USE CRA KEY 2
INPUT S0 F_DESCR
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50 " S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_CODCON 3
BEGIN
PROMPT 2 8 "Codice conto "
FIELD CRA->S1
FLAG "R"
END
STRING F_CODCON1 3
BEGIN
PROMPT 25 8 ""
FIELD CRA->S2
USE LF_PCON SELECT INDBIL="4"
FLAG "R"
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
DISPLAY "Gruppo " GRUPPO
DISPLAY "Conto " CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCON GRUPPO
OUTPUT F_CODCON1 CONTO
OUTPUT F_DESCR1 DESCR
ADD RUN CG0 -0
END
STRING F_CODCON2 6
BEGIN
PROMPT 34 8 ""
FIELD CRA->S3
USE LF_PCON SELECT INDBIL="4"
FLAG "R"
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
INPUT SOTTOCONTO F_CODCON2
DISPLAY "Gruppo " GRUPPO
DISPLAY "Conto " CONTO
DISPLAY "Sottoconto " SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCON GRUPPO
OUTPUT F_CODCON1 CONTO
OUTPUT F_CODCON2 SOTTOCONTO
OUTPUT F_DESCR1 DESCR
ADD RUN CG0 -0
END
STRING F_DESCR1 50
BEGIN
PROMPT 17 10 ""
FLAG "D"
END
ENDPAGE
ENDMASK

14
ve/batbgmc.h
View File

@ -1,6 +1,10 @@
#define F_CODICE1 101
#define F_CODICE2 102
#define F_TIPO 103
#define F_DESCR 104
#define F_CODGRU 101
#define F_DESGRU 102
#define F_CODSGR 103
#define F_DESSGR 104
#define F_CODAGGDOC 105
#define F_CODAGGOMA 106
#define F_CODAGGSCO 107
#define H_CODGRU 108
#define H_DESGRU 109

136
ve/batbgmc.uml
View File

@ -1,58 +1,122 @@
#include "BATBGMC.h"
#include "batbgmc.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
#include <toolbar.h>
ENDPAGE
PAGE "Gruppi merceologici " 11 60 14
PAGE "Tabella gruppi merceologici " 11 60 14
STRING F_CODICE1 3
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 4 4 "Codice merceologico "
FIELD %GMC->CODTAB[1,3]
KEY 1
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODGRU 3
BEGIN
PROMPT 2 2 "Codice gruppo "
FLAG "U"
END
STRING F_CODICE2 2
BEGIN
PROMPT 32 4 ""
FIELD %GMC->CODTAB[4,5]
FIELD CODTAB[1,3]
KEY 1
USE %GMC
FLAG "UR"
INPUT CODTAB[1,3] F_CODICE1
INPUT CODTAB[4,5] F_CODICE2
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE1 CODTAB[1,3]
OUTPUT F_CODICE2 CODTAB[4,5]
OUTPUT F_DESCR S0
USE GMC SELECT CODTAB[4,5]==""
INPUT CODTAB F_CODGRU
DISPLAY "Gruppo" CODTAB[1,3]
DISPLAY "Descrizione gruppo@50" S0
OUTPUT F_CODGRU CODTAB[1,3]
OUTPUT H_DESGRU S0
MESSAGE COPY,H_CODGRU
END
STRING F_CODSGR 2
BEGIN
PROMPT 30 2 "Codice sottogruppo "
FIELD CODTAB[4,5]
FLAGS "U"
KEY 1
USE GMC
INPUT CODTAB[1,3] F_CODGRU
INPUT CODTAB[4,5] F_CODSGR
DISPLAY "Codice gruppo" CODTAB[1,3]
DISPLAY "Codice sottogruppo" CODTAB[4,5]
DISPLAY "Descrizione sottogruppo@50" S0
OUTPUT F_CODGRU CODTAB[1,3]
OUTPUT F_CODSGR CODTAB[4,5]
OUTPUT F_DESSGR S0
MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR
MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR
VALIDATE AUTOEXIT_FUNC 2 F_CODGRU F_CODSGR
GROUP GR_SEARCH
END
STRING H_CODGRU 3
BEGIN
FLAGS "H"
COPY USE F_CODGRU
INPUT CODTAB F_CODGRU
COPY DISPLAY F_CODGRU
OUTPUT F_DESGRU S0
CHECKTYPE NORMAL
VALIDATE AUTOEXIT_FUNC 1 F_CODICE1
END
STRING F_DESCR 50
STRING F_DESGRU 50
BEGIN
PROMPT 4 6 "Descrizione "
FIELD %GMC->S0
PROMPT 2 4 "Descrizione gruppo "
FLAGS "D"
END
STRING F_DESSGR 50
BEGIN
PROMPT 2 8 "Descrizione sottogruppo "
FIELD S0
USE GMC KEY 2
KEY 2
USE %GMC KEY 2
INPUT S0 F_DESCR
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE1 CODTAB[1,3]
OUTPUT F_CODICE2 CODTAB[4,5]
OUTPUT F_DESCR S0
INPUT S0 F_DESSGR
DISPLAY "Descrizione sottogruppo@50" S0
DISPLAY "Codice gruppo" CODTAB[1,3]
DISPLAY "Codice sottogruppo" CODTAB[4,5]
COPY OUTPUT F_CODSGR
MESSAGE K_TAB,F_CODSGR
CHECKTYPE REQUIRED
WARNING "Manca la descrizione"
END
GROUPBOX DLG_NULL 70 7
STRING H_DESGRU 50
BEGIN
PROMPT 3 2 ""
FLAG "R"
PROMPT 2 4 "Descrizione gruppo "
FIELD S0
KEY 2
USE GMC KEY 2
INPUT S0 H_DESGRU
DISPLAY "Descrizione gruppo@50" S0
DISPLAY "Codice gruppo" CODTAB[1,3]
DISPLAY "Codice sottogruppo" CODTAB[4,5]
COPY OUTPUT F_CODSGR
OUTPUT H_DESGRU S0
MESSAGE K_TAB,F_CODSGR
CHECKTYPE REQUIRED
WARNING "Manca la descrizione del gruppo"
END
STRING F_CODAGGDOC 2
BEGIN
PROMPT 2 8 "Codice aggiornamento documenti "
FIELD LIC->S4
END
STRING F_CODAGGOMA 2
BEGIN
PROMPT 2 9 "Codice aggiornamento omaggi "
FIELD LIC->S5
END
STRING F_CODAGGSCO 2
BEGIN
PROMPT 2 10 "Codice aggiornamento sconti "
FIELD LIC->S6
END
ENDPAGE
ENDMASK

29
ve/batbimb.uml
View File

@ -6,10 +6,15 @@ ENDPAGE
PAGE "Gestione imballi" 11 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 5
BEGIN
PROMPT 4 4 "Codice dell'imballaggio "
PROMPT 2 2 "Cod. Imballaggio "
FIELD IMB->CODTAB
KEY 1
@ -18,7 +23,7 @@ BEGIN
FLAG "R"
INPUT CODTAB F_CODICE
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@30 " S0
DISPLAY "Descrizione@50 " S0
DISPLAY "lunghezza " R0
DISPLAY "altezza " R1
DISPLAY "spessore " R2
@ -33,16 +38,16 @@ BEGIN
END
STRING F_DESCR 30
STRING F_DESCR 50
BEGIN
PROMPT 4 6 "Descrizione "
PROMPT 2 4 "Descrizione "
FIELD IMB->S0
KEY 2
USE IMB KEY 2
INPUT S0 F_DESCR
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@20 " S0
DISPLAY "Descrizione@50 " S0
DISPLAY "lunghezza " R0
DISPLAY "altezza " R1
DISPLAY "spessore " R2
@ -58,7 +63,7 @@ END
NUMBER F_DIMX 6 2
BEGIN
PROMPT 4 8 "Lunghezza "
PROMPT 2 8 "Lunghezza "
FIELD IMB->R0
END
@ -70,25 +75,17 @@ END
NUMBER F_DIMZ 6 2
BEGIN
PROMPT 45 8 "Spessore "
PROMPT 46 8 "Spessore "
FIELD IMB->R2
END
NUMBER F_PESO 6 2
BEGIN
PROMPT 4 10 "Peso "
PROMPT 2 10 "Peso "
HELP "Indicare la tara"
FIELD IMB->R3
END
GROUPBOX DLG_NULL 68 10
BEGIN
PROMPT 1 2 ""
FLAG "R"
END
ENDPAGE
ENDMASK

14
ve/batbmag.uml
View File

@ -8,6 +8,12 @@ ENDPAGE
PAGE "Gestione magazzini" 11 60 14
GROUPBOX DLG_NULL 75 6
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
NUMBER F_DITTA 5
BEGIN
PROMPT 0 0 ""
@ -16,10 +22,10 @@ END
STRING F_CODICE 3
BEGIN
PROMPT 2 1 "Codice magazzino "
PROMPT 2 2 "Codice magazzino "
FIELD CODTAB[1,3]
KEY 1
USE MAG SELECT CODTAB ?= "???"
USE MAG SELECT CODTAB[4,5]==""
FLAG "U"
INPUT CODTAB F_CODICE
DISPLAY "Codice " CODTAB[1,3]
@ -31,7 +37,7 @@ END
STRING F_CODDEP 2
BEGIN
PROMPT 28 1 "Codice deposito "
PROMPT 28 2 "Codice deposito "
FIELD CODTAB[4,5]
FLAGS "U"
KEY 1
@ -96,7 +102,7 @@ BEGIN
OUTPUT H_DESCR S0
MESSAGE K_TAB,F_CODDEP
CHECKTYPE REQUIRED
WARNING "Manca la denominazione dell'istituto"
WARNING "Manca la denominazione del magazzino"
END
GROUPBOX DLG_NULL 72 5

310
ve/batbnum.uml
View File

@ -2,30 +2,24 @@
TOOLBAR "" 0 20 60 2
#include "toolbar.h"
#include "toolbar.h"
ENDPAGE
PAGE "Numerazione documenti" -1 -1 60 14
PAGE "Tabella numerazioni Pagina 1/2" -1 -1 60 14
GROUPBOX DLG_NULL 84 4
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 1 ""
// FLAG "R"
END
GROUPBOX DLG_NULL 84 13
BEGIN
PROMPT 1 5 ""
// FLAG "R"
PROMPT 1 0 ""
FLAG "R"
END
STRING F_CODTAB 4
BEGIN
PROMPT 2 2 "Codice numerazione "
PROMPT 2 2 "Cod. numerazione "
FIELD CODTAB
HELP "Codice numerazione"
USE %NUM
HELP "Codice numerazione"
USE NUM
CHECKTYPE REQUIRED
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
@ -36,12 +30,12 @@ PAGE "Numerazione documenti" -1 -1 60 14
FLAG "UZ"
END
STRING F_DESNUM 40
STRING F_DESNUM 50
BEGIN
PROMPT 2 3 "Descrizione numerazione "
PROMPT 2 4 "Descrizione "
FIELD S0
HELP "Descrizione numerazione"
USE %NUM KEY 2
HELP "Descrizione numerazione"
USE NUM
CHECKTYPE REQUIRED
INPUT S0 F_DESNUM
DISPLAY "Codice" CODTAB
@ -51,265 +45,251 @@ PAGE "Numerazione documenti" -1 -1 60 14
KEY 2
END
NUMBER F_ULTNUM 6 0
NUMBER F_ULTNUM 7 0
BEGIN
PROMPT 2 6 "Numero ultimo documento emesso "
PROMPT 2 7 "Numero ultimo documento emesso "
FIELD I0
FLAG "R"
END
NUMBER F_ULTNUMPROV 6 0
NUMBER F_ULTNUMPROV 7 0
BEGIN
PROMPT 2 7 "Numero ultimo documento creato "
PROMPT 2 8 "Numero ultimo documento creato "
FIELD I1
FLAG "R"
END
DATE F_ULTDATA
BEGIN
PROMPT 2 9 "Data emissione ultimo documento "
PROMPT 2 10 "Data emissione ultimo documento "
FIELD D0
END
STRING F_PREFISSO 7
BEGIN
PROMPT 2 11 "Prefisso numerazione "
PROMPT 2 12 "Prefisso numerazione "
FIELD S6
END
STRING F_SUFFISSO 7
BEGIN
PROMPT 2 12 "Suffisso numerazione "
PROMPT 2 13 "Suffisso numerazione "
FIELD S7
END
STRING F_ANNO 4
BEGIN
PROMPT 2 14 "Anno d'esercizio "
PROMPT 2 15 "Anno d'esercizio "
FIELD S8
HELP "Anno d'esercizio "
USE ESC
CHECKTYPE REQUIRED
INPUT CODTAB F_ANNO
DISPLAY "Anno d'esercizio" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1
OUTPUT F_ANNO CODTAB
END
ENDPAGE
PAGE "Numerazioni documenti pag.2" -1 -1 60 14
GROUPBOX DLG_NULL 64 15
BEGIN
PROMPT 1 1 ""
// FLAG "R"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 2 "Tipi di documento validi per la numerazione"
END
PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
TEXT DLG_NULL
BEGIN
PROMPT 2 2 "Tipi di documento validi per la numerazione"
END
STRING F_TIPODOC1 4
BEGIN
PROMPT 2 4 ""
USE %TIP
INPUT CODTAB F_TIPODOC1
DISPLAY "Codice" CODTAB
USE TIP
INPUT CODTAB F_TIPODOC1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC1 CODTAB
OUTPUT F_DESDOC1 S0
HELP "Tipo di documento 1"
OUTPUT F_TIPODOC1 TIP->CODTAB
OUTPUT F_DESDOC1 TIP->S0
HELP "Tipo di documento 1"
FIELD S2[1,4]
CHECKTYPE NORMAL
END
STRING F_DESDOC1 40
BEGIN
PROMPT 12 4 ""
FLAG "D"
END
STRING F_DESDOC1 50
BEGIN
PROMPT 10 4 ""
FLAG "D"
END
STRING F_TIPODOC2 4
BEGIN
PROMPT 2 5 ""
USE %TIP
INPUT CODTAB F_TIPODOC2
DISPLAY "Codice" CODTAB
USE TIP
INPUT CODTAB F_TIPODOC2
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC2 CODTAB
OUTPUT F_DESDOC2 S0
HELP "Tipo di documento 2"
OUTPUT F_TIPODOC2 TIP->CODTAB
OUTPUT F_DESDOC2 TIP->S0
HELP "Tipo di documento 2"
FIELD S2[5,8]
CHECKTYPE NORMAL
END
STRING F_DESDOC2 40
BEGIN
PROMPT 12 5 ""
FLAG "D"
END
STRING F_DESDOC2 50
BEGIN
PROMPT 10 5 ""
FLAG "D"
END
STRING F_TIPODOC3 4
BEGIN
PROMPT 2 6 ""
USE %TIP
INPUT CODTAB F_TIPODOC3
DISPLAY "Codice" CODTAB
USE TIP
INPUT CODTAB F_TIPODOC3
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC3 CODTAB
OUTPUT F_DESDOC3 S0
HELP "Tipo di documento 3"
OUTPUT F_TIPODOC3 TIP->CODTAB
OUTPUT F_DESDOC3 TIP->S0
HELP "Tipo di documento 3"
FIELD S2[9,12]
CHECKTYPE NORMAL
END
STRING F_DESDOC3 40
BEGIN
PROMPT 12 6 ""
FLAG "D"
END
STRING F_DESDOC3 50
BEGIN
PROMPT 10 6 ""
FLAG "D"
END
STRING F_TIPODOC4 4
BEGIN
PROMPT 2 7 ""
USE %TIP
INPUT CODTAB F_TIPODOC4
DISPLAY "Codice" CODTAB
USE TIP
INPUT CODTAB F_TIPODOC4
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC4 CODTAB
OUTPUT F_DESDOC4 S0
HELP "Tipo di documento 4"
OUTPUT F_TIPODOC4 TIP->CODTAB
OUTPUT F_DESDOC4 TIP->S0
HELP "Tipo di documento 4"
FIELD S2[13,16]
CHECKTYPE NORMAL
END
STRING F_DESDOC4 40
BEGIN
PROMPT 12 7 ""
FLAG "D"
END
STRING F_DESDOC4 50
BEGIN
PROMPT 10 7 ""
FLAG "D"
END
STRING F_TIPODOC5 4
BEGIN
PROMPT 2 8 ""
USE %TIP
INPUT CODTAB F_TIPODOC5
DISPLAY "Codice" CODTAB
USE TIP
INPUT CODTAB F_TIPODOC5
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC5 CODTAB
OUTPUT F_DESDOC5 S0
HELP "Tipo di documento 5"
OUTPUT F_TIPODOC5 TIP->CODTAB
OUTPUT F_DESDOC5 TIP->S0
HELP "Tipo di documento 5"
FIELD S2[17,20]
CHECKTYPE NORMAL
END
STRING F_DESDOC5 40
BEGIN
PROMPT 12 8 ""
FLAG "D"
END
STRING F_DESDOC5 50
BEGIN
PROMPT 10 8 ""
FLAG "D"
END
STRING F_TIPODOC6 4
BEGIN
PROMPT 2 9 ""
USE %TIP
INPUT CODTAB F_TIPODOC6
DISPLAY "Codice" CODTAB
USE TIP
INPUT CODTAB F_TIPODOC6
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC6 CODTAB
OUTPUT F_DESDOC6 S0
HELP "Tipo di documento 6"
OUTPUT F_TIPODOC6 TIP->CODTAB
OUTPUT F_DESDOC6 TIP->S0
HELP "Tipo di documento 6"
FIELD S2[21,24]
CHECKTYPE NORMAL
END
STRING F_DESDOC6 40
BEGIN
PROMPT 12 9 ""
FLAG "D"
END
STRING F_DESDOC6 50
BEGIN
PROMPT 10 9 ""
FLAG "D"
END
STRING F_TIPODOC7 4
BEGIN
PROMPT 2 10 ""
USE %TIP
INPUT CODTAB F_TIPODOC7
DISPLAY "Codice" CODTAB
USE TIP
INPUT CODTAB F_TIPODOC7
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC7 CODTAB
OUTPUT F_DESDOC7 S0
HELP "Tipo di documento 7"
OUTPUT F_TIPODOC7 TIP->CODTAB
OUTPUT F_DESDOC7 TIP->S0
HELP "Tipo di documento 7"
FIELD S2[25,28]
CHECKTYPE NORMAL
END
STRING F_DESDOC7 40
BEGIN
PROMPT 12 10 ""
FLAG "D"
END
STRING F_DESDOC7 50
BEGIN
PROMPT 10 10 ""
FLAG "D"
END
STRING F_TIPODOC8 4
BEGIN
PROMPT 2 11 ""
USE %TIP
INPUT CODTAB F_TIPODOC8
DISPLAY "Codice" CODTAB
USE TIP
INPUT CODTAB F_TIPODOC8
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC8 CODTAB
OUTPUT F_DESDOC8 S0
HELP "Tipo di documento 8"
OUTPUT F_TIPODOC8 TIP->CODTAB
OUTPUT F_DESDOC8 TIP->S0
HELP "Tipo di documento 8"
FIELD S2[29,32]
CHECKTYPE NORMAL
END
STRING F_DESDOC8 40
BEGIN
PROMPT 12 11 ""
FLAG "D"
END
STRING F_DESDOC8 50
BEGIN
PROMPT 10 11 ""
FLAG "D"
END
STRING F_TIPODOC9 4
BEGIN
PROMPT 2 12 ""
USE %TIP
INPUT CODTAB F_TIPODOC9
DISPLAY "Codice" CODTAB
USE TIP
INPUT CODTAB F_TIPODOC9
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC9 CODTAB
OUTPUT F_DESDOC9 S0
HELP "Tipo di documento 9"
OUTPUT F_TIPODOC9 TIP->CODTAB
OUTPUT F_DESDOC9 TIP->S0
HELP "Tipo di documento 9"
FIELD S2[32,36]
CHECKTYPE NORMAL
END
STRING F_DESDOC9 40
BEGIN
PROMPT 12 12 ""
FLAG "D"
END
STRING F_DESDOC9 50
BEGIN
PROMPT 10 12 ""
FLAG "D"
END
STRING F_TIPODOC10 4
BEGIN
PROMPT 2 13 ""
USE %TIP
INPUT CODTAB F_TIPODOC10
DISPLAY "Codice" CODTAB
USE TIP
INPUT CODTAB F_TIPODOC10
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC10 CODTAB
OUTPUT F_DESDOC10 S0
HELP "Tipo di documento 10"
OUTPUT F_TIPODOC10 TIP->CODTAB
OUTPUT F_DESDOC10 TIP->S0
HELP "Tipo di documento 10"
FIELD S2[37,40]
CHECKTYPE NORMAL
END
STRING F_DESDOC10 40
BEGIN
PROMPT 12 13 ""
FLAG "D"
END
STRING F_DESDOC10 50
BEGIN
PROMPT 10 13 ""
FLAG "D"
END
ENDMASK

19
ve/batbrfa.h
View File

@ -1,10 +1,9 @@
#define FLD_TABRFA_CODTAB 100
#define FLD_TABRFA_S0 101
#define FLD_TABRFA_I0 102
#define FLD_TABRFA_S7 103
#define FLD_TABRFA_S8 104
#define FLD_TABRFA_R0 105
#define FLD_TABRFA_R1 106
#define FLD_TABRFA_R2 107
#define FLD_DESCFA 108

#define FLD_TABRFA_CODTAB 100
#define FLD_TABRFA_S0 101
#define FLD_TABRFA_I0 102
#define FLD_TABRFA_S7 103
#define FLD_TABRFA_S8 104
#define FLD_TABRFA_R0 105
#define FLD_TABRFA_R1 106
#define FLD_TABRFA_R2 107
#define FLD_DESCFA 108

29
ve/batbrfa.uml
View File

@ -6,9 +6,15 @@ ENDPAGE
PAGE "Raggruppamento fiscali articoli" -1 -1 78 9
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING FLD_TABRFA_CODTAB 5
BEGIN
PROMPT 2 1 "Codice "
PROMPT 2 2 "Codice "
FIELD CODTAB
USE RFA
CHECKTYPE REQUIRED
@ -21,15 +27,15 @@ BEGIN
FLAGS "U"
END
STRING FLD_TABRFA_S0 30
STRING FLD_TABRFA_S0 50
BEGIN
PROMPT 2 3 "Descrizione "
PROMPT 2 4 "Descrizione "
FIELD S0
USE RFA KEY 2
CHECKTYPE REQUIRED
WARNING "Manca la descrizione"
INPUT S0 FLD_TABRFA_S0
DISPLAY "Descrizione@30" S0
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_TABRFA_CODTAB
KEY 2
@ -37,13 +43,13 @@ END
STRING FLD_TABRFA_S7 2
BEGIN
PROMPT 2 5 "Unita' di misura "
PROMPT 2 8 "Unita' di misura "
FIELD S7
END
STRING FLD_TABRFA_S8 1
BEGIN
PROMPT 2 7 "Classe fiscale "
PROMPT 2 10 "Classe fiscale "
FIELD S8
USE ASF
INPUT CODTAB FLD_TABRFA_S8
@ -56,31 +62,31 @@ END
STRING FLD_DESCFA 30
BEGIN
PROMPT 25 7 ""
PROMPT 25 10 ""
FLAG "D"
END
NUMBER FLD_TABRFA_R0 6 2
BEGIN
PROMPT 2 9 "Perc. ricarico medio "
PROMPT 2 12 "Perc. ricarico medio "
FIELD R0
END
NUMBER FLD_TABRFA_R1 12 2
BEGIN
PROMPT 2 11 "Costo minimo "
PROMPT 2 14 "Costo minimo "
FIELD R1
END
NUMBER FLD_TABRFA_R2 12 2
BEGIN
PROMPT 45 11 "massimo "
PROMPT 45 14 "massimo "
FIELD R2
END
LIST FLD_TABRFA_I0 1 30
BEGIN
PROMPT 2 13 "Tipo costo "
PROMPT 2 16 "Tipo costo "
FIELD I0
HELP "Inserire il tipo di costo"
ITEM "1|Costo medio annuale"
@ -95,4 +101,3 @@ END
ENDPAGE
ENDMASK


2
ve/batbspp.h
View File

@ -21,6 +21,6 @@
#define F_CONTO 119
#define F_SOTTO 120
#define F_DESCRCONTO 121
#define F_CODMOVCOM 123
#define F_CODMOVCOM1 124
#define F_CAMPI 125

204
ve/batbspp.uml
View File

@ -1,20 +1,24 @@
#include "BATBSPP.H"
#define LF_PCON 19
#include "batbspp.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
#include <toolbar.h>
ENDPAGE
PAGE "Tabella spese e prestazioni " 11 60 14
STRING F_CODICE 3
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 3 1 "Cod. tabella "
FIELD SPP->CODTAB
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 3
BEGIN
PROMPT 2 2 "Cod. tabella "
FIELD SPP->CODTAB
KEY 1
USE SPP
USE SPP
FLAG "U"
INPUT CODTAB F_CODICE
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50 " S0
@ -22,18 +26,17 @@ BEGIN
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 3 2 "Descrizione "
PROMPT 2 4 "Descrizione "
FIELD SPP->S0
KEY 2
USE SPP KEY 2
INPUT S0 F_DESCR
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50 " S0
DISPLAY "Codice " CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
@ -42,181 +45,194 @@ END
STRING F_CODASSFIS 4
BEGIN
PROMPT 3 4 "Codice assogg. fiscale "
PROMPT 2 7 "Codice IVA "
FIELD SPP->S1[1,4]
USE %IVA
INPUT CODTAB F_CODASSFIS
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@30" S0
DISPLAY "D2escrizione@50" S0
OUTPUT F_CODASSFIS CODTAB
OUTPUT F_CODASSFIS1 S0
END
STRING F_CODASSFIS1 30
STRING F_CODASSFIS1 50
BEGIN
PROMPT 35 4 ""
PROMPT 25 7 ""
FLAG "D"
END
STRING F_CODDIV 3
STRING F_CODDIV 4
BEGIN
PROMPT 3 5 "Codice divisa "
PROMPT 2 8 "Codice valuta "
FIELD SPP->S1[5,7]
USE CVA
USE VAL
INPUT CODTAB F_CODDIV
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@30" S0
DISPLAY "Descrizione@50" S0
OUTPUT F_CODDIV CODTAB
OUTPUT F_CODDIV1 S0
END
STRING F_CODDIV1 30
STRING F_CODDIV1 50
BEGIN
PROMPT 30 5 ""
PROMPT 25 8 ""
FLAG "D"
END
LISTBOX F_CAMPI 15
BEGIN
PROMPT 2 10 "Campo da proporre "
FIELD SPP->S6
ITEM "Q|Qta prezzo "
MESSAGE HIDE,F_VALORE|HIDE,F_PERCENTUALE|SHOW,F_PREZZO
ITEM "V|Valore "
MESSAGE HIDE,F_PREZZO|HIDE,F_PERCENTUALE|SHOW,F_VALORE
ITEM "P|Percentuale "
MESSAGE HIDE,F_PREZZO|HIDE,F_VALORE|SHOW,F_PERCENTUALE
END
NUMBER F_PREZZO 13 2
BEGIN
PROMPT 3 6 "Prezzo "
PROMPT 50 10 "Prezzo "
FIELD SPP->R0
END
NUMBER F_VALORE 13 2
BEGIN
PROMPT 30 6 "Valore "
FIELD SPP->R1
END
STRING F_NCAMPOCAL 2
BEGIN
PROMPT 3 7 "N° campo di calcolo "
FIELD SPP->I0
END
STRING F_NCAMPOCAL1 20
BEGIN
PROMPT 29 7 ""
FLAG "D"
PROMPT 50 10 "Valore "
FIELD SPP->R0
END
NUMBER F_PERCENTUALE 5 2
BEGIN
PROMPT 51 7 "Percentuale "
FIELD SPP->R2
PROMPT 50 10 "Percentuale "
FIELD SPP->R0
END
STRING F_NCAMPOCAL 2
BEGIN
PROMPT 2 12 "N. calcolo "
FIELD SPP->I0
END
STRING F_NCAMPOCAL1 50
BEGIN
PROMPT 25 12 ""
FLAG "D"
END
LISTBOX F_TIPO 8
BEGIN
PROMPT 3 8 "Tipo spesa "
PROMPT 2 14 "Tipo spesa "
FIELD SPP->S1[9]
ITEM "0|Spesa "
ITEM "1|Merce "
ITEM "S|Spesa "
ITEM "M|Merce "
END
BOOLEAN F_INCASSO
BEGIN
PROMPT 3 10 "Spesa da incassare su prima rata "
PROMPT 2 16 "Spesa da incassare su prima rata "
FIELD SPP->B0
END
BOOLEAN F_STAMPA
BEGIN
PROMPT 3 11 "Stampa riga su corpo documento "
PROMPT 2 17 "Stampa riga su corpo documento "
FIELD SPP->B1
END
ENDPAGE
PAGE "Tabella spese e prestazioni " 11 60 14
STRING F_CODTABAGG 2
BEGIN
PROMPT 3 13 "Codice tabella agg. piede "
FIELD SPP->S1[11,12]
PROMPT 2 2 "N. agg. piede "
FIELD SPP->S1[11,12]
END
STRING F_CODTABAGG1 20
STRING F_CODTABAGG1 50
BEGIN
PROMPT 40 13 ""
PROMPT 25 2 ""
FLAG "D"
END
STRING F_NCAMPOAUTOM 2
BEGIN
PROMPT 3 14 "Num. campo calcolo spese autom. "
FIELD SPP->S1[14,15]
PROMPT 2 4 "N. calcolo spese "
FIELD SPP->S1[14,15]
END
STRING F_NCAMPOAUTOM1 15
STRING F_NCAMPOAUTOM1 50
BEGIN
PROMPT 40 14 ""
PROMPT 25 4 ""
FLAG "D"
END
STRING F_SEGNO 1
BEGIN
PROMPT 57 14 "Segno "
PROMPT 2 6 "Segno "
FIELD SPP->S1[17]
END
STRING F_GRUPPO 2
NUMBER F_GRUPPO 3
BEGIN
PROMPT 3 15 "Conto di ric./costo "
FIELD SPP->S2
PROMPT 2 8 "Conto ric./costo "
FIELD SPP->S2
END
NUMBER F_CONTO 3
BEGIN
PROMPT 28 8 ""
FIELD SPP->S3
USE LF_PCON SELECT (INDBIL="3")||(INDBIL="4")
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
ADD RUN CG0 -0
END
NUMBER F_SOTTO 6
BEGIN
PROMPT 38 8 ""
FIELD SPP->S4
USE LF_PCON
INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO
INPUT SOTTOCONTO F_SOTTO
DISPLAY "Gruppo " GRUPPO
DISPLAY "Conto " CONTO
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 REQUIRED
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTO SOTTOCONTO
OUTPUT F_DESCRCONTO DESCR
ADD RUN CG0 -0
END
STRING F_CONTO 2
STRING F_DESCRCONTO 50
BEGIN
PROMPT 29 15 ""
FIELD SPP->S3
END
STRING F_SOTTO 6
BEGIN
PROMPT 33 15 ""
FIELD SPP->S4
END
STRING F_DESCRCONTO 35
BEGIN
PROMPT 41 15 ""
PROMPT 25 10 ""
FLAG "D"
END
STRING F_CODMOVCOM 2
STRING F_CODMOVCOM 3
BEGIN
PROMPT 3 16 "Codice movimento commessa "
FIELD SPP->S1[19,20]
PROMPT 2 12 "Mov. commessa "
FIELD SPP->S1[19,20]
END
STRING F_CODMOVCOM1 30
STRING F_CODMOVCOM1 50
BEGIN
PROMPT 40 16 ""
PROMPT 25 12 ""
FLAG "D"
END
GROUPBOX DLG_NULL 73 4
BEGIN
PROMPT 0 0 ""
FLAG "R"
END
ENDPAGE
ENDMASK

130
ve/batbtip.uml
View File

@ -1,65 +1,65 @@
#include "ve4.h"
TOOLBAR "" 0 20 60 2
#include "toolbar.h"
ENDPAGE
PAGE "Tabella tipi di documento" -1 -1 60 14
GROUPBOX DLG_NULL 84 10
BEGIN
PROMPT 1 1 ""
// FLAG "R"
END
STRING F_CODTAB 4
BEGIN
PROMPT 2 2 "Codice tipo di documento "
FIELD CODTAB
HELP "Codice tipo documento"
USE %TIP
CHECKTYPE REQUIRED
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESNUM S0
KEY 1
FLAG "UZ"
END
STRING F_DESNUM 40
BEGIN
PROMPT 2 4 "Descrizione tipo documento "
FIELD S0
HELP "Descrizione tipo documento"
USE %TIP KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_DESNUM
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESNUM S0
KEY 2
END
STRING F_PROFILO 8
BEGIN
PROMPT 11 6 "Profilo documento "
FIELD S4
FLAG "U"
END
STRING F_PSTAMPA 8
BEGIN
PROMPT 4 8 "Profilo stampa documento "
FIELD S5
FLAG "U"
END
ENDPAGE
ENDMASK
#include "ve4.h"
TOOLBAR "" 0 20 60 2
#include "toolbar.h"
ENDPAGE
PAGE "Tabella tipi di documento" -1 -1 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAG "R"
END
STRING F_CODTAB 4
BEGIN
PROMPT 2 2 "Cod. tipo docum. "
FIELD CODTAB
HELP "Codice tipo documento"
USE %TIP
CHECKTYPE REQUIRED
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESNUM S0
KEY 1
FLAG "UZ"
END
STRING F_DESNUM 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD S0
HELP "Descrizione tipo documento"
USE %TIP KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_DESNUM
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESNUM S0
KEY 2
END
STRING F_PROFILO 8
BEGIN
PROMPT 2 8 "Profilo documento "
FIELD S4
FLAG "U"
END
STRING F_PSTAMPA 8
BEGIN
PROMPT 2 10 "Profilo stampa documento "
FIELD S5
FLAG "U"
END
ENDPAGE
ENDMASK

102
ve/batbtri.uml
View File

@ -1,48 +1,54 @@
TOOLBAR "" 0 20 60 2
#include "toolbar.h"
ENDPAGE
#define F_CODICE 101
#define F_DESCR 102
#define F_PROFILO 103
PAGE "Tipo di riga" -1 -1 60 14
STRING F_CODICE 4
BEGIN
PROMPT 2 2 "Codice "
FIELD CODTAB
FLAGS "U"
USE %TRI
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
KEY 1
END
STRING F_DESCR 30
BEGIN
PROMPT 2 4 "Descrizione "
FIELD S0
USE %TRI KEY 2
INPUT S0 F_DESCR
COPY DISPLAY F_CODICE
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
KEY 2
END
STRING f_PROFILO 8
BEGIN
PROMPT 2 6 "Profilo "
CHECKTYPE REQUIRED
FIELD S4
END
END
ENDMASK
TOOLBAR "" 0 20 60 2
#include "toolbar.h"
ENDPAGE
#define F_CODICE 101
#define F_DESCR 102
#define F_PROFILO 103
PAGE "Tipo di riga" -1 -1 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 4
BEGIN
PROMPT 2 2 "Codice "
FIELD CODTAB
FLAGS "U"
USE %TRI
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
KEY 1
END
STRING F_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD S0
USE %TRI KEY 2
INPUT S0 F_DESCR
COPY DISPLAY F_CODICE
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
KEY 2
END
STRING f_PROFILO 8
BEGIN
PROMPT 2 8 "Profilo "
CHECKTYPE REQUIRED
FIELD S4
END
END
ENDMASK

33
ve/batbubi.uml
View File

@ -6,10 +6,15 @@ ENDPAGE
PAGE "Ubicazioni " 11 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 10
BEGIN
PROMPT 4 4 "Codice ubicazione "
PROMPT 2 2 "Cod. Ubicazione "
FIELD UBI->CODTAB
KEY 1
USE UBI
@ -17,7 +22,7 @@ BEGIN
FLAG "R"
INPUT CODTAB F_CODICE
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@40" S0
DISPLAY "Descrizione@50" S0
DISPLAY "Piano " S6
DISPLAY "Corridoio " S7
DISPLAY "Fila " S8
@ -34,15 +39,15 @@ BEGIN
END
STRING F_DESCR 40
STRING F_DESCR 50
BEGIN
PROMPT 4 6 "Descrizione "
PROMPT 2 4 "Descrizione "
FIELD UBI->S0
KEY 2
USE UBI KEY 2
INPUT S0 F_DESCR
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@40" S0
DISPLAY "Descrizione@50" S0
DISPLAY "Piano " S6
DISPLAY "Corridoio " S7
DISPLAY "Fila " S8
@ -61,42 +66,34 @@ END
STRING F_PIANO 4
BEGIN
PROMPT 4 8 "Piano "
PROMPT 2 8 "Piano "
FIELD UBI->S6
END
STRING F_CORRIDOIO 4
BEGIN
PROMPT 28 8 "Corridoio "
PROMPT 26 8 "Corridoio "
FIELD UBI->S7
END
STRING F_FILA 4
BEGIN
PROMPT 49 8 "Fila "
PROMPT 52 8 "Fila "
FIELD UBI->S8
END
STRING F_SCAFFALE 4
BEGIN
PROMPT 4 10 "Scaffale "
PROMPT 2 10 "Scaffale "
FIELD UBI->S9
END
STRING F_PSCAFFALE 4
BEGIN
PROMPT 23 10 "Piano scaffale "
PROMPT 26 10 "Piano scaffale "
FIELD UBI->S5
END
GROUPBOX DLG_NULL 68 11
BEGIN
PROMPT 3 1 ""
FLAG "R"
END
ENDPAGE
ENDMASK

121
ve/batbums.uml
View File

@ -1,60 +1,61 @@
#include "BATBUM.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Unit… di misura " 11 60 14
STRING F_UM 2
BEGIN
PROMPT 4 4 "Unit… di misura "
FIELD %UM->CODTAB
KEY 1
FLAG "U"
USE %UM
FLAG "U"
INPUT CODTAB F_UM
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_UM CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 4 6 "Descrizione "
FIELD %UM->S0
KEY 2
USE %UM KEY 2
INPUT S0 F_DESCR
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_UM CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_UMR 2
BEGIN
PROMPT 4 10 "Unit… di riferimento "
FIELD %UM->S7
FLAG "U"
END
NUMBER F_FC 15 5
BEGIN
PROMPT 4 12 "Fattore conv. al rif. "
FIELD %UM->R0
END
GROUPBOX DLG_NULL 70 7
BEGIN
PROMPT 3 2 ""
FLAG "R"
END
ENDPAGE
ENDMASK
#include "batbums.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Unita' di misura " 11 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAG "R"
END
STRING F_UM 2
BEGIN
PROMPT 2 2 "Unita' di misura "
FIELD %UM->CODTAB
KEY 1
FLAG "U"
USE %UM
FLAG "U"
INPUT CODTAB F_UM
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_UM CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD %UM->S0
KEY 2
USE %UM KEY 2
INPUT S0 F_DESCR
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_UM CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_UMR 2
BEGIN
PROMPT 2 8 "Unita' di riferimento "
FIELD %UM->S7
FLAG "U"
END
NUMBER F_FC 15 5
BEGIN
PROMPT 2 10 "Fattore conv. al rif. "
FIELD %UM->R0
END
ENDPAGE
ENDMASK