Corretto filtro A Ragione sociale sulle persone fisiche/giuridiche

git-svn-id: svn://10.65.10.50/trunk@261 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-09-16 16:57:34 +00:00
parent d24b334ee5
commit ef7ea71e06

View File

@ -98,6 +98,7 @@ STRING FLD_ANF_RAGSOCTO 50 29
BEGIN
PROMPT 34 8 ""
COPY USE FLD_ANF_RAGSOCFR
INPUT TIPOA "F"
INPUT RAGSOC FLD_ANF_RAGSOCTO
COPY DISPLAY FLD_ANF_RAGSOCFR
OUTPUT FLD_ANF_RAGSOCTO RAGSOC
@ -149,6 +150,7 @@ STRING FLD_ANG_RAGSOCTO 50 29
BEGIN
PROMPT 34 8 ""
COPY USE FLD_ANG_RAGSOCFR
INPUT TIPOA "G"
INPUT RAGSOC FLD_ANG_RAGSOCTO
COPY DISPLAY FLD_ANG_RAGSOCFR
OUTPUT FLD_ANG_RAGSOCTO RAGSOC