1df67d66c8
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la verione 98.01.04 sul main trunk git-svn-id: svn://10.65.10.50/trunk@6986 c028cbd2-c16b-5b4b-a496-9718f37d4682
174 lines
3.1 KiB
Plaintext
Executable File
174 lines
3.1 KiB
Plaintext
Executable File
#include "ve0100b1.h"
|
|
|
|
PAGE "Elaborazioni " -1 -1 78 15
|
|
|
|
BOOLEAN F_TYPE
|
|
BEGIN
|
|
PROMPT 2 1 "Aggiungi al documento attuale"
|
|
MESSAGE FALSE SHOW,F_GROUP_D|HIDE,F_GROUP_S
|
|
MESSAGE TRUE SHOW,F_GROUP_S|HIDE,F_GROUP_D
|
|
END
|
|
|
|
LISTBOX F_ELAB 3 50
|
|
BEGIN
|
|
PROMPT 2 3 "Elaborazione "
|
|
END
|
|
|
|
GROUPBOX F_GROUP_D 77 9
|
|
BEGIN
|
|
PROMPT 1 4 "Destinazione"
|
|
END
|
|
|
|
GROUPBOX F_GROUP_S 77 9
|
|
BEGIN
|
|
PROMPT 1 4 "Sorgente"
|
|
END
|
|
|
|
STRING F_TIPODOC_ELAB 4
|
|
BEGIN
|
|
PROMPT 2 5 "Tipo documento "
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPODOC_ELAB
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC_ELAB CODTAB
|
|
OUTPUT F_DESTIPODOC_ELAB S0
|
|
CHECKTYPE NORMAL
|
|
FLAG "UP"
|
|
END
|
|
|
|
STRING F_DESTIPODOC_ELAB 50
|
|
BEGIN
|
|
PROMPT 24 5 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2
|
|
INPUT S0 F_DESTIPODOC_ELAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
CHECKTYPE NORMAL
|
|
COPY OUTPUT F_TIPODOC_ELAB
|
|
END
|
|
|
|
STRING F_STATODOC_ELAB 1
|
|
BEGIN
|
|
PROMPT 2 7 "Stato "
|
|
USE %STD
|
|
CHECKTYPE NORMAL
|
|
INPUT CODTAB F_STATODOC_ELAB
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_STATODOC_ELAB CODTAB
|
|
OUTPUT F_DESSTATODOC_ELAB S0
|
|
FLAG "U"
|
|
END
|
|
|
|
STRING F_DESSTATODOC_ELAB 50
|
|
BEGIN
|
|
PROMPT 24 7 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %STD KEY 2
|
|
INPUT S0 F_DESSTATODOC_ELAB
|
|
DISPLAY "Descrizione@40" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_STATODOC_ELAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODNUM_ELAB 4
|
|
BEGIN
|
|
PROMPT 2 9 "Cod. num. "
|
|
HELP "Codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUM_ELAB
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUM_ELAB CODTAB
|
|
OUTPUT F_DESNUM_ELAB S0
|
|
CHECKTYPE REQUIRED
|
|
FLAG "UPA"
|
|
WARNING "Numerazione assente"
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_DESNUM_ELAB 50
|
|
BEGIN
|
|
PROMPT 24 9 ""
|
|
HELP "Descrizione numerazione"
|
|
USE %NUM KEY 2
|
|
INPUT S0 F_DESNUM_ELAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODNUM_ELAB
|
|
KEY 2
|
|
END
|
|
|
|
NUMBER F_ANNO_ELAB 4
|
|
BEGIN
|
|
PROMPT 2 11 "Esercizio "
|
|
CHECKTYPE REQUIRED
|
|
KEY 1
|
|
END
|
|
|
|
LIST F_TIPOCF_ELAB 1 11
|
|
BEGIN
|
|
PROMPT 2 13 ""
|
|
FLAGS "H"
|
|
HELP "Indicare se cliente oppure fornitore"
|
|
ITEM "C|Clienti"
|
|
ITEM "F|Fornitori"
|
|
END
|
|
|
|
NUMBER F_CODCF_ELAB 6
|
|
BEGIN
|
|
PROMPT 10 13 ""
|
|
FLAGS "HR"
|
|
END
|
|
|
|
NUMBER F_NDOC_ELAB 6
|
|
BEGIN
|
|
PROMPT 24 11 "Numero doc. "
|
|
USE LF_DOC
|
|
JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF
|
|
INPUT PROVV F_PROVV_ELAB SELECT
|
|
INPUT ANNO F_ANNO_ELAB SELECT
|
|
INPUT CODNUM F_CODNUM_ELAB SELECT
|
|
INPUT NDOC F_NDOC_ELAB
|
|
DISPLAY "Num." CODNUM
|
|
DISPLAY "Anno" ANNO
|
|
DISPLAY "Provv" PROVV
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "N.Doc. " NDOC
|
|
DISPLAY "Data\ndocumento" DATADOC
|
|
DISPLAY "C/F" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
|
OUTPUT F_NDOC_ELAB NDOC
|
|
CHECKTYPE NORMAL
|
|
FLAG "R"
|
|
WARNING "Documento inesistente o incompatibile"
|
|
ADD RUN ve0 -1
|
|
END
|
|
|
|
LISTBOX F_PROVV_ELAB 14
|
|
BEGIN
|
|
PROMPT 46 11 "Tipo "
|
|
ITEM "D|Definitiva "
|
|
ITEM "P|Provvisoria"
|
|
KEY 1
|
|
FLAGS "P"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|