From 964742beee481fb3a30f125d2890cc63dfcfc8d8 Mon Sep 17 00:00:00 2001
From: augusto <augusto@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 27 Oct 1997 16:00:23 +0000
Subject: [PATCH] Aggiustati prompt e inserito controllo su data ripristino

git-svn-id: svn://10.65.10.50/trunk@5463 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ab/batbarb.uml | 128 +++++++++++++++++++++++++------------------------
 1 file changed, 65 insertions(+), 63 deletions(-)

diff --git a/ab/batbarb.uml b/ab/batbarb.uml
index e0eae760c..d5512f3a4 100755
--- a/ab/batbarb.uml
+++ b/ab/batbarb.uml
@@ -18,97 +18,99 @@ END
 
 STRING F_CODTAB_DITTA 5
 BEGIN  
-	PROMTP 4 3 "Codice ditta          "
-	HELP "Inserire il codice della ditta"
-	FIELD CODTAB[1,5]
-	FLAG "RU"
-	KEY 1
-	USE LF_NDITTE KEY 1
-	INPUT LF_NDITTE->CODDITTA F_CODTAB_DITTA  
-	DISPLAY "Codice@5" LF_NDITTE->CODDITTA   
-	DISPALY "Ragione sociale@45" LF_NDITTE->RAGSOC
-	OUTPUT F_CODTAB_DITTA LF_NDITTE->CODDITTA
-	CHECKTYPE REQUIRED
+  PROMTP 4 3 "Codice ditta          "
+  HELP "Inserire il codice della ditta"
+  FIELD CODTAB[1,5]
+  FLAG "RU"
+  KEY 1
+  USE LF_NDITTE KEY 1
+  INPUT LF_NDITTE->CODDITTA F_CODTAB_DITTA  
+  DISPLAY "Codice@5" LF_NDITTE->CODDITTA   
+  DISPALY "Ragione sociale@45" LF_NDITTE->RAGSOC
+  OUTPUT F_CODTAB_DITTA LF_NDITTE->CODDITTA
+  CHECKTYPE REQUIRED
 END
 
 
 STRING F_CODTAB_ESE  4
 BEGIN
-	PROMTP 4 5 "Anno                  "
-	HELP "Inserire l'anno di esercizio"
-	FIELD CODTAB[6,9]      
-	KEY 1
-	USE %ARB KEY 1
-	INPUT %ARB->CODTAB[6,9] F_CODTAB_ESE
-	DISPLAY "Anno@4" CODTAB[6,9]
-	DISPLAY "Codice@5" CODTAB[1,5]   
-	DISPALY "Periodo@3" CODTAB[10,12]
-	DISPLAY "Tipo@3" CODTAB[13,15]
-	OUTPUT F_CODTAB_DITTA CODTAB[1,5]
-	OUTPUT F_CODTAB_ESE CODTAB[6,9]
-	OUTPUT F_CODTAB_PER CODTAB[10,12] 
-	OUTPUT F_CODTAB_TIPO CODTAB[13,15]
-	OUTPUT F_SCEGLI B0
-	OUTPUT F_DI D0
-	OUTPUT F_DF D1
-	CHECKTYPE REQUIRED
+  PROMTP 4 5 "Anno                  "
+  HELP "Inserire l'anno di esercizio"
+  FIELD CODTAB[6,9]      
+  KEY 1
+  USE %ARB KEY 1
+  INPUT %ARB->CODTAB[6,9] F_CODTAB_ESE
+  DISPLAY "Anno@4" CODTAB[6,9]
+  DISPLAY "Codice@5" CODTAB[1,5]   
+  DISPALY "Periodo@3" CODTAB[10,12]
+  DISPLAY "Tipo@3" CODTAB[13,15]
+  OUTPUT F_CODTAB_DITTA CODTAB[1,5]
+  OUTPUT F_CODTAB_ESE CODTAB[6,9]
+  OUTPUT F_CODTAB_PER CODTAB[10,12] 
+  OUTPUT F_CODTAB_TIPO CODTAB[13,15]
+  OUTPUT F_SCEGLI B0
+  OUTPUT F_DI D0
+  OUTPUT F_DF D1
+  CHECKTYPE REQUIRED
 END                        
 
 
 STRING F_CODTAB_PER  3
 BEGIN
-	PROMTP 4 7 "Codice perido         "
-	HELP "Inserire il codeice che identifica il tipo periodo"
-	FIELD CODTAB[10,12]
-	FLAG "RU"
-	KEY 1
-	USE %PDB KEY 1
-	INPUT %PDB->CODTAB F_CODTAB_PER
-	DISPLAY "Cod@3" %PDB->CODTAB
-	DISPALY "Descrizione@35" %PDB->S0
-	DISPLAY "Gi" %PDB->I0
-	DISPLAY "Mi" %PDB->I1
-	DISPLAY "Gf" %PDB->I2
-	DISPLAY "Mf" %PDB->I3	
-	DISPLAY "N.anni" %PDB->I4
-	OUTPUT F_CODTAB_PER %PDB->CODTAB
-	CHECKTYPE REQUIRED
+  PROMTP 4 7 "Codice perido         "
+  HELP "Inserire il codeice che identifica il tipo periodo"
+  FIELD CODTAB[10,12]
+  FLAG "RU"
+  KEY 1
+  USE %PDB KEY 1
+  INPUT %PDB->CODTAB F_CODTAB_PER
+  DISPLAY "Cod@3" %PDB->CODTAB
+  DISPALY "Descrizione@35" %PDB->S0
+  DISPLAY "Gi" %PDB->I0
+  DISPLAY "Mi" %PDB->I1
+  DISPLAY "Gf" %PDB->I2
+  DISPLAY "Mf" %PDB->I3 
+  DISPLAY "N.anni" %PDB->I4
+  OUTPUT F_CODTAB_PER %PDB->CODTAB
+  CHECKTYPE REQUIRED
 END                        
 
 
 STRING F_CODTAB_TIPO  3
 BEGIN
-	PROMTP 4 9 "Tipo di bilancio      "
-	HELP "Inserire il codice che identifica il tipo" 
-	FIELD CODTAB[13,15]    
-	FLAG "RU"
-	KEY 1
-	USE %NTB KEY 1
-	INPUT %NTB->CODTAB F_CODTAB_TIPO 
-	DISPLAY "Cod@5" %NTB->CODTAB
-	DISPLAY "Descrizione@40" %NTB->S0
-	OUTPUT F_CODTAB_TIPO %NTB->CODTAB
-	CHECKTYPE REQUIRED
+  PROMPT 4 9   "Tipo di bilancio      "
+  HELP "Inserire il codice che identifica il tipo" 
+  FIELD CODTAB[13,15]    
+  FLAG "RU"
+  KEY 1
+  USE %NTB KEY 1
+  INPUT %NTB->CODTAB F_CODTAB_TIPO 
+  DISPLAY "Cod@5" %NTB->CODTAB
+  DISPLAY "Descrizione@40" %NTB->S0
+  OUTPUT F_CODTAB_TIPO %NTB->CODTAB
+  CHECKTYPE REQUIRED
 END                        
 
 
-
 BOOLEAN F_SCEGLI
 BEGIN
-	PROMPT 10 19 "Periodo chiuso"
-	FIELD B0 
+  PROMPT 4 12 "Periodo chiuso"
+  FIELD B0 
 END
 
 DATE F_DI       
 BEGIN
-	PROMPT 10 15 "Data di acrchiviazione  "
-	FIELD D0
+  PROMPT 4 14 "Data di archiviazione "
+  FIELD D0
 END
 
 DATE F_DF
 BEGIN
-	PROMPT 10 17 "Data di ripristino      "
-	FIELD D1
+  PROMPT 4 16 "Data di ripristino    "
+  FIELD D1
+  NUM_EXPR (#F_DF==0)||(#F_DF>#F_DI)
+  WARNING "La data di ripristino deve essere superiore a quella di archiviazione"
+  CHECKTYPE NORMAL
 END