diff --git a/ef/ef0300a.uml b/ef/ef0300a.uml index b29294304..884d259b3 100755 --- a/ef/ef0300a.uml +++ b/ef/ef0300a.uml @@ -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