123 lines
3.2 KiB
Plaintext
Executable File
123 lines
3.2 KiB
Plaintext
Executable File
#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
|