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

Spostate le tabelle CCO e CVE da comune a ditta.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3412 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-08-21 10:11:10 +00:00
parent fc63b31cbd
commit 935e944d3c
5 changed files with 93 additions and 93 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ba/bastcco.uml
View File

@ -5,9 +5,9 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %CCO
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE CCO
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -19,8 +19,8 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1

2
ba/bastcve.uml
View File

@ -7,7 +7,7 @@ BEGIN
FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD CODTAB
USE %CVE
USE CVE
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0

156
ba/batbcco.uml
View File

@ -16,34 +16,34 @@ END
STRING F_CODICE 2
BEGIN
PROMPT 2 2 "Codice "
HELP "Codice della categoria contabile"
FIELD CODTAB
FLAGS "U"
KEY 1
USE %CCO
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
PROMPT 2 2 "Codice "
HELP "Codice della categoria contabile"
FIELD CODTAB
FLAGS "U"
KEY 1
USE CCO
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 50
BEGIN
PROMPT 2 4 "Descrizione "
HELP "Descrizione della categoria contabile"
FIELD LF_TABCOM->S0
KEY 2
USE %CCO KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
PROMPT 2 4 "Descrizione "
HELP "Descrizione della categoria contabile"
FIELD LF_TABCOM->S0
KEY 2
USE CCO KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
NUMBER F_GRUPPOA 3
@ -54,84 +54,84 @@ END
NUMBER F_CONTOA 3
BEGIN
PROMPT 26 8 ""
FIELD I1
PROMPT 26 8 ""
FIELD I1
END
NUMBER F_SOTTOCA 6
BEGIN
PROMPT 31 8 ""
FIELD I2
USE LF_PCON
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
INPUT SOTTOCONTO F_SOTTOCA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
OUTPUT F_SOTTOCA SOTTOCONTO
OUTPUT F_DESCRA DESCR
CHECKTYPE NORMAL
PROMPT 31 8 ""
FIELD I2
USE LF_PCON
INPUT GRUPPO F_GRUPPOA
INPUT CONTO F_CONTOA
INPUT SOTTOCONTO F_SOTTOCA
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOA GRUPPO
OUTPUT F_CONTOA CONTO
OUTPUT F_SOTTOCA SOTTOCONTO
OUTPUT F_DESCRA DESCR
CHECKTYPE NORMAL
END
STRING F_DESCRA 50
BEGIN
PROMPT 21 9 ""
FLAG "U"
USE LF_PCON KEY 2
INPUT DESCR F_DESCRA
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCA
PROMPT 21 9 ""
FLAG "U"
USE LF_PCON KEY 2
INPUT DESCR F_DESCRA
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCA
END
NUMBER F_GRUPPOV 3
BEGIN
PROMPT 2 11 "Conto di vendita "
FIELD I3
PROMPT 2 11 "Conto di vendita "
FIELD I3
END
NUMBER F_CONTOV 3
BEGIN
PROMPT 26 11 ""
FIELD I4
PROMPT 26 11 ""
FIELD I4
END
NUMBER F_SOTTOCV 6
BEGIN
PROMPT 31 11 ""
FIELD I5
USE LF_PCON
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOCV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
OUTPUT F_SOTTOCV SOTTOCONTO
OUTPUT F_DESCRV DESCR
CHECKTYPE NORMAL
PROMPT 31 11 ""
FIELD I5
USE LF_PCON
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
INPUT SOTTOCONTO F_SOTTOCV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOV GRUPPO
OUTPUT F_CONTOV CONTO
OUTPUT F_SOTTOCV SOTTOCONTO
OUTPUT F_DESCRV DESCR
CHECKTYPE NORMAL
END
STRING F_DESCRV 50
BEGIN
PROMPT 21 12 ""
FLAG "U"
USE LF_PCON KEY 2
INPUT DESCR F_DESCRV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCV
PROMPT 21 12 ""
FLAG "U"
USE LF_PCON KEY 2
INPUT DESCR F_DESCRV
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCV
END
ENDPAGE

2
ba/batbcve.h
View File

@ -1,6 +1,6 @@
// campi maschera batb%cve.msk
// campi maschera batbcve.msk
#define F_CODICE 101
#define F_DESCR 102

16
ba/batbcve.uml
View File

@ -21,18 +21,18 @@ BEGIN
FIELD CODTAB
FLAGS "U"
KEY 1
USE %CVE
USE CVE
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
DISPLAY "Provvigione" R0
DISPLAY "Gruppo" I1
DISPLAY "Conto" I2
DISPLAY "Provvigione" R0
DISPLAY "Gruppo" I1
DISPLAY "Conto" I2
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
OUTPUT F_PROVV R0
OUTPUT F_GRUPPO I1
OUTPUT F_CONTO I2
OUTPUT F_PROVV R0
OUTPUT F_GRUPPO I1
OUTPUT F_CONTO I2
CHECKTYPE REQUIRED
END
@ -42,7 +42,7 @@ BEGIN
HELP "Descrizione della categoria di vendita"
FIELD LF_TABCOM->S0
KEY 2
USE %CVE KEY 2
USE CVE KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @50" S0