diff --git a/ba/batbinl.uml b/ba/batbinl.uml index 6abc0ecca..c5a94c793 100755 --- a/ba/batbinl.uml +++ b/ba/batbinl.uml @@ -10,172 +10,172 @@ PAGE "Tabella Indici Libro Unico" -1 -1 71 20 NUMBER F_ANNO 4 BEGIN - PROMPT 1 1 "Anno " - FLAGS "A" - FIELD ANNO - USE %LBU - INPUT CODTAB[1,4] F_ANNO - INPUT CODTAB[5,7] F_CODLIB - DISPLAY "Anno" CODTAB[1,4] - DISPLAY "Libro" CODTAB[5,7] - DISPLAY "Descrizione@50" S0 - OUTPUT F_ANNO CODTAB[1,4] - OUTPUT F_CODLIB CODTAB[5,7] - CHECKTYPE REQUIRED - MESSAGE COPY,F_ANNOREG - KEY 1 +PROMPT 1 1 "Anno " +FLAGS "A" +FIELD ANNO +USE %LBU +INPUT CODTAB[1,4] F_ANNO +INPUT CODTAB[5,7] F_CODLIB +DISPLAY "Anno" CODTAB[1,4] +DISPLAY "Libro" CODTAB[5,7] +DISPLAY "Descrizione@50" S0 +OUTPUT F_ANNO CODTAB[1,4] +OUTPUT F_CODLIB CODTAB[5,7] +CHECKTYPE REQUIRED +MESSAGE COPY,F_ANNOREG +KEY 1 END STRING F_CODLIB 3 BEGIN - PROMPT 28 1 "Libro " - FLAGS "UZ" - FIELD CODLIB - COPY ALL F_ANNO - CHECKTYPE REQUIRED - KEY 1 +PROMPT 28 1 "Libro " +FLAGS "UZ" +FIELD CODLIB +COPY ALL F_ANNO +CHECKTYPE REQUIRED +KEY 1 END NUMBER F_INDEX 7 BEGIN - PROMPT 42 1 "Num. registrazione " - FLAGS "U" - FIELD NUMREG - USE LF_INDLIB - JOIN %LBU INTO CODTAB=ANNO+CODLIB - INPUT ANNO F_ANNO - INPUT CODLIB F_CODLIB - INPUT NUMREG F_INDEX - DISPLAY "Anno" ANNO - DISPLAY "Libro" CODLIB - DISPLAY "Indice@7" NUMREG - DISPLAY "Descrizione@50" %LBU->S0 - OUTPUT F_ANNO ANNO - OUTPUT F_CODLIB CODLIB - OUTPUT F_INDEX NUMREG - CHECKTYPE REQUIRED - KEY 1 +PROMPT 42 1 "Num. registrazione " +FLAGS "U" +FIELD NUMREG +USE LF_INDLIB +JOIN %LBU INTO CODTAB=ANNO+CODLIB +INPUT ANNO F_ANNO +INPUT CODLIB F_CODLIB +INPUT NUMREG F_INDEX +DISPLAY "Anno" ANNO +DISPLAY "Codice Libro Unico" CODLIB +DISPLAY "Indice@7" NUMREG +DISPLAY "Descrizione@50" %LBU->S0 +OUTPUT F_ANNO ANNO +OUTPUT F_CODLIB CODLIB +OUTPUT F_INDEX NUMREG +CHECKTYPE REQUIRED +KEY 1 END NUMBER F_ANNOREG 4 BEGIN - PROMPT 1 2 "Anno registrazione " - FIELD ANNOREG - FLAGS "D" +PROMPT 1 2 "Anno registrazione " +FIELD ANNOREG +FLAGS "D" END LIST F_MESE 2 12 BEGIN - PROMPT 40 2 "Mese registrazione " - FIELD MESEREG - FLAGS "M" +PROMPT 40 2 "Mese registrazione " +FIELD MESEREG +FLAGS "M" END NUMBER F_PINI_LU 5 BEGIN - PROMPT 1 3 "Numero pagina iniziale registro unico " - FIELD PAGINI - FLAGS "UR" - MESSAGE DIRTY,F_PFIN_LU - CHECKTYPE REQUIRED +PROMPT 1 3 "Numero pagina iniziale registro unico " +FIELD PAGINI +FLAGS "UR" +MESSAGE DIRTY,F_PFIN_LU +CHECKTYPE REQUIRED END NUMBER F_PFIN_LU 5 BEGIN - PROMPT 1 4 "Numero pagina finale registro unico " - FIELD PAGFIN - FLAGS "UR" - NUM_EXPR {#THIS_FIELD>=#F_PINI_LU} - CHECKTYPE REQUIRED - WARNING "Inserire un numero di pagina superiore a quella iniziale" +PROMPT 1 4 "Numero pagina finale registro unico " +FIELD PAGFIN +FLAGS "UR" +NUM_EXPR {#THIS_FIELD>=#F_PINI_LU} +CHECKTYPE REQUIRED +WARNING "Inserire un numero di pagina superiore a quella iniziale" END NUMBER F_DITTA 5 BEGIN - PROMPT 1 6 "Codice ditta " - FIELD CODDITTA - FLAGS "R" - USE LF_NDITTE - INPUT CODDITTA F_DITTA - DISPLAY "Codice ditta" CODDITTA - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_DITTA CODDITTA - OUTPUT F_RAGSOC RAGSOC - CHECKTYPE REQUIRED - WARNING "E' necessario specificare un codice ditta valido" +PROMPT 1 6 "Codice ditta " +FIELD CODDITTA +FLAGS "R" +USE LF_NDITTE +INPUT CODDITTA F_DITTA +DISPLAY "Codice ditta" CODDITTA +DISPLAY "Ragione sociale@50" RAGSOC +OUTPUT F_DITTA CODDITTA +OUTPUT F_RAGSOC RAGSOC +CHECKTYPE REQUIRED +WARNING "E' necessario specificare un codice ditta valido" END STRING F_RAGSOC 50 BEGIN - PROMPT 1 7 "Ragione sociale " - USE LF_NDITTE KEY 2 - INPUT RAGSOC F_RAGSOC - DISPLAY "Ragione sociale@50" RAGSOC - DISPLAY "Codice ditta" CODDITTA - COPY OUTPUT F_DITTA - CHECKTYPE NORMAL +PROMPT 1 7 "Ragione sociale " +USE LF_NDITTE KEY 2 +INPUT RAGSOC F_RAGSOC +DISPLAY "Ragione sociale@50" RAGSOC +DISPLAY "Codice ditta" CODDITTA +COPY OUTPUT F_DITTA +CHECKTYPE NORMAL END STRING F_CODREG 3 BEGIN - PROMPT 1 8 "Codice registro " - FIELD CODREG - FLAGS "UZ" - USE REG SELECT CODTAB[1,4]=#F_ANNO - INPUT CODTAB[1,4] F_ANNOREG - INPUT CODTAB[5,7] F_CODREG - DISPLAY "Anno" CODTAB[1,4] - DISPLAY "Codice" CODTAB[5,7] - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODREG CODTAB[5,7] - OUTPUT F_DESCREG S0 - VALIDATE NOT_EMPTY_CHECK_FIELD - CHECKTYPE REQUIRED +PROMPT 1 8 "Codice registro " +FIELD CODREG +FLAGS "UZ" +USE REG SELECT CODTAB[1,4]=#F_ANNO +INPUT CODTAB[1,4] F_ANNO +INPUT CODTAB[5,7] F_CODREG +DISPLAY "Anno" CODTAB[1,4] +DISPLAY "Codice" CODTAB[5,7] +DISPLAY "Descrizione@50" S0 +OUTPUT F_CODREG CODTAB[5,7] +OUTPUT F_DESCREG S0 +VALIDATE NOT_EMPTY_CHECK_FIELD +CHECKTYPE REQUIRED END STRING F_DESCREG 50 BEGIN - PROMPT 1 9 "Descrizione " - USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO - INPUT S0 F_DESCREG - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice registro" CODLIB - COPY OUTPUT F_CODREG - CHECKTYPE NORMAL +PROMPT 1 9 "Descrizione " +USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO +INPUT S0 F_DESCREG +DISPLAY "Descrizione@50" S0 +DISPLAY "Codice registro" CODLIB +COPY OUTPUT F_CODREG +CHECKTYPE NORMAL END NUMBER F_PINI_RU 5 BEGIN - PROMPT 1 11 "Numero iniziale pagina registro utente " - FIELD PAGINIUT - FLAGS "R" +PROMPT 1 11 "Numero iniziale pagina registro utente " +FIELD PAGINIUT +FLAGS "R" END NUMBER F_PFIN_RU 5 BEGIN - PROMPT 1 12 "Numero finale pagina registro utente " - FIELD PAGFINUT - FLAGS "R" +PROMPT 1 12 "Numero finale pagina registro utente " +FIELD PAGFINUT +FLAGS "R" END STRING F_CODVID 3 BEGIN - PROMPT 1 14 "Codice vidimazione " - FIELD CODVID +PROMPT 1 14 "Codice vidimazione " +FIELD CODVID END BOOLEAN F_STAMPATO BEGIN - PROMPT 1 16 "Stampato su bollato " - FIELD STAMPATO +PROMPT 1 16 "Stampato su bollato " +FIELD STAMPATO END BOOLEAN F_PANN_LU BEGIN - PROMPT 36 16 "Pagine libro unico annullate" - FIELD ANNULLATE - MESSAGE FALSE REQUIRED,F_DITTA|REQUIRED,F_CODREG - MESSAGE TRUE NORMAL,F_DITTA|NORMAL,F_CODREG +PROMPT 36 16 "Pagine libro unico annullate" +FIELD ANNULLATE +MESSAGE FALSE REQUIRED,F_DITTA|REQUIRED,F_CODREG +MESSAGE TRUE NORMAL,F_DITTA|NORMAL,F_CODREG END ENDPAGE