#include #include #include "ba1100a.h" PAGE "Modifica Archivio" -1 -1 70 15 NUMBER FLD_NUM 4 BEGIN FLAGS "RD" PROMPT 2 1 "Numero " END STRING FLD_NOME 43 BEGIN PROMPT 2 2 "Nome " HELP "Nome del file" END STRING FLD_DESC 43 BEGIN PROMPT 2 3 "Descrizione " HELP "Descrizione assegnata al file" END STRING FLD_FORMULA 43 BEGIN PROMPT 2 4 "Formula " HELP "Formula per il calcolo su file" END NUMBER FLD_EOD 7 BEGIN PROMPT 2 5 "Record usati " HELP "Numero di record utilizzati" WARNING "Numero di record errato" NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=#FLD_EOX)} FLAGS "R" END BOOLEAN FLD_EXTEND BEGIN PROMPT 2 6 "Cambia dimensione" HELP "Indicare se si desidera cambiare la dimensione del file" MESSAGE FALSE DISABLE,FLD_EOX|UNDO,FLD_EOX MESSAGE TRUE ENABLE,FLD_EOX END NUMBER FLD_EOX 7 BEGIN PROMPT 30 6 "Dimensione " HELP "Dimensione da assegnare al file" WARNING "Dimensione non corretta" NUM_EXPR {#THIS_FIELD>=#FLD_EOD} FLAGS "RD" END NUMBER FLD_FLAG 7 BEGIN PROMPT 2 7 "Flags " HELP "Flags del file" FLAGS "R" END NUMBER F_LEN 7 BEGIN PROMPT 30 7 "Lunghezza " FLAGS "RD" END BUTTON DLG_OK 9 2 BEGIN PROMPT -14 -3 "" END BUTTON DLG_CANCEL 9 2 BEGIN PROMPT -24 -3 "" END BUTTON DLG_PACK 9 2 BEGIN PROMPT -34 -3 "Compatta" MESSAGE EXIT,K_F5 END BUTTON DLG_RECORD 9 2 BEGIN PROMPT -44 -3 "Record" MESSAGE EXIT,K_F6 END BUTTON DLG_DUMP 9 2 BEGIN PROMPT -14 -1 "Scarica" MESSAGE EXIT,K_F7 END BUTTON DLG_LOAD 9 2 BEGIN PROMPT -24 -1 "Carica" MESSAGE EXIT,K_F8 END BUTTON DLG_EDIT 9 2 BEGIN PROMPT -34 -1 "Modifica" MESSAGE EXIT,K_F4 END ENDPAGE ENDMASK