MOdifiche alle tabelle
git-svn-id: svn://10.65.10.50/trunk@1704 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
963279eb23
commit
84dc43a34b
21
ve/batbacr.h
21
ve/batbacr.h
@ -1,11 +1,12 @@
|
||||
#define F_TIPO 101
|
||||
#define F_CODCATCON 102
|
||||
#define F_CODART 103
|
||||
#define F_CODCATCON1 104
|
||||
#define F_CODCATCON2 110
|
||||
#define F_CODART1 105
|
||||
#define F_CODCONCONT1 106
|
||||
#define F_CODCONCONT2 107
|
||||
#define F_CODCONCONT3 108
|
||||
#define F_CODCONCONT4 109
|
||||
#define F_TIPO 101
|
||||
#define F_CODCATCON 102
|
||||
#define F_CODART 103
|
||||
#define F_DESART 104
|
||||
#define F_CODGRUPPOR 105
|
||||
#define F_CODCONTOR 106
|
||||
#define F_CODSTCONTOR 107
|
||||
#define F_CODGRUPPOC 108
|
||||
#define F_CODCONTOC 109
|
||||
#define F_CODSTCONTOC 110
|
||||
#define F_DESSTCONTO 111
|
||||
|
||||
|
||||
160
ve/batbacr.uml
160
ve/batbacr.uml
@ -7,69 +7,51 @@ TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Archivio costi e ricavi " 11 60 14
|
||||
PAGE "Archivio costi e ricavi " -1 -1 78 8
|
||||
|
||||
|
||||
LISTBOX F_TIPO 8
|
||||
BEGIN
|
||||
PROMPT 3 3 "Tipo lavoro "
|
||||
FIELD ACR->S0
|
||||
FIELD %ACR->S0
|
||||
ITEM "1|Ricavi "
|
||||
MESSAGE SHOW, F_CODCATCON
|
||||
MESSAGE HIDE, F_CODCATCON1
|
||||
MESSAGE SHOW, F_CODGRUPPOR
|
||||
MESSAGE HIDE, F_CODGRUPPOC
|
||||
MESSAGE SHOW, F_CODCONTOR
|
||||
MESSAGE HIDE, F_CODCONTOC
|
||||
MESSAGE SHOW, F_CODSTCONTOR
|
||||
MESSAGE HIDE, F_CODSTCONTOC
|
||||
ITEM "2|Costi "
|
||||
MESSAGE HIDE, F_CODCATCON
|
||||
MESSAGE SHOW, F_CODCATCON1
|
||||
MESSAGE SHOW, F_CODGRUPPOC
|
||||
MESSAGE HIDE, F_CODGRUPPOR
|
||||
MESSAGE SHOW, F_CODCONTOC
|
||||
MESSAGE HIDE, F_CODCONTOR
|
||||
MESSAGE SHOW, F_CODSTCONTOC
|
||||
MESSAGE HIDE, F_CODSTCONTOR
|
||||
FLAG "R"
|
||||
END
|
||||
|
||||
STRING F_CODCATCON 3
|
||||
BEGIN
|
||||
PROMPT 3 5 "Codice categoria contabile "
|
||||
FIELD ACR->CODTAB
|
||||
FIELD %ACR->CODTAB
|
||||
KEY 1
|
||||
FLAG "U"
|
||||
USE CRA // CATEGORIE RICAVI ARTICOLI
|
||||
USE %CCO // CATEGORIE CONTABILI C/F
|
||||
|
||||
INPUT CODTAB F_CODCATCON
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_CODCATCON CODTAB
|
||||
OUTPUT F_CODCATCON2 S0
|
||||
OUTPUT F_CODCATCON S0
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE COPY , F_CODCATCON1
|
||||
END
|
||||
|
||||
STRING F_CODCATCON1 3
|
||||
BEGIN
|
||||
PROMPT 3 5 "Codice categoria contabile "
|
||||
FIELD ACR->CODTAB
|
||||
KEY 1
|
||||
FLAG "U"
|
||||
USE CAA // CATEGORIE ACQUISTI ARTICOLI
|
||||
|
||||
INPUT CODTAB F_CODCATCON1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_CODCATCON1 CODTAB
|
||||
OUTPUT F_CODCATCON2 S0
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE COPY , F_CODCATCON
|
||||
END
|
||||
|
||||
|
||||
STRING F_CODCATCON2 40
|
||||
BEGIN
|
||||
PROMPT 19 6 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
|
||||
|
||||
STRING F_CODART 20
|
||||
BEGIN
|
||||
PROMPT 3 7 "Codice articolo "
|
||||
FIELD ACR->S1
|
||||
FIELD %ACR->S1
|
||||
USE LF_ANAMAG KEY 1
|
||||
FLAG "R"
|
||||
INPUT CODART F_CODART
|
||||
@ -77,69 +59,113 @@ BEGIN
|
||||
DISPLAY "Codice articolo" CODART
|
||||
DISPLAY "Descrizione@30" DESCR
|
||||
OUTPUT F_CODART CODART
|
||||
OUTPUT F_CODART1 DESCR
|
||||
OUTPUT F_DESART DESCR
|
||||
|
||||
END
|
||||
|
||||
STRING F_CODART1 30
|
||||
STRING F_DESART 30
|
||||
BEGIN
|
||||
PROMPT 19 8 ""
|
||||
FIELD ACR->S2
|
||||
PROMPT 19 9 ""
|
||||
FIELD %ACR->S2
|
||||
FLAG "U"
|
||||
|
||||
USE LF_ANAMAG KEY 2
|
||||
INPUT DESCR F_CODART1
|
||||
INPUT DESCR F_DESART
|
||||
DISPLAY "Codice articolo" CODART
|
||||
DISPLAY "Descrizione@30" DESCR
|
||||
OUTPUT F_CODART CODART
|
||||
OUTPUT F_CODART1 DESCR
|
||||
OUTPUT F_DESART DESCR
|
||||
|
||||
END
|
||||
|
||||
NUMBER F_CODCONCONT1 2
|
||||
NUMBER F_CODGRUPPOR 3
|
||||
BEGIN
|
||||
PROMPT 3 9 "Codice conto contabile "
|
||||
FIELD ACR->S3
|
||||
PROMPT 3 11 "Codice conto ricavo "
|
||||
FIELD %ACR->S3
|
||||
END
|
||||
|
||||
NUMBER F_CODCONTOR 3
|
||||
BEGIN
|
||||
PROMPT 30 11 ""
|
||||
FIELD %ACR->S4
|
||||
USE LF_PCON SELECT INDBIL="4"
|
||||
INPUT GRUPPO F_CODGRUPPOR
|
||||
INPUT CONTO F_CODCONTOR
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODGRUPPOR GRUPPO
|
||||
OUTPUT F_CODCONTOR CONTO
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
NUMBER F_CODSTCONTOR 6
|
||||
BEGIN
|
||||
PROMPT 39 11 ""
|
||||
FIELD %ACR->S5
|
||||
USE LF_PCON
|
||||
INPUT GRUPPO F_CODCONCONT1
|
||||
INPUT CONTO F_CODCONCONT2
|
||||
INPUT SOTTOCONTO F_CODCONCONT3
|
||||
INPUT GRUPPO F_CODGRUPPOR
|
||||
INPUT CONTO F_CODCONTOR
|
||||
INPUT SOTTOCONTO F_CODSTCONTOR
|
||||
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODCONCONT1 GRUPPO
|
||||
OUTPUT F_CODCONCONT2 CONTO
|
||||
OUTPUT F_CODCONCONT3 SOTTOCONTO
|
||||
OUTPUT F_CODCONCONT4 DESCR
|
||||
OUTPUT F_CODGRUPPOR GRUPPO
|
||||
OUTPUT F_CODCONTOR CONTO
|
||||
OUTPUT F_CODSTCONTOR SOTTOCONTO
|
||||
OUTPUT F_DESSTCONTO DESCR
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
NUMBER F_CODCONCONT2 2
|
||||
NUMBER F_CODGRUPPOC 3
|
||||
BEGIN
|
||||
PROMPT 34 9 ""
|
||||
FIELD ACR->S4
|
||||
PROMPT 3 11 "Codice conto costo "
|
||||
FIELD %ACR->S3
|
||||
END
|
||||
|
||||
NUMBER F_CODCONCONT3 6
|
||||
NUMBER F_CODCONTOC 3
|
||||
BEGIN
|
||||
PROMPT 42 9 ""
|
||||
FIELD ACR->S5
|
||||
FLAG "R"
|
||||
PROMPT 30 11 ""
|
||||
FIELD %ACR->S4
|
||||
USE LF_PCON SELECT INDBIL="3"
|
||||
INPUT GRUPPO F_CODGRUPPOC
|
||||
INPUT CONTO F_CODCONTOC
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODGRUPPOC GRUPPO
|
||||
OUTPUT F_CODCONTOC CONTO
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
STRING F_CODCONCONT4 50
|
||||
NUMBER F_CODSTCONTOC 6
|
||||
BEGIN
|
||||
PROMPT 10 10 ""
|
||||
PROMPT 39 11 ""
|
||||
FIELD %ACR->S5
|
||||
USE LF_PCON
|
||||
INPUT GRUPPO F_CODGRUPPOC
|
||||
INPUT CONTO F_CODCONTOC
|
||||
INPUT SOTTOCONTO F_CODSTCONTOC
|
||||
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODGRUPPOC GRUPPO
|
||||
OUTPUT F_CODCONTOC CONTO
|
||||
OUTPUT F_CODSTCONTOC SOTTOCONTO
|
||||
OUTPUT F_DESSTCONTO DESCR
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
STRING F_DESSTCONTO 50
|
||||
BEGIN
|
||||
PROMPT 24 13 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 70 13
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAG "R"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
|
||||
28
ve/batbnum.h
Executable file
28
ve/batbnum.h
Executable file
@ -0,0 +1,28 @@
|
||||
#define F_CODTAB 101
|
||||
#define F_DESNUM 102
|
||||
#define F_ULTNUM 103
|
||||
#define F_ULTNUMPROV 104
|
||||
#define F_PREFISSO 105
|
||||
#define F_SUFFISSO 106
|
||||
#define F_ULTDATA 107
|
||||
#define F_ANNO 108
|
||||
#define F_TIPODOC1 110
|
||||
#define F_DESDOC1 111
|
||||
#define F_TIPODOC2 112
|
||||
#define F_DESDOC2 113
|
||||
#define F_TIPODOC3 114
|
||||
#define F_DESDOC3 115
|
||||
#define F_TIPODOC4 116
|
||||
#define F_DESDOC4 117
|
||||
#define F_TIPODOC5 118
|
||||
#define F_DESDOC5 119
|
||||
#define F_TIPODOC6 120
|
||||
#define F_DESDOC6 121
|
||||
#define F_TIPODOC7 122
|
||||
#define F_DESDOC7 123
|
||||
#define F_TIPODOC8 124
|
||||
#define F_DESDOC8 125
|
||||
#define F_TIPODOC9 126
|
||||
#define F_DESDOC9 127
|
||||
#define F_TIPODOC10 128
|
||||
#define F_DESDOC10 129
|
||||
210
ve/batbnum.uml
210
ve/batbnum.uml
@ -6,7 +6,7 @@ TOOLBAR "" 0 20 60 2
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Tabella numerazioni Pagina 1/2" -1 -1 60 14
|
||||
PAGE "Numerazione documenti" -1 -1 60 14
|
||||
|
||||
GROUPBOX DLG_NULL 84 4
|
||||
BEGIN
|
||||
@ -20,12 +20,12 @@ PAGE "Tabella numerazioni Pagina 1/2" -1 -1 60 14
|
||||
// FLAG "R"
|
||||
END
|
||||
|
||||
STRING F_CODTAB 4
|
||||
STRING F_CODTAB 2
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice numerazione "
|
||||
FIELD CODTAB
|
||||
HELP "Codice numerazione"
|
||||
USE NUM
|
||||
USE %NUM
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODTAB F_CODTAB
|
||||
DISPLAY "Codice" CODTAB
|
||||
@ -41,7 +41,7 @@ PAGE "Tabella numerazioni Pagina 1/2" -1 -1 60 14
|
||||
PROMPT 2 3 "Descrizione numerazione "
|
||||
FIELD S0
|
||||
HELP "Descrizione numerazione"
|
||||
USE NUM
|
||||
USE %NUM KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT S0 F_DESNUM
|
||||
DISPLAY "Codice" CODTAB
|
||||
@ -51,14 +51,14 @@ PAGE "Tabella numerazioni Pagina 1/2" -1 -1 60 14
|
||||
KEY 2
|
||||
END
|
||||
|
||||
NUMBER F_ULTNUM 7 0
|
||||
NUMBER F_ULTNUM 6 0
|
||||
BEGIN
|
||||
PROMPT 2 6 "Numero ultimo documento emesso "
|
||||
FIELD I0
|
||||
FLAG "R"
|
||||
END
|
||||
|
||||
NUMBER F_ULTNUMPROV 7 0
|
||||
NUMBER F_ULTNUMPROV 6 0
|
||||
BEGIN
|
||||
PROMPT 2 7 "Numero ultimo documento creato "
|
||||
FIELD I1
|
||||
@ -87,11 +87,19 @@ PAGE "Tabella numerazioni Pagina 1/2" -1 -1 60 14
|
||||
BEGIN
|
||||
PROMPT 2 14 "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 "Tabella numerazioni Pagina 2/2" -1 -1 60 14
|
||||
PAGE "Numerazioni documenti pag.2" -1 -1 60 14
|
||||
|
||||
GROUPBOX DLG_NULL 64 15
|
||||
BEGIN
|
||||
@ -99,17 +107,17 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
|
||||
// FLAG "R"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 2 "Tipi di documento validi per la numerazione"
|
||||
END
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 2 "Tipi di documento validi per la numerazione"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC1 4
|
||||
STRING F_TIPODOC1 2
|
||||
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 TIP->CODTAB
|
||||
OUTPUT F_DESDOC1 TIP->S0
|
||||
@ -118,18 +126,18 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESDOC1 40
|
||||
BEGIN
|
||||
PROMPT 10 4 ""
|
||||
FLAG "D"
|
||||
END
|
||||
STRING F_DESDOC1 40
|
||||
BEGIN
|
||||
PROMPT 10 4 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC2 4
|
||||
STRING F_TIPODOC2 2
|
||||
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 TIP->CODTAB
|
||||
OUTPUT F_DESDOC2 TIP->S0
|
||||
@ -138,18 +146,18 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESDOC2 40
|
||||
BEGIN
|
||||
PROMPT 10 5 ""
|
||||
FLAG "D"
|
||||
END
|
||||
STRING F_DESDOC2 40
|
||||
BEGIN
|
||||
PROMPT 10 5 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC3 4
|
||||
STRING F_TIPODOC3 2
|
||||
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 TIP->CODTAB
|
||||
OUTPUT F_DESDOC3 TIP->S0
|
||||
@ -158,18 +166,18 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESDOC3 40
|
||||
BEGIN
|
||||
PROMPT 10 6 ""
|
||||
FLAG "D"
|
||||
END
|
||||
STRING F_DESDOC3 40
|
||||
BEGIN
|
||||
PROMPT 10 6 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC4 4
|
||||
STRING F_TIPODOC4 2
|
||||
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 TIP->CODTAB
|
||||
OUTPUT F_DESDOC4 TIP->S0
|
||||
@ -178,18 +186,18 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESDOC4 40
|
||||
BEGIN
|
||||
PROMPT 10 7 ""
|
||||
FLAG "D"
|
||||
END
|
||||
STRING F_DESDOC4 40
|
||||
BEGIN
|
||||
PROMPT 10 7 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC5 4
|
||||
STRING F_TIPODOC5 2
|
||||
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 TIP->CODTAB
|
||||
OUTPUT F_DESDOC5 TIP->S0
|
||||
@ -198,18 +206,18 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESDOC5 40
|
||||
BEGIN
|
||||
PROMPT 10 8 ""
|
||||
FLAG "D"
|
||||
END
|
||||
STRING F_DESDOC5 40
|
||||
BEGIN
|
||||
PROMPT 10 8 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC6 4
|
||||
STRING F_TIPODOC6 2
|
||||
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 TIP->CODTAB
|
||||
OUTPUT F_DESDOC6 TIP->S0
|
||||
@ -218,18 +226,18 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESDOC6 40
|
||||
BEGIN
|
||||
PROMPT 10 9 ""
|
||||
FLAG "D"
|
||||
END
|
||||
STRING F_DESDOC6 40
|
||||
BEGIN
|
||||
PROMPT 10 9 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC7 4
|
||||
STRING F_TIPODOC7 2
|
||||
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 TIP->CODTAB
|
||||
OUTPUT F_DESDOC7 TIP->S0
|
||||
@ -238,18 +246,18 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESDOC7 40
|
||||
BEGIN
|
||||
PROMPT 10 10 ""
|
||||
FLAG "D"
|
||||
END
|
||||
STRING F_DESDOC7 40
|
||||
BEGIN
|
||||
PROMPT 10 10 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC8 4
|
||||
STRING F_TIPODOC8 2
|
||||
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 TIP->CODTAB
|
||||
OUTPUT F_DESDOC8 TIP->S0
|
||||
@ -258,18 +266,18 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESDOC8 40
|
||||
BEGIN
|
||||
PROMPT 10 11 ""
|
||||
FLAG "D"
|
||||
END
|
||||
STRING F_DESDOC8 40
|
||||
BEGIN
|
||||
PROMPT 10 11 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC9 4
|
||||
STRING F_TIPODOC9 2
|
||||
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 TIP->CODTAB
|
||||
OUTPUT F_DESDOC9 TIP->S0
|
||||
@ -278,18 +286,18 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESDOC9 40
|
||||
BEGIN
|
||||
PROMPT 10 12 ""
|
||||
FLAG "D"
|
||||
END
|
||||
STRING F_DESDOC9 40
|
||||
BEGIN
|
||||
PROMPT 10 12 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC10 4
|
||||
STRING F_TIPODOC10 2
|
||||
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 TIP->CODTAB
|
||||
OUTPUT F_DESDOC10 TIP->S0
|
||||
@ -298,10 +306,10 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESDOC10 40
|
||||
BEGIN
|
||||
PROMPT 10 13 ""
|
||||
FLAG "D"
|
||||
END
|
||||
STRING F_DESDOC10 40
|
||||
BEGIN
|
||||
PROMPT 10 13 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
ENDMASK
|
||||
|
||||
8
ve/batbrfa.h
Executable file
8
ve/batbrfa.h
Executable file
@ -0,0 +1,8 @@
|
||||
#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
|
||||
64
ve/batbrfa.uml
Executable file
64
ve/batbrfa.uml
Executable file
@ -0,0 +1,64 @@
|
||||
#include "batbrfa.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Raggruppamento forniture magazzino" -1 -1 78 9
|
||||
|
||||
NUMBER FLD_TABRFA_CODTAB 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice "
|
||||
FIELD %FAL->CODTAB
|
||||
USE %RFA
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODTAB FLD_TABRFA_CODTAB
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FLD_TABRFA_CODTAB CODTAB
|
||||
OUTPUT FLD_TABRFA_S0 S0
|
||||
KEY 1
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
STRING FLD_TABRFA_S0 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
FIELD %RFA->S0
|
||||
USE %RFA KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Manca la descrizione"
|
||||
INPUT S0 FLD_TABRFA_S0
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT FLD_TABRFA_CODTAB
|
||||
KEY 2
|
||||
END
|
||||
|
||||
STRING FLD_TABRFA_S7 2
|
||||
BEGIN
|
||||
PROMPT 2 5 "UM "
|
||||
FIELD %RFA->S7
|
||||
END
|
||||
|
||||
STRING FLD_TABRFA_S8 1
|
||||
BEGIN
|
||||
PROMPT 2 5 "CLFIS "
|
||||
FIELD %RFA->S8
|
||||
END
|
||||
|
||||
NUMBER FLD_TABRFA_R0 9
|
||||
BEGIN
|
||||
PROMPT 2 7 "RIC "
|
||||
FIELD %RFA->R0
|
||||
END
|
||||
|
||||
NUMBER FLD_TABRFA_I0 1
|
||||
BEGIN
|
||||
PROMPT 2 9 "TC "
|
||||
FIELD %RFA->I0
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
@ -14,12 +14,12 @@ PAGE "Tabella tipi di documento" -1 -1 60 14
|
||||
// FLAG "R"
|
||||
END
|
||||
|
||||
STRING F_CODTAB 4
|
||||
STRING F_CODTAB 2
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice tipo di documento "
|
||||
FIELD CODTAB
|
||||
HELP "Codice tipo documento"
|
||||
USE TIP
|
||||
USE %TIP
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODTAB F_CODTAB
|
||||
DISPLAY "Codice" CODTAB
|
||||
@ -35,7 +35,7 @@ PAGE "Tabella tipi di documento" -1 -1 60 14
|
||||
PROMPT 2 4 "Descrizione tipo documento "
|
||||
FIELD S0
|
||||
HELP "Descrizione tipo documento"
|
||||
USE TIP
|
||||
USE %TIP KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT S0 F_DESNUM
|
||||
DISPLAY "Codice" CODTAB
|
||||
|
||||
@ -8,13 +8,13 @@ ENDPAGE
|
||||
#define F_DESCR 102
|
||||
#define F_PROFILO 103
|
||||
|
||||
PAGE "Tabella tipi di riga" -1 -1 60 14
|
||||
PAGE "Tipo di riga" -1 -1 60 14
|
||||
|
||||
STRING F_CODICE 2
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
FIELD CODTAB
|
||||
USE TRI
|
||||
USE %TRI
|
||||
INPUT CODTAB F_CODICE
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
@ -28,7 +28,7 @@ PAGE "Tabella tipi di riga" -1 -1 60 14
|
||||
BEGIN
|
||||
PROMPT 2 4 "Descrizione "
|
||||
FIELD S0
|
||||
USE TRI
|
||||
USE %TRI KEY 2
|
||||
INPUT S0 F_DESCR
|
||||
COPY DISPLAY F_CODICE
|
||||
COPY OUTPUT F_CODICE
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user