#include "batbeld.h"

TOOLBAR "" 0 20 0 2
#include <toolbar.h>
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