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

Patch level : 10.0

Browse Source 
Files correlati     : ef0
Ricompilazione Demo : [ ]
Commento            :
Ammessa selezione di distinte cui manca la prima riga


git-svn-id: svn://10.65.10.50/branches/R_10_00@22576 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2012-02-13 16:44:17 +00:00
parent 1dd55b2e91
commit ba217ad4db
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ef/ef0300a.uml
View File

@ -39,18 +39,19 @@ NUMBER F_NUMBER 5
BEGIN
PROMPT 48 1 "Numero Distinta "
FIELD LF_EFFETTI->NDIST
FLAGS "R"
KEY 4
USE LF_EFFETTI KEY 4 SELECT NRIGADIST == 1
USE LF_EFFETTI KEY 4 SELECT (NRIGADIST>0)&&(NRIGADIST==883@->NRIGADIST)
JOIN LF_EFFETTI KEY 4 ALIAS 883 INTO TIPODIST==TIPODIST NDIST==NDIST
JOIN %BAN INTO CODTAB==CODABIP+CODCABP
INPUT TIPODIST F_TIPODIST
INPUT NDIST F_NUMBER
INPUT NRIGADIST F_NUMBERRIGA
DISPLAY "Numero" NDIST
DISPLAY "Tipo" TIPODIST
DISPLAY "Data@10" DATADIST
DISPLAY "C/F@2" TIPOCF
DISPLAY "ABI@5" CODABIP
DISPLAY "CAB@5" CODCABP
DISPLAY "C/F@5" TIPOCF
DISPLAY "Banca@50" LF_TABCOM->S0
OUTPUT F_NUMBER NDIST
OUTPUT F_TIPODIST TIPODIST
OUTPUT F_NUMBERRIGA NRIGADIST