root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corretto funzionamento del tasto ricerca.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@258 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-09-16 13:03:16 +00:00
parent 8077e1c1df
commit 78575e6713
1 changed files with 98 additions and 97 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

195
ba/ba5000.uml
View File

@ -1,97 +1,98 @@
#include "ba4600.h" #include "ba4600.h"
PAGE "Ricerca soci" -1 -1 42 9 PAGE "Ricerca soci" -1 -1 42 9
RADIOBUTTON LST_SC1_TIPOASOC 12 RADIOBUTTON LST_SC1_TIPOASOC 12
BEGIN BEGIN
PROMPT 1 1 "Persona" PROMPT 1 1 "Persona"
FIELD LF_SOCI->TIPOASOC FIELD LF_SOCI->TIPOASOC
HELP "Indicare se si tratta di persona fisica o giuridica" HELP "Indicare se si tratta di persona fisica o giuridica"
ITEM "F|Fisica" ITEM "F|Fisica"
ITEM "G|Giuridica" ITEM "G|Giuridica"
END END
NUMBER FLD_SC1_ANNO 4 NUMBER FLD_SC1_ANNO 4
BEGIN BEGIN
PROMPT 20 2 "Anno " PROMPT 20 2 "Anno "
FIELD LF_SOCI->ANNO FIELD LF_SOCI->ANNO
FLAGS "A" FLAGS "A"
END END
STRING FLD_SC1_CODCAR 2 STRING FLD_SC1_CODCAR 2
BEGIN BEGIN
PROMPT 20 3 "Codice carica " PROMPT 20 3 "Codice carica "
FIELD LF_SOCI->CODCAR FIELD LF_SOCI->CODCAR
FLAGS "RZ" FLAGS "RZ"
USE %CRS USE %CRS
INPUT CODTAB FLD_SC1_CODCAR INPUT CODTAB FLD_SC1_CODCAR
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Carica@30" S0 DISPLAY "Carica@30" S0
OUTPUT FLD_SC1_CODCAR CODTAB OUTPUT FLD_SC1_CODCAR CODTAB
HELP "Inserire il codice della carica del socio" HELP "Inserire il codice della carica del socio"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Carica assente" WARNING "Carica assente"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 5 "Richiesta qualifica" PROMPT 1 5 "Richiesta qualifica"
END END
LIST LST_SC1_RICQUAL 2 24 LIST LST_SC1_RICQUAL 2 24
BEGIN BEGIN
PROMPT 1 6 "" PROMPT 1 6 ""
FIELD LF_SOCI->CODCAR FIELD LF_SOCI->CODCAR
HELP "Inserire la qualifica del socio" HELP "Inserire la qualifica del socio"
ITEM " |Nessuna" ITEM " |Nessuna"
ITEM "A|Amministratore(A)" ITEM "A|Amministratore(A)"
ITEM "B|Amministratore(B)" ITEM "B|Amministratore(B)"
ITEM "B1|Amministratore(B1)" ITEM "B1|Amministratore(B1)"
ITEM "B2|Amministratore(B2)" ITEM "B2|Amministratore(B2)"
ITEM "C|Organo di controllo" ITEM "C|Organo di controllo"
ITEM "R|Revisore" ITEM "R|Revisore"
ITEM "S|Sindaco" ITEM "S|Sindaco"
ITEM "SO|Soggetto operativo" ITEM "SO|Soggetto operativo"
END END
LIST LST_SC2_Q740 1 12 LIST LST_SC2_Q740 1 12
BEGIN BEGIN
PROMPT 1 7 "Modello 740 " PROMPT 1 7 "Modello 740 "
FIELD LF_SOCI->Q740 FIELD LF_SOCI->Q740
HELP "Inserire il rigo in cui compare il socio sul modello 740" HELP "Inserire il rigo in cui compare il socio sul modello 740"
ITEM " |Nessuno" ITEM " |Nessuno"
ITEM "A|Quadro A" ITEM "A|Quadro A"
ITEM "F|Quadro F" ITEM "F|Quadro F"
ITEM "G|Quadro G" ITEM "G|Quadro G"
ITEM "H|Quadro H" ITEM "H|Quadro H"
END END
LIST LST_SC2_QUATTPREV 2 12 LIST LST_SC2_QUATTPREV 2 12
BEGIN BEGIN
PROMPT 1 8 "Quadro 750 " PROMPT 1 8 "Quadro 750 "
FIELD LF_SOCI->QUATTPREV FIELD LF_SOCI->QUATTPREV
HELP "Inserire il rigo in cui comapare il socio sul quadro 750" HELP "Inserire il rigo in cui comapare il socio sul quadro 750"
ITEM " |Nessuno" ITEM " |Nessuno"
ITEM "A|Quadro A" ITEM "A|Quadro A"
ITEM "B|Quadro B" ITEM "B|Quadro B"
ITEM "D|Quadro D" ITEM "D|Quadro D"
ITEM "D1|Quadro D1" ITEM "D1|Quadro D1"
END END
BUTTON DLG_FINDREC 9 2 BUTTON DLG_FINDREC 9 2
BEGIN BEGIN
PROMPT 30 5 "Ricerca" PROMPT 30 5 "Ri~cerca"
END MESSAGE EXIT,K_F9
END
BUTTON DLG_QUIT 9 2
BEGIN BUTTON DLG_QUIT 9 2
PROMPT 30 7 "Fine" BEGIN
END PROMPT 30 7 "Fine"
END
ENDPAGE
ENDPAGE
ENDMASK
ENDMASK