Corretta ADD ba4 -0 in ADD RUN ba4 -0

git-svn-id: svn://10.65.10.50/trunk@1287 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-04-21 09:04:26 +00:00
parent aa4f1d2951
commit 0cfe28a61f
2 changed files with 82 additions and 82 deletions

View File

@ -240,7 +240,7 @@ OUTPUT F_PROVCF PROVCOM
HELP "Codice del comune del recapito" HELP "Codice del comune del recapito"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Comune assente" WARNING "Comune assente"
ADD ba4 -0 ADD RUN ba4 -0
END END
STRING F_DENCOMCF 50 STRING F_DENCOMCF 50
@ -253,7 +253,7 @@ DISPLAY "Stato" STATO
DISPLAY "Codice" COM DISPLAY "Codice" COM
COPY OUTPUT F_COMCF COPY OUTPUT F_COMCF
HELP "Nome del comune del recapito" HELP "Nome del comune del recapito"
ADD ba4 -0 ADD RUN ba4 -0
END END
LIST F_TIPOPERS 1 11 LIST F_TIPOPERS 1 11
@ -478,7 +478,7 @@ OUTPUT F_RAGSOC1 RAGSOC
HELP "Codice anagrafico percepiente per la compilazione Mod. 770" HELP "Codice anagrafico percepiente per la compilazione Mod. 770"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Percipiente assente" WARNING "Percipiente assente"
ADD RUN ba4 -1 ADD RUN ba4 -1
END END
STRING F_RAGSOC1 50 STRING F_RAGSOC1 50
@ -540,7 +540,7 @@ OUTPUT F_DENCOMNASC DENCOM
HELP "Codice del comune di nascita del cliente/fornitore" HELP "Codice del comune di nascita del cliente/fornitore"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Comune assente" WARNING "Comune assente"
ADD ba4 -0 ADD RUN ba4 -0
END END
STRING F_DENCOMNASC 50 STRING F_DENCOMNASC 50
@ -552,7 +552,7 @@ INPUT DENCOM F_DENCOMNASC
COPY DISPLAY F_DENCOMCF COPY DISPLAY F_DENCOMCF
COPY OUTPUT F_COMNASC COPY OUTPUT F_COMNASC
HELP "Nome del comune di nascita" HELP "Nome del comune di nascita"
ADD ba4 -0 ADD RUN ba4 -0
END END
ENDPAGE ENDPAGE

View File

@ -4,151 +4,151 @@ PAGE "" -1 -1 76 16
STRING F_RAGSOCI 50 STRING F_RAGSOCI 50
BEGIN BEGIN
PROMPT 1 2 "Rag. soc. " PROMPT 1 2 "Rag. soc. "
HELP "Ragione sociale del cliente/fornitore" HELP "Ragione sociale del cliente/fornitore"
GROUP 1 GROUP 1
END END
STRING F_INDIRI 35 STRING F_INDIRI 35
BEGIN BEGIN
PROMPT 1 4 "Indirizzo " PROMPT 1 4 "Indirizzo "
HELP "Indirizzo del cliente/fornitore" HELP "Indirizzo del cliente/fornitore"
GROUP 1 GROUP 1
END END
STRING F_CIVI 10 STRING F_CIVI 10
BEGIN BEGIN
PROMPT 54 4 "N. " PROMPT 54 4 "N. "
HELP "Numero civico del cliente/fornitore" HELP "Numero civico del cliente/fornitore"
GROUP 1 GROUP 1
END END
STRING F_LOCALI 35 STRING F_LOCALI 35
BEGIN BEGIN
PROMPT 1 5 "Localita " PROMPT 1 5 "Localita "
HELP "Localita' di residenza del C/F" HELP "Localita' di residenza del C/F"
GROUP 1 GROUP 1
END END
STRING F_CAPI 5 STRING F_CAPI 5
BEGIN BEGIN
PROMPT 54 5 "CAP " PROMPT 54 5 "CAP "
HELP "Codice di Avviamento Postale del C/F" HELP "Codice di Avviamento Postale del C/F"
GROUP 1 GROUP 1
END END
NUMBER F_STATOI 3 NUMBER F_STATOI 3
BEGIN BEGIN
PROMPT 1 6 "Stato " PROMPT 1 6 "Stato "
FLAGS "RZ" FLAGS "RZ"
USE %STA USE %STA
INPUT CODTAB F_STATOI INPUT CODTAB F_STATOI
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Stato@50" S0 DISPLAY "Stato@50" S0
OUTPUT F_STATOI CODTAB OUTPUT F_STATOI CODTAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Stato assente" WARNING "Stato assente"
HELP "Codice dello stato del cliente/fornitore" HELP "Codice dello stato del cliente/fornitore"
GROUP 1 GROUP 1
END END
STRING F_COMI 4 STRING F_COMI 4
BEGIN BEGIN
PROMPT 18 6 "Comune " PROMPT 18 6 "Comune "
FLAGS "U" FLAGS "U"
USE LF_COMUNI USE LF_COMUNI
INPUT STATO 106 INPUT STATO 106
INPUT COM 107 INPUT COM 107
DISPLAY "Stato" STATO DISPLAY "Stato" STATO
DISPLAY "Codice" COM DISPLAY "Codice" COM
DISPLAY "Comune@50" DENCOM DISPLAY "Comune@50" DENCOM
OUTPUT F_CAPI CAPCOM OUTPUT F_CAPI CAPCOM
OUTPUT F_STATOI STATO OUTPUT F_STATOI STATO
OUTPUT F_COMI COM OUTPUT F_COMI COM
OUTPUT F_DENCOMI DENCOM OUTPUT F_DENCOMI DENCOM
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Comune assente" WARNING "Comune assente"
ADD ba4 -0 ADD RUN ba4 -0
HELP "Codice del comune del cliente/fornitore" HELP "Codice del comune del cliente/fornitore"
GROUP 1 GROUP 1
END END
STRING F_DENCOMI 40 STRING F_DENCOMI 40
BEGIN BEGIN
PROMPT 33 6 "" PROMPT 33 6 ""
HELP "Nome del comne del ciente/fornitore" HELP "Nome del comne del ciente/fornitore"
USE LF_COMUNI KEY 2 USE LF_COMUNI KEY 2
INPUT DENCOM F_DENCOMI INPUT DENCOM F_DENCOMI
DISPLAY "Comune@50" DENCOM DISPLAY "Comune@50" DENCOM
DISPLAY "Stato" STATO DISPLAY "Stato" STATO
DISPLAY "Codice" COM DISPLAY "Codice" COM
COPY OUTPUT F_COMI COPY OUTPUT F_COMI
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD ba4 -0 ADD RUN ba4 -0
GROUP 1 GROUP 1
END END
GROUPBOX DLG_NULL 72 4 GROUPBOX DLG_NULL 72 4
BEGIN BEGIN
PROMPT 1 8 "Numeri Telefonici" PROMPT 1 8 "Numeri Telefonici"
END END
STRING F_PTELI 10 STRING F_PTELI 10
BEGIN BEGIN
PROMPT 2 9 "Telefono " PROMPT 2 9 "Telefono "
HELP "Prefisso del numero di telefono" HELP "Prefisso del numero di telefono"
GROUP 1 GROUP 1
END END
STRING F_TELI 30 STRING F_TELI 30
BEGIN BEGIN
PROMPT 40 9 "" PROMPT 40 9 ""
HELP "Numero di telefono del cliente/fornitore" HELP "Numero di telefono del cliente/fornitore"
GROUP 1 GROUP 1
END END
STRING F_PFAXI 10 STRING F_PFAXI 10
BEGIN BEGIN
PROMPT 2 10 "Fax " PROMPT 2 10 "Fax "
HELP "Prefisso del numero di fax" HELP "Prefisso del numero di fax"
GROUP 1 GROUP 1
END END
STRING F_FAXI 30 STRING F_FAXI 30
BEGIN BEGIN
PROMPT 40 10 "" PROMPT 40 10 ""
HELP "Numero di fax del cliente/fornitore" HELP "Numero di fax del cliente/fornitore"
GROUP 1 GROUP 1
END END
BOOLEAN F_IVARIDI BOOLEAN F_IVARIDI
BEGIN BEGIN
PROMPT 2 13 "Riduzione IVA" PROMPT 2 13 "Riduzione IVA"
HELP "Indicare se Š soggetto a riduzione IVA" HELP "Indicare se Š soggetto a riduzione IVA"
GROUP 1 GROUP 1
END END
NUMBER F_CODINDI 3 NUMBER F_CODINDI 3
BEGIN BEGIN
PROMPT 1 1 "Codice " PROMPT 1 1 "Codice "
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
END END
BUTTON DLG_NULL 9 2 BUTTON DLG_NULL 9 2
BEGIN BEGIN
PROMPT -33 -1 "A~zzera" PROMPT -33 -1 "A~zzera"
MESSAGE RESET,1@ MESSAGE RESET,1@
MESSAGE EXIT,K_ENTER MESSAGE EXIT,K_ENTER
END END
ENDPAGE ENDPAGE