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

MOdifiche alle tabelle

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1704 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-08-11 10:51:45 +00:00
parent 963279eb23
commit 84dc43a34b
8 changed files with 420 additions and 285 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ve/batbacr.h
View File

@ -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_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
View File

@ -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
View 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

62
ve/batbnum.uml
View File

@ -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
@ -104,10 +112,10 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
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
USE %TIP
INPUT CODTAB F_TIPODOC1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -124,10 +132,10 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
FLAG "D"
END
STRING F_TIPODOC2 4
STRING F_TIPODOC2 2
BEGIN
PROMPT 2 5 ""
USE TIP
USE %TIP
INPUT CODTAB F_TIPODOC2
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -144,10 +152,10 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
FLAG "D"
END
STRING F_TIPODOC3 4
STRING F_TIPODOC3 2
BEGIN
PROMPT 2 6 ""
USE TIP
USE %TIP
INPUT CODTAB F_TIPODOC3
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -164,10 +172,10 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
FLAG "D"
END
STRING F_TIPODOC4 4
STRING F_TIPODOC4 2
BEGIN
PROMPT 2 7 ""
USE TIP
USE %TIP
INPUT CODTAB F_TIPODOC4
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -184,10 +192,10 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
FLAG "D"
END
STRING F_TIPODOC5 4
STRING F_TIPODOC5 2
BEGIN
PROMPT 2 8 ""
USE TIP
USE %TIP
INPUT CODTAB F_TIPODOC5
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -204,10 +212,10 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
FLAG "D"
END
STRING F_TIPODOC6 4
STRING F_TIPODOC6 2
BEGIN
PROMPT 2 9 ""
USE TIP
USE %TIP
INPUT CODTAB F_TIPODOC6
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -224,10 +232,10 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
FLAG "D"
END
STRING F_TIPODOC7 4
STRING F_TIPODOC7 2
BEGIN
PROMPT 2 10 ""
USE TIP
USE %TIP
INPUT CODTAB F_TIPODOC7
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -244,10 +252,10 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
FLAG "D"
END
STRING F_TIPODOC8 4
STRING F_TIPODOC8 2
BEGIN
PROMPT 2 11 ""
USE TIP
USE %TIP
INPUT CODTAB F_TIPODOC8
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -264,10 +272,10 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
FLAG "D"
END
STRING F_TIPODOC9 4
STRING F_TIPODOC9 2
BEGIN
PROMPT 2 12 ""
USE TIP
USE %TIP
INPUT CODTAB F_TIPODOC9
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -284,10 +292,10 @@ PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
FLAG "D"
END
STRING F_TIPODOC10 4
STRING F_TIPODOC10 2
BEGIN
PROMPT 2 13 ""
USE TIP
USE %TIP
INPUT CODTAB F_TIPODOC10
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0

8
ve/batbrfa.h Executable file
View 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
View 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

6
ve/batbtip.uml
View File

@ -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

6
ve/batbtri.uml
View File

@ -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