diff --git a/ve/ve1100a.uml b/ve/ve1100a.uml index 41d62a799..4e5f9431a 100755 --- a/ve/ve1100a.uml +++ b/ve/ve1100a.uml @@ -54,13 +54,13 @@ END NUMBER F_DA_NDOC 7 0 BEGIN PROMPT 2 10 "Dal num. " - USE 33 KEY 1 SELECT (CODNUM==#F_CODNUM) && (ANNO==#F_ANNO) && (PROVV==#F_PROVV) + USE 33 KEY 1 JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF JOIN 13 TO 20 INTO COM=COMCF - INPUT CODNUM F_CODNUM - INPUT ANNO F_ANNO + INPUT PROVV F_PROVV SELECT + INPUT ANNO F_ANNO SELECT + INPUT CODNUM F_CODNUM SELECT INPUT NDOC F_DA_NDOC - INPUT PROVV F_PROVV DISPLAY "Data@10" DATADOC DISPLAY "Numero@7" NDOC DISPLAY "Cliente/Fornitore@40" 20->RAGSOC @@ -73,13 +73,13 @@ END NUMBER F_A_NDOC 7 0 BEGIN PROMPT 2 12 "Al num. " - USE 33 KEY 1 SELECT (CODNUM==#F_CODNUM) && (ANNO==#F_ANNO) && (PROVV==#F_PROVV) + USE 33 KEY 1 JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF JOIN 13 TO 20 INTO COM=COMCF - INPUT CODNUM F_CODNUM - INPUT ANNO F_ANNO + INPUT PROVV F_PROVV SELECT + INPUT ANNO F_ANNO SELECT + INPUT CODNUM F_CODNUM SELECT INPUT NDOC F_A_NDOC - INPUT PROVV F_PROVV COPY DISPLAY F_DA_NDOC OUTPUT F_A_NDOC NDOC WARNING "Il numero documento deve essere superiore al limite inferiore" @@ -90,14 +90,18 @@ END DATE F_DA_DATADOC BEGIN PROMPT 2 15 "Dalla data " - USE 33 KEY 3 SELECT (CODNUM==#F_CODNUM) && (ANNO==#F_ANNO) && (PROVV==#F_PROVV) + USE 33 KEY 3 SELECT (PROVV==#F_PROVV) && (ANNO==#F_ANNO) && (CODNUM==#F_CODNUM) JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF JOIN 13 TO 20 INTO COM=COMCF - INPUT CODNUM F_CODNUM - INPUT ANNO F_ANNO INPUT DATADOC F_DA_DATADOC INPUT PROVV F_PROVV - COPY DISPLAY F_DA_NDOC + INPUT ANNO F_ANNO + INPUT CODNUM F_CODNUM + DISPLAY "Data@10" DATADOC + DISPLAY "Numero@7" NDOC + DISPLAY "Cliente/Fornitore@40" 20->RAGSOC + DISPLAY "Comune@20" 13->DENCOM +// COPY DISPLAY F_DA_NDOC OUTPUT F_DA_NDOC NDOC OUTPUT F_DA_DATADOC DATADOC GROUP 2 @@ -107,11 +111,11 @@ DATE F_A_DATADOC BEGIN PROMPT 2 17 "Alla data " COPY USE F_DA_DATADOC - INPUT CODNUM F_CODNUM - INPUT ANNO F_ANNO INPUT DATADOC F_A_DATADOC INPUT PROVV F_PROVV - COPY DISPLAY F_DA_NDOC + INPUT ANNO F_ANNO + INPUT CODNUM F_CODNUM + COPY DISPLAY F_DA_DATADOC OUTPUT F_A_NDOC NDOC OUTPUT F_A_DATADOC DATADOC GROUP 2