PAGE "Selezione parametri" 0 0 0 0

#include "ve6300.h"

BUTTON DLG_OK 9 2
BEGIN
   PROMPT 20 19 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
   PROMPT 40 19 ""
END

STRING F_CODNUM 4
BEGIN
PROMPT 1 1 "Codice numerazione: "
FLAG "U"
CHECKTYPE REQUIRED
USE %NUM
INPUT CODTAB F_CODNUM
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM CODTAB
OUTPUT F_TIPIDOC S2
OUTPUT F_PROVV S8
HELP "Codice numerazione per il documento da creare"
END

STRING F_TIPIDOC 40
BEGIN
PROMPT 28 1 "Tipi documenti"
FLAG ""
END

STRING F_PROVV 1
BEGIN
PROMPT 84 1 "Provv"
FLAG ""
HELP "Indica se la numerazione e' provvisoria (P) o definitiva (D)"
WARNING "I tipi di numerazione ammessi sono provvisoria (P) e definitiva (D)"
CHECKTYPE REQUIRED
END

STRING F_TIPODOCDES 4
BEGIN
PROMPT 1 2 "Tipo documento: "
FLAG "U"
USE %TIP KEY 1
INPUT CODTAB F_TIPODOCDES
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOCDES CODTAB
OUTPUT F_DESCR_TIPODOCDES S0
CHECKTYPE REQUIRED
HELP "Tipo del documento da creare"
END

STRING F_DESCR_TIPODOCDES 50
BEGIN
PROMPT 28 2 "Descrizione: "
USE %TIP KEY 1
INPUT F_DESCR_TIPODOCDES S0
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPODOCDES
END

DATE F_DATADOC
BEGIN
PROMPT 1 3 "Data: "
FLAG "A"
CHECKTYPE REQUIRED
HELP "Data da assegnare al documento"
END

STRING F_TIPOCF 1
BEGIN
PROMPT 1 5 "Tipo Cliente/Fornitore "
FLAG "D"
// FLAG "U"
// HELP "Indica C se cliente, F se fornitore"
// WARNING "Ho detto: C se cliente, F se fornitore (obbligatorio)"
CHECKTYPE REQUIRED
END

NUMBER F_CODCF 6
BEGIN
PROMPT 1 6 "Codice cliente: "
FLAG "UR"
USE LF_CLIFO KEY 1
INPUT TIPOCF F_TIPOCF
INPUT CODCF F_CODCF
DISPLAY "Codice" CODCF
DISPLAY "Descrizione@50" RAGSOC
OUTPUT F_CODCF CODCF
OUTPUT F_RAGSOC RAGSOC
HELP "Inserisci il codice del cliente/fornitore"
WARNING "Codice cliente/fornitore non trovato"
CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
PROMPT 27 6 "Ragione sociale "
FLAG "U"
USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOCF
INPUT RAGSOC F_RAGSOC
DISPLAY "Descrizione@50" RAGSOC
DISPLAY "Codice" CODCF
COPY OUTPUT F_CODCF
HELP "Inserisci la ragione sociale del cliente"
WARNING "Ragione sociale non trovata nell'elenco clienti/fornitori"
END

END
ENDMASK