Corretto warning e forzata l'uscita nel caso di azzeramneto di una riga

git-svn-id: svn://10.65.10.50/trunk@617 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-11-14 12:14:08 +00:00
parent dafe562bd5
commit a90e540b18
2 changed files with 2 additions and 1 deletions

View File

@ -87,7 +87,7 @@ BEGIN
OUTPUT F_COD_REG CODTAB[5,7] OUTPUT F_COD_REG CODTAB[5,7]
OUTPUT F_TIPO_REG I0 OUTPUT F_TIPO_REG I0
OUTPUT F_CORRISP B0 OUTPUT F_CORRISP B0
WARNING "Registro assente" WARNING "Registro assente o non compatibile col tipo documento"
CHECKTYPE NORMAL CHECKTYPE NORMAL
FLAGS "DU" FLAGS "DU"
END END

View File

@ -243,6 +243,7 @@ BUTTON DLG_NULL 9 2
BEGIN BEGIN
PROMPT -33 -1 "Azzera" PROMPT -33 -1 "Azzera"
MESSAGE RESET,1@ MESSAGE RESET,1@
MESSAGE EXIT,K_ENTER
END END
ENDPAGE ENDPAGE