diff --git a/ba/bast%not.uml b/ba/bast%not.uml index e1127e290..04112686e 100755 --- a/ba/bast%not.uml +++ b/ba/bast%not.uml @@ -11,8 +11,8 @@ BEGIN INPUT CODTAB F_INIZIO1 DISPLAY "Codice" CODTAB DISPLAY "Destinazione@30" S0 - DISPLAY "Blocca imm.@20" S1 - DISPLAY "Documento@20" S2 + DISPLAY "Blocca imm." B0 + DISPLAY "Documento" B1 OUTPUT F_INIZIO1 CODTAB GROUP 1 END diff --git a/ba/batb%not.rpt b/ba/batb%not.rpt index 6dceee75f..1e946cc51 100755 --- a/ba/batb%not.rpt +++ b/ba/batb%not.rpt @@ -1,14 +1,14 @@ [Headers] -132 +80 Tabella Note Cliente 1|@3g%s|Codice 1|@14g%s|Destinazione -1|@66g%s|Blocca Immobili -1|@88g%s|Documento +1|@52g%s|Blocca Immissione +1|@72g%s|Documento [Rows] 1|CODTAB|@3g@2,ls 1|S0|@14g@30,ls -1|S1|@66g@20,ls -1|S2|@88g@20,ls +1|B0|@52g@2,ls +1|B1|@72g@2,ls diff --git a/ba/batb%not.uml b/ba/batb%not.uml index 0a8f797ff..4f41e9aa1 100755 --- a/ba/batb%not.uml +++ b/ba/batb%not.uml @@ -18,12 +18,12 @@ USE %NOT INPUT CODTAB F_CODICE DISPLAY "Codice" CODTAB DISPLAY "Destinazione@30" S0 -DISPLAY "Blocca immobili@20" S1 -DISPLAY "Documento@20" S2 +DISPLAY "Blocca immobili" B0 +DISPLAY "Documento" B1 OUTPUT F_CODICE CODTAB OUTPUT F_DEST S0 -OUTPUT F_BLOCCA S1 -OUTPUT F_DOCUM S2 +OUTPUT F_BLOCCA B0 +OUTPUT F_DOCUM B1 CHECKTYPE REQUIRED END @@ -33,16 +33,16 @@ PROMPT 4 4 "Destinazione " FIELD LF_TABCOM->S0 END -STRING F_BLOCCA 20 +BOOLEAN F_BLOCCA BEGIN -PROMPT 4 6 "Blocca Immobile " -FIELD LF_TABCOM->S1 +PROMPT 4 6 "Blocca immissione " +FIELD LF_TABCOM->B0 END -STRING F_DOCUM 20 +BOOLEAN F_DOCUM BEGIN PROMPT 4 8 "Documento " -FIELD LF_TABCOM->S2 +FIELD LF_TABCOM->B1 END ENDPAGE