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

Correzioni alla ricerca per gruppi

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3738 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-10-09 11:29:04 +00:00
parent 9a46b6bc35
commit fbb6d72462
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ba/ba5200a.uml
View File

@ -23,6 +23,7 @@ BEGIN
CHECKTYPE NORMAL
MESSAGE COPY,18@
MESSAGE FALSE COPY,18@
FLAGS "G"
END
STRING F_RAGSOC 50
@ -179,10 +180,10 @@ BEGIN
USE LF_TABGR
FIELD CODGR
INPUT G0CGR F_CODGRUP
DISPLAY "Codice Gruppo" G0CGR
DISPLAY "Descrizione@50" LF_TABGR->G0DCT
DISPLAY "Codice Gruppo@2R" G0CGR
DISPLAY "Descrizione@50" G0DCT
OUTPUT F_CODGRUP G0CGR
OUTPUT F_CODGRUPDESCR LF_TABGR->G0DCT
OUTPUT F_CODGRUPDESCR G0DCT
HELP "Codice Gruppo"
WARNING "Codice Gruppo assente"
CHECKTYPE NORMAL
@ -202,6 +203,7 @@ BEGIN
FLAGS "#"
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
INPUT CBCDD F_CODDITTA SELECT
INPUT CBDTI F_DTI
@ -218,6 +220,7 @@ BEGIN
OUTPUT F_CODGRUP CBCGR
OUTPUT F_CODSPEC CBCSP
OUTPUT F_CODSPECDESCR LF_TABAT->TADCT
OUTPUT F_CODGRUPDESCR LF_TABGR->G0DCT
WARNING "Codice Specie non previsto per questa ditta"
CHECKTYPE NORMAL
END