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

Aggiunta select sulle ditte

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3772 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-10-14 10:24:04 +00:00
parent 5aedee49ff
commit 7317ae1319
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ba/ba5200a.uml
View File

@ -43,6 +43,7 @@ BEGIN
KEY 1 KEY 1
GROUP 1 GROUP 1
USE LF_TABREG USE LF_TABREG
INPUT CODDITTA F_CODDITTA SELECT
INPUT ANNO F_ANNO INPUT ANNO F_ANNO
INPUT CODREG F_CODICE INPUT CODREG F_CODICE
DISPLAY "Anno" ANNO DISPLAY "Anno" ANNO
@ -56,7 +57,7 @@ BEGIN
MESSAGE COPY,20@ MESSAGE COPY,20@
MESSAGE FALSE COPY,20@ MESSAGE FALSE COPY,20@
END END
STRING F_CODICE 3 STRING F_CODICE 3
BEGIN BEGIN
PROMPT 49 2 "Codice registro " PROMPT 49 2 "Codice registro "
@ -77,7 +78,7 @@ BEGIN
FIELD DESCR FIELD DESCR
KEY 2 KEY 2
GROUP 1 GROUP 1
USE LF_TABREG KEY 2 USE LF_TABREG KEY 2 SELECT CODDITTA==#F_CODDITTA
INPUT DESCR F_DESCR INPUT DESCR F_DESCR
DISPLAY "Descrizione @50" DESCR DISPLAY "Descrizione @50" DESCR
DISPLAY "Anno" ANNO DISPLAY "Anno" ANNO
@ -141,15 +142,15 @@ BEGIN
GROUP 1 GROUP 1
END END
DATE F_DTI DATE F_DTI
BEGIN BEGIN
PROMPT 1 8 "Data inizio eser. " PROMPT 1 8 "Data inizio eser. "
FIELD DATAINES FIELD DATAINES
GROUP 8 GROUP 8
END END
DATE F_DTF DATE F_DTF
BEGIN BEGIN
PROMPT 40 8 "Data fine eser. " PROMPT 40 8 "Data fine eser. "
FIELD DATAFIES FIELD DATAFIES
GROUP 8 GROUP 8
@ -204,10 +205,10 @@ BEGIN
USE LF_DITCB KEY 1 SELECT (LEFT(ANSI(CBDTF),4)==#F_ANNO) USE LF_DITCB KEY 1 SELECT (LEFT(ANSI(CBDTF),4)==#F_ANNO)
JOIN LF_TABAT TO LF_DITCB INTO TACGR=CBCGR TACSP=CBCSP JOIN LF_TABAT TO LF_DITCB INTO TACGR=CBCGR TACSP=CBCSP
JOIN LF_TABGR TO LF_DITCB INTO G0CGR=CBCGR JOIN LF_TABGR TO LF_DITCB INTO G0CGR=CBCGR
FIELD CODSP FIELD CODSP
INPUT CBCDD F_CODDITTA SELECT INPUT CBCDD F_CODDITTA SELECT
INPUT CBDTI F_DTI INPUT CBDTI F_DTI
INPUT CBDTF F_DTF INPUT CBDTF F_DTF
INPUT CBCGR F_CODGRUP INPUT CBCGR F_CODGRUP
INPUT CBCSP F_CODSPEC INPUT CBCSP F_CODSPEC
DISPLAY "Codice Gruppo" CBCGR DISPLAY "Codice Gruppo" CBCGR
@ -221,7 +222,7 @@ BEGIN
OUTPUT F_CODSPEC CBCSP OUTPUT F_CODSPEC CBCSP
OUTPUT F_CODSPECDESCR LF_TABAT->TADCT OUTPUT F_CODSPECDESCR LF_TABAT->TADCT
OUTPUT F_CODGRUPDESCR LF_TABGR->G0DCT OUTPUT F_CODGRUPDESCR LF_TABGR->G0DCT
WARNING "Codice Specie non previsto per questa ditta" WARNING "Codice Specie non previsto per questa ditta"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END