From 78575e6713077d67e1bfcb052163d17447d3eeca Mon Sep 17 00:00:00 2001 From: guy Date: Fri, 16 Sep 1994 13:03:16 +0000 Subject: [PATCH] Corretto funzionamento del tasto ricerca. git-svn-id: svn://10.65.10.50/trunk@258 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ba/ba5000.uml | 195 +++++++++++++++++++++++++------------------------- 1 file changed, 98 insertions(+), 97 deletions(-) diff --git a/ba/ba5000.uml b/ba/ba5000.uml index 641fa8cad..99af6f1ff 100755 --- a/ba/ba5000.uml +++ b/ba/ba5000.uml @@ -1,97 +1,98 @@ -#include "ba4600.h" - -PAGE "Ricerca soci" -1 -1 42 9 - -RADIOBUTTON LST_SC1_TIPOASOC 12 -BEGIN - PROMPT 1 1 "Persona" - FIELD LF_SOCI->TIPOASOC - HELP "Indicare se si tratta di persona fisica o giuridica" - ITEM "F|Fisica" - ITEM "G|Giuridica" -END - -NUMBER FLD_SC1_ANNO 4 -BEGIN - PROMPT 20 2 "Anno " - FIELD LF_SOCI->ANNO - FLAGS "A" -END - -STRING FLD_SC1_CODCAR 2 -BEGIN - PROMPT 20 3 "Codice carica " - FIELD LF_SOCI->CODCAR - FLAGS "RZ" - USE %CRS - INPUT CODTAB FLD_SC1_CODCAR - DISPLAY "Codice" CODTAB - DISPLAY "Carica@30" S0 - OUTPUT FLD_SC1_CODCAR CODTAB - HELP "Inserire il codice della carica del socio" - CHECKTYPE NORMAL - WARNING "Carica assente" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 5 "Richiesta qualifica" -END - -LIST LST_SC1_RICQUAL 2 24 -BEGIN - PROMPT 1 6 "" - FIELD LF_SOCI->CODCAR - HELP "Inserire la qualifica del socio" - ITEM " |Nessuna" - ITEM "A|Amministratore(A)" - ITEM "B|Amministratore(B)" - ITEM "B1|Amministratore(B1)" - ITEM "B2|Amministratore(B2)" - ITEM "C|Organo di controllo" - ITEM "R|Revisore" - ITEM "S|Sindaco" - ITEM "SO|Soggetto operativo" -END - -LIST LST_SC2_Q740 1 12 -BEGIN - PROMPT 1 7 "Modello 740 " - FIELD LF_SOCI->Q740 - HELP "Inserire il rigo in cui compare il socio sul modello 740" - ITEM " |Nessuno" - ITEM "A|Quadro A" - ITEM "F|Quadro F" - ITEM "G|Quadro G" - ITEM "H|Quadro H" -END - -LIST LST_SC2_QUATTPREV 2 12 -BEGIN - PROMPT 1 8 "Quadro 750 " - FIELD LF_SOCI->QUATTPREV - HELP "Inserire il rigo in cui comapare il socio sul quadro 750" - ITEM " |Nessuno" - ITEM "A|Quadro A" - ITEM "B|Quadro B" - ITEM "D|Quadro D" - ITEM "D1|Quadro D1" -END - -BUTTON DLG_FINDREC 9 2 -BEGIN - PROMPT 30 5 "Ricerca" -END - -BUTTON DLG_QUIT 9 2 -BEGIN - PROMPT 30 7 "Fine" -END - -ENDPAGE - -ENDMASK - - - - +#include "ba4600.h" + +PAGE "Ricerca soci" -1 -1 42 9 + +RADIOBUTTON LST_SC1_TIPOASOC 12 +BEGIN + PROMPT 1 1 "Persona" + FIELD LF_SOCI->TIPOASOC + HELP "Indicare se si tratta di persona fisica o giuridica" + ITEM "F|Fisica" + ITEM "G|Giuridica" +END + +NUMBER FLD_SC1_ANNO 4 +BEGIN + PROMPT 20 2 "Anno " + FIELD LF_SOCI->ANNO + FLAGS "A" +END + +STRING FLD_SC1_CODCAR 2 +BEGIN + PROMPT 20 3 "Codice carica " + FIELD LF_SOCI->CODCAR + FLAGS "RZ" + USE %CRS + INPUT CODTAB FLD_SC1_CODCAR + DISPLAY "Codice" CODTAB + DISPLAY "Carica@30" S0 + OUTPUT FLD_SC1_CODCAR CODTAB + HELP "Inserire il codice della carica del socio" + CHECKTYPE NORMAL + WARNING "Carica assente" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 5 "Richiesta qualifica" +END + +LIST LST_SC1_RICQUAL 2 24 +BEGIN + PROMPT 1 6 "" + FIELD LF_SOCI->CODCAR + HELP "Inserire la qualifica del socio" + ITEM " |Nessuna" + ITEM "A|Amministratore(A)" + ITEM "B|Amministratore(B)" + ITEM "B1|Amministratore(B1)" + ITEM "B2|Amministratore(B2)" + ITEM "C|Organo di controllo" + ITEM "R|Revisore" + ITEM "S|Sindaco" + ITEM "SO|Soggetto operativo" +END + +LIST LST_SC2_Q740 1 12 +BEGIN + PROMPT 1 7 "Modello 740 " + FIELD LF_SOCI->Q740 + HELP "Inserire il rigo in cui compare il socio sul modello 740" + ITEM " |Nessuno" + ITEM "A|Quadro A" + ITEM "F|Quadro F" + ITEM "G|Quadro G" + ITEM "H|Quadro H" +END + +LIST LST_SC2_QUATTPREV 2 12 +BEGIN + PROMPT 1 8 "Quadro 750 " + FIELD LF_SOCI->QUATTPREV + HELP "Inserire il rigo in cui comapare il socio sul quadro 750" + ITEM " |Nessuno" + ITEM "A|Quadro A" + ITEM "B|Quadro B" + ITEM "D|Quadro D" + ITEM "D1|Quadro D1" +END + +BUTTON DLG_FINDREC 9 2 +BEGIN + PROMPT 30 5 "Ri~cerca" + MESSAGE EXIT,K_F9 +END + +BUTTON DLG_QUIT 9 2 +BEGIN + PROMPT 30 7 "Fine" +END + +ENDPAGE + +ENDMASK + + + +