correzzioni varie sui soci

git-svn-id: svn://10.65.10.50/trunk@2528 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-01-29 13:53:29 +00:00
parent 34f8a45d26
commit f8ea13d94c

View File

@ -1,6 +1,6 @@
#include "ba4600.h"
TOOLBAR "" 0 20 0 2
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
@ -9,7 +9,7 @@ PAGE "Soci 1/2" -1 -1 77 20
GROUPBOX DLG_NULL 76 7
BEGIN
PROMPT 0 0 ""
FLAGS "R"
FLAGS "R"
END
NUMBER FLD_SC1_CODDITTA 5
@ -50,8 +50,8 @@ BEGIN
PROMPT 1 3 "Attuale/Prec. "
FIELD LF_SOCI->ATTPREC
KEY 1
ITEM "A|Attuale"
ITEM "P|Precedente"
ITEM "A|Attuale"
ITEM "P|Precedente"
MESSAGE COPY,7@
END
@ -171,7 +171,7 @@ END
NUMBER FLD_SC1_NQUOTEAZ 7
BEGIN
PROMPT 1 10 "Numero quote "
PROMPT 1 10 "N. quote "
FIELD LF_SOCI->NQUOTEAZ
FLAGS "R"
HELP "Numero di azioni possedute dal socio"
@ -179,32 +179,32 @@ END
NUMBER FLD_SC1_PERCQUAZ 7 3
BEGIN
PROMPT 29 10 "= "
PROMPT 23 10 "%Proprieta' "
FIELD LF_SOCI->PERCQUAZ
FLAGS "R"
HELP "Percentuale delle azioni possedute dal socio"
WARNING "Percentuale quote non corretta"
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)}
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)}
END
NUMBER FLD_SC1_PERCAZREDD 7 3
BEGIN
PROMPT 41 10 "% Reddito da quota az. "
PROMPT 45 10 "%Reddito da quota az."
FIELD LF_SOCI->PERCAZREDD
FLAGS "R"
HELP "Reddito derivante da quote aziendali"
WARNING "Percentuale quote non corretta"
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)}
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)}
END
NUMBER FLD_SC1_PERCAZPERD 7 3
BEGIN
PROMPT 45 11 "Perdita da quota az. "
PROMPT 45 11 "%Perdita da quota az."
FIELD LF_SOCI->PERCAZPERD
FLAGS "R"
HELP "Perdita derivante da quote aziendali"
WARNING "Percentuale quote non corretta"
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)}
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)}
END
LIST LST_SC1_RICQUAL 28
@ -223,14 +223,14 @@ NUMBER FLD_SC1_EMOLUMENTO 15
BEGIN
PROMPT 47 13 "Emolumento "
FIELD LF_SOCI->EMOLUMENTO
FLAGS "R"
FLAGS "R"
PICTURE "."
HELP "Ammontare dell'emolumento dovuto al socio"
END
LIST LST_SC1_PROP 1 23
LIST LST_SC1_PROP 1 24
BEGIN
PROMPT 1 14 "Titoli proprieta' "
PROMPT 1 14 "Titoli proprieta' "
FIELD LF_SOCI->TITPROP
ITEM "1|Intestatario"
ITEM "2|Riportatore"
@ -238,7 +238,7 @@ BEGIN
ITEM "4|Riportato"
ITEM "5|Compratore a termine"
ITEM "U|Usufruttuario"
ITEM "T|Tit. di altro vincolo"
ITEM "T|Tit.di altro vincolo"
HELP "Titoli di proprieta' del socio"
END
@ -254,7 +254,7 @@ END
DATE FLD_SC1_DATAGG
BEGIN
PROMPT 1 16 "Data "
PROMPT 1 16 "Data "
FIELD LF_SOCI->DATAAGG
FLAGS "DA"
END
@ -277,7 +277,7 @@ PAGE "Soci 2/2" -1 -1 77 20
GROUPBOX DLG_NULL 76 7
BEGIN
PROMPT 0 0 ""
FLAGS "R"
FLAGS "R"
END
NUMBER DLG_NULL 5
@ -307,8 +307,8 @@ LIST DLG_NULL 12
BEGIN
PROMPT 1 3 "Attuale/Prec. "
FLAGS "D"
ITEM "A|Attuale"
ITEM "P|Precedente"
ITEM "A|Attuale"
ITEM "P|Precedente"
GROUP 7
END
@ -339,9 +339,9 @@ BEGIN
FIELD LF_SOCI->QUATTPREV
HELP "Quadro in cui compare il socio sul 750"
ITEM " |Nessuno"
ITEM "A1|Quadro A1"
ITEM "A|Quadro A"
ITEM "B|Quadro B"
ITEM "D|Quadro D"
ITEM "D1|Quadro D1"
END
LIST LST_SC2_Q740 10
@ -375,7 +375,7 @@ BEGIN
FLAGS "R"
HELP "Numero di mesi lavorati ex art.120 comma 1"
WARNING "N.ro di mesi non corretto"
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)}
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)}
END
NUMBER FLD_SC2_MLAV120C2 2
@ -385,7 +385,7 @@ BEGIN
FLAGS "R"
HELP "Numero di mesi lavorati ex art.120 comma 2"
WARNING "N.ro di mesi non corretto"
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)}
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)}
END
NUMBER FLD_SC2_CODANAGCON 5
@ -412,7 +412,7 @@ BEGIN
PROMPT 8 13 ": Nome "
HELP "Nome del coniuge del socio"
USE LF_ANAG KEY 2
INPUT TIPOA "F"
INPUT TIPOA "F"
INPUT RAGSOC FLD_SC2_CODANAGCON_ANAFIS_RAGSOC
DISPLAY "Nome@50" RAGSOC
DISPLAY "Codice" CODANAGR