diff --git a/mg/bastfca.uml b/mg/bastfca.uml index 7bfc73b19..85f0d0a7f 100755 --- a/mg/bastfca.uml +++ b/mg/bastfca.uml @@ -1,26 +1,65 @@ -#include "..\ba\ba3200.h" -PAGE "Stampa Tabella Formato Codice Articoli" -1 -1 58 8 +#include "..\mg\mg0200.h" +PAGE "Stampa Tabella Gruppi Codice Articoli" -1 -1 68 8 STRING F_INIZIO1 1 BEGIN PROMPT 2 1 "Dal livello " + FIELD LF_TABCOM->CODTAB[1,1] USE FCA INPUT CODTAB F_INIZIO1 DISPLAY "Codice " CODTAB[1,1] DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB + OUTPUT F_INIZIO1 CODTAB[1,1] GROUP 1 + CHECKTYPE NORMAL END STRING F_FINE1 1 BEGIN PROMPT 2 3 " Al livello " - HELP "Inserire il codice di fine " + FIELD LF_TABCOM->CODTAB[1,1] COPY USE F_INIZIO1 INPUT CODTAB F_FINE1 COPY DISPLAY F_INIZIO1 OUTPUT F_FINE1 CODTAB GROUP 2 + CHECKTYPE NORMAL +END + +BOOL F_DETTAGLIO +BEGIN + PROMPT 2 5 "Stampo anche i gruppi " + MESSAGE TRUE ENABLE,F_FINE2 |ENABLE,F_INIZIO2 + MESSAGE FALSE DISABLE,F_FINE2 |DISABLE,F_INIZIO2 +END + +STRING F_INIZIO2 20 +BEGIN + PROMPT 28 1 "Dal gruppo " + FIELD LF_TABCOM->CODTAB[2,20] + USE GCA SELECT CODTAB[1,1]==#F_INIZIO1 + INPUT CODTAB[1,1] F_INIZIO1 + INPUT CODTAB[2,20] F_INIZIO2 + DISPLAY "Codice " CODTAB[2,20] + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO2 CODTAB[2,20] + OUTPUT F_INIZIO1 CODTAB[1,1] + GROUP 1 + CHECKTYPE NORMAL +END + +STRING F_FINE2 20 +BEGIN + PROMPT 28 3 " Al gruppo " + FIELD LF_TABCOM->CODTAB[2,20] + USE GCA SELECT CODTAB[1,1]==#F_FINE1 + INPUT CODTAB[1,1] F_FINE1 + INPUT CODTAB[2,20] F_FINE2 + COPY DISPLAY F_INIZIO2 + OUTPUT F_FINE2 CODTAB[2,20] + OUTPUT F_FINE1 CODTAB[1,1] + GROUP 2 + CHECKTYPE NORMAL END BUTTON DLG_OK 10 2