#include "batbeld.h" TOOLBAR "" 0 20 0 2 #include ENDPAGE PAGE "Tabella elaborazioni differite" 0 0 0 0 STRING F_CODICE 8 // campo della maschera: stringa, id = F_CODICE, 8 caratteri BEGIN PROMPT 1 2 "Codice " // scrivi nella maschera alle coord. (x,y) = (1,2) il prompt "Codice" FLAG "U" FIELD CODTAB // campo del database tabelle (tab) in cui salvare il valore immesso dall'utente CHECKTYPE REQUIRED // indica che il campo deve essere compilato per poter salvare WARNING "E' necessario specificare un valore" USE ELD // indica quale tabella utilizzare per le ricerche INPUT CODTAB F_CODICE // cerca nel dbase la prima occorrenza di F_CODICE cercando nel campo CODTAB DISPLAY "Codice@10" CODTAB // visualizza i codici trovati (CODTAB) DISPLAY "Descrizione@50" S0 // visualizza la descrizione (campo S0 in uno spazio di 50 caratteri) OUTPUT F_CODICE CODTAB // metti F_CODICE nel campo codtab OUTPUT F_DESCR S0 // metti F_DESCR nel campo S0 KEY 1 HELP "Codice dell'elaborazione differita da eseguire" MESSAGE ENABLE, F_PROGRAMMA END STRING F_DESCR 50 BEGIN PROMPT 1 3 "Descrizione " FIELD S0 CHECKTYPE REQUIRED WARNING "E' necessario specificare un valore" USE ELD KEY 2 INPUT S0 F_DESCR DISPLAY "Descrizione@50" S0 DISPLAY "Codice" CODTAB COPY OUTPUT F_CODICE // usa il segmento di codice per OUTPUT F_CODICE KEY 2 END STRING F_TIPODOC 4 BEGIN PROMPT 1 4 "Tipo documento originale " FIELD S6 // usa il campo S6 del database tab CHECKTYPE REQUIRED WARNING "E' necessario specificare un valore" USE %TIP INPUT CODTAB F_TIPODOC DISPLAY "Codice" CODTAB DISPLAY "Tipo documento@50" S0 OUTPUT F_TIPODOC CODTAB END // STRING F_STATO_I_DOC_I 1 // BEGIN // PROMPT 1 5 "Stato del documento originale " // FIELD S7 // CHECKTYPE REQUIRED // WARNING "E' necessario specificare un valore" // END // STRING F_STATO_F_DOC_I 1 // BEGIN // PROMPT 1 6 "Stato finale del documento originale " // FIELD S4 // CHECKTYPE REQUIRED // WARNING "E' necessario specificare un valore" // END STRING F_TIPODOCDES 4 BEGIN PROMPT 1 7 "Tipo documento di destinazione " FIELD S8 CHECKTYPE REQUIRED WARNING "E' necessario specificare un valore" USE %TIP INPUT CODTAB F_TIPODOCDES COPY DISPLAY F_TIPODOC OUTPUT F_TIPODOCDES CODTAB END // STRING F_STATO_F_DOC_F 1 // BEGIN // PROMPT 1 8 "Stato finale del documento finale " // FIELD S9 // CHECKTYPE REQUIRED // WARNING "E' necessario specificare un valore" // END STRING F_CODNUM 4 BEGIN PROMPT 1 9 "Codice numerazione per il documento di destinazione: " FIELD S5 USE NUM INPUT CODTAB F_CODNUM DISPLAY "Codice" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_CODNUM CODTAB CHECKTYPE REQUIRED WARNING "E' necessario specificare un valore" END STRING F_PROGRAMMA 50 BEGIN // PROMPT 1 10 "Programma (nome + parametri): " PROMPT 1 10 "Metodo di elaborazione " FLAGS "G" FIELD S1 CHECKTYPE REQUIRED END BUTTON F_AVVIA 21 2 BEGIN PROMPT 1 11 "Lancia elaborazione" MESSAGE RUN,#F_PROGRAMMA FL "D" END ENDPAGE ENDMASK