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