120 lines
1.8 KiB
Plaintext
Executable File
120 lines
1.8 KiB
Plaintext
Executable File
#include "cg6800.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Visualizzazione stato ricezione" -1 -1 78 19
|
|
|
|
NUMBER F_CODDITTARIC 5
|
|
BEGIN
|
|
PROMPT 1 1 "Ditta ricevente "
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA F_CODDITTARIC
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
FLAGS "RDZ"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NULTRAS 3
|
|
BEGIN
|
|
PROMPT 1 4 "Numero ultimo invio ricevuto "
|
|
FLAGS "G"
|
|
END
|
|
|
|
DATE F_DATAULTRAS
|
|
BEGIN
|
|
PROMPT 1 6 "Data ultimo invio ricevuto "
|
|
FLAGS "G"
|
|
END
|
|
|
|
STRING F_STD 1
|
|
BEGIN
|
|
PROMPT 1 8 "Stato del "
|
|
FLAGS "GU"
|
|
END
|
|
|
|
STRING F_USELAB 1
|
|
BEGIN
|
|
PROMPT 21 8 ""
|
|
FLAGS "GU"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 9 "trasferimento "
|
|
END
|
|
|
|
STRING F_STATO 60
|
|
BEGIN
|
|
PROMPT 17 9 ""
|
|
FLAGS "GU"
|
|
END
|
|
|
|
LIST F_AGGCAUSALI 6
|
|
BEGIN
|
|
PROMPT 1 11 "Aggiornamento causali gia' presenti "
|
|
ITEM "N|No"
|
|
ITEM "D|Descr."
|
|
ITEM "T|Tutto"
|
|
FLAGS "G"
|
|
END
|
|
|
|
LIST F_AGGCLIFO 6
|
|
BEGIN
|
|
PROMPT 1 12 "Aggiornamento Clienti/Fornitori gia' presenti "
|
|
ITEM "N|No"
|
|
ITEM "D|Descr."
|
|
ITEM "T|Tutto"
|
|
FLAGS "G"
|
|
END
|
|
|
|
LIST F_AGGPCON 6
|
|
BEGIN
|
|
PROMPT 1 13 "Aggiornamento voci Piano dei Conti gia' presenti "
|
|
ITEM "N|No"
|
|
ITEM "D|Descr."
|
|
ITEM "T|Tutto"
|
|
FLAGS "G"
|
|
END
|
|
|
|
LIST F_AGGIVD 6
|
|
BEGIN
|
|
PROMPT 1 14 "Aggiornamento classi Piano dei Conti "
|
|
ITEM "N|No"
|
|
ITEM "T|Tutto"
|
|
FLAGS "G"
|
|
END
|
|
|
|
BOOLEAN F_FATTEM
|
|
BEGIN
|
|
PROMPT 1 15 "Riattribuzione num. protocollo su fatture emesse "
|
|
FLAGS "G"
|
|
END
|
|
|
|
BOOLEAN F_FATTRIC
|
|
BEGIN
|
|
PROMPT 1 16 "Riattribuzione num. protocollo su fatture ricevute "
|
|
FLAGS "G"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|