1996-03-20 16:15:18 +00:00
|
|
|
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 KEY 1
|
|
|
|
|
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
|
