diff --git a/at/at4100a.uml b/at/at4100a.uml index df2402631..44afd521e 100755 --- a/at/at4100a.uml +++ b/at/at4100a.uml @@ -384,6 +384,29 @@ BEGIN PROMPT 37 14 "Blocco per id. precedente a " END +// Stampa solo chi fatto l'ultima donazione nel punto scelto o +// se non ha donazioni, ha come preferenza quel punto prelievo +STRING F_PUNTO 4 +BEGIN + PROMPT 2 15 "Punto di prelievo " + FLAGS "U" + USE LDN + INPUT CODTAB F_PUNTO + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_PUNTO CODTAB + OUTPUT F_D_PUNTO S0 + CHECKTYPE NORMAL + WARNING "Codice non presente" + HELP "Solo chi ha fatto l'ult.don. nel punto o, se non ha don., ha come pref. quel punto" +END + +STRING F_D_PUNTO 50 +BEGIN + PROMPT 27 15 "" + FLAGS "D" +END + GROUPBOX DLG_NULL 77 3 BEGIN PROMPT 1 18 "Dati gruppo-ematici" @@ -413,29 +436,6 @@ BEGIN #include "rh.h" END -// Stampa solo chi fatto l'ultima donazione nel punto scelto o -// se non ha donazioni, ha come preferenza quel punto prelievo -STRING F_PUNTO 4 -BEGIN - PROMPT 2 15 "Punto di prelievo " - FLAGS "U" - USE LDN - INPUT CODTAB F_PUNTO - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_PUNTO CODTAB - OUTPUT F_D_PUNTO S0 - CHECKTYPE NORMAL - WARNING "Codice non presente" - HELP "Punto di prelievo" -END - -STRING F_D_PUNTO 50 -BEGIN - PROMPT 27 15 "" - FLAGS "D" -END - BOOLEAN F_REGISTRA BEGIN PROMPT 2 16 "Registra la data di stampa nel campo data convocazione del soggetto"