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
1994-11-14 12:14:08 +00:00 · 1994-11-14 12:14:08 +00:00 · a90e540b18
commit a90e540b18
parent dafe562bd5
2 changed files with 2 additions and 1 deletions
--- a/cg/cg0500a.uml
+++ b/cg/cg0500a.uml
@ -87,7 +87,7 @@ BEGIN
  OUTPUT F_COD_REG CODTAB[5,7]
  OUTPUT F_TIPO_REG I0
  OUTPUT F_CORRISP B0
-  WARNING "Registro assente"
+  WARNING "Registro assente o non compatibile col tipo documento"
  CHECKTYPE NORMAL
  FLAGS "DU"
 END
--- a/cg/cg0500b.uml
+++ b/cg/cg0500b.uml
@ -243,6 +243,7 @@ BUTTON DLG_NULL 9 2
 BEGIN
  PROMPT -33 -1 "Azzera"
  MESSAGE RESET,1@      
+  MESSAGE EXIT,K_ENTER
 END

 ENDPAGE