diff --git a/cg/cgstcam.rep b/cg/cgstcam.rep index bee04604f..00c69de40 100755 --- a/cg/cgstcam.rep +++ b/cg/cgstcam.rep @@ -1,46 +1,48 @@ - + -
+
#SYSTEM.RAGSOC - + - + - + - + - +
-
-
-
- - CODTAB +
+
+
+ + CODTAB[1,3] + MESSAGE TABLEREAD,%VAL,#THIS_FIELD,103=S0 - + D0 - - S0 - - + S4 + +
-
+
#SYSTEM.DATE @@ -50,8 +52,7 @@
-
+
USE CAM - FROM CODTAB=#FROM - TO CODTAB=#TO + \ No newline at end of file diff --git a/cg/cgstcam.uml b/cg/cgstcam.uml index 44186cced..b25f96001 100755 --- a/cg/cgstcam.uml +++ b/cg/cgstcam.uml @@ -9,7 +9,7 @@ PAGE "Stampa Tabella Cambi Giornalieri" 0 2 0 0 STRING F_INIZIO1 3 BEGIN PROMPT 2 1 "Da valuta " - FIELD FROM[1,3] + FIELD CODTAB[1,3] USE CAM JOIN %VAL ALIAS 200 INTO CODTAB=CODTAB[1,3] INPUT CODTAB[1,3] F_INIZIO1 @@ -18,7 +18,10 @@ BEGIN DISPLAY "Data valuta" D0 DISPLAY "Descrizione@50" -200->S0 OUTPUT F_INIZIO1 CODTAB[1,3] - OUTPUT F_INIZIO2 CODTAB[4,14] + OUTPUT F_INIZIO2 CODTAB[4,11] + VALIDATE REQIF_FUNC 1 F_INIZIO2 + WARNING "Codice valuta mancante !" + CHECKTYPE SEARCH FLAGS "UZ" GROUP 1 END @@ -26,7 +29,7 @@ END DATE F_INIZIO2 BEGIN PROMPT 28 1 "Da data " - FIELD FROM[4,11] + FIELD CODTAB[4,11] COPY ALL F_INIZIO1 FLAGS "R" GROUP 1 @@ -35,7 +38,7 @@ END STRING F_FINE1 3 BEGIN PROMPT 2 2 "A valuta " - FIELD TO[1,3] + FIELD CODTAB[1,3] COPY USE F_INIZIO1 INPUT CODTAB[1,3] F_FINE1 INPUT CODTAB[4,11] F_FINE2 @@ -44,6 +47,9 @@ BEGIN DISPLAY "Descrizione@50" -200->S0 OUTPUT F_FINE1 CODTAB[1,3] OUTPUT F_FINE2 CODTAB[4,11] + VALIDATE REQIF_FUNC 1 F_FINE2 + WARNING "Codice valuta mancante !" + CHECKTYPE SEARCH FLAGS "UZ" GROUP 2 END @@ -52,7 +58,7 @@ END DATE F_FINE2 BEGIN PROMPT 28 2 "A data " - FIELD TO[4,11] + FIELD CODTAB[4,11] FLAGS "R" COPY ALL F_FINE1 GROUP 2 diff --git a/cg/cgtbcam.uml b/cg/cgtbcam.uml index 6ead225fd..805af5ca7 100755 --- a/cg/cgtbcam.uml +++ b/cg/cgtbcam.uml @@ -43,11 +43,9 @@ BEGIN FIELD CODTAB[4,11] FLAGS "R" KEY 1 -// USE CAM SELECT CODTAB?(#FLD_TABCAM_CODVAL+"*") -// JOIN %VAL TO CAM KEY 1 ALIAS 50 INTO CODTAB=CODTAB[1,3] USE CAM SELECT TRIM(CODTAB[1,3])==#FLD_TABCAM_CODVAL JOIN %VAL TO CAM KEY 1 ALIAS 50 INTO CODTAB==(TRIM(CODTAB[1,3])) - INPUT CODTAB[1,3] FLD_TABCAM_CODVAL SELECT // PER INPUT + INPUT CODTAB[1,3] FLD_TABCAM_CODVAL SELECT INPUT CODTAB[4,11] FLD_TABCAM_D0 DISPLAY "Valuta" CODTAB[1,3] DISPLAY "Data@10" D0