173 lines
2.0 KiB
Plaintext
Executable File
173 lines
2.0 KiB
Plaintext
Executable File
USE 5
|
|
JOIN 20 INTO TIPOCF=S0|CODCF=I0
|
|
JOIN 13 TO 20 INTO STATO==STATOCF|COM==COMCF
|
|
|
|
END
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
5->* "Tabella temporanea di stampa"
|
|
20->* "Clienti/Fornitori"
|
|
13->* "Comuni"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Courier New"
|
|
SIZE 7
|
|
END
|
|
|
|
|
|
SECTION HEADER ODD 12
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "Spettabile/Egregio"
|
|
PROMPT 2 1 "Spettabile"
|
|
END
|
|
|
|
NUMERO 218
|
|
BEGIN
|
|
KEY "Pagina"
|
|
PROMPT 70 1 "Pagina "
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "Codice cliente/fornitore"
|
|
PROMPT 2 2 ""
|
|
FIELD 20->CODCF
|
|
END
|
|
|
|
STRINGA 4
|
|
BEGIN
|
|
KEY "Ragione sociale"
|
|
PROMPT 8 2 ""
|
|
FIELD 20->RAGSOC
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "Indirizzo"
|
|
PROMPT 2 3 ""
|
|
FLAGS "H"
|
|
FIELD 20->INDCF
|
|
MESSAGE COPY,7
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "Numero civico"
|
|
PROMPT 52 3 ""
|
|
FLAGS "H"
|
|
FIELD 20->CIVCF
|
|
MESSAGE APPEND,7
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "Indirizzo completo"
|
|
PROMPT 2 3 ""
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "C.A.P."
|
|
PROMPT 2 4 "C.A.P. "
|
|
FIELD 20->CAPCF
|
|
END
|
|
|
|
STRINGA 9
|
|
BEGIN
|
|
KEY "Localita'"
|
|
PROMPT 26 4 ""
|
|
FIELD 20->LOCALITACF
|
|
END
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
KEY "Comune"
|
|
PROMPT 2 5 ""
|
|
FLAGS "H"
|
|
FIELD 13->DENCOM
|
|
MESSAGE COPY,12
|
|
END
|
|
|
|
STRINGA 11
|
|
BEGIN
|
|
KEY "Provincia"
|
|
PROMPT 52 5 ""
|
|
FLAGS "H"
|
|
FIELD 13->PROVCOM
|
|
MESSAGE APPEND,12
|
|
END
|
|
|
|
STRINGA 12
|
|
BEGIN
|
|
KEY "Comune completo"
|
|
PROMPT 2 5 ""
|
|
END
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "Prefisso telefonico"
|
|
PROMPT 2 6 "Telefono "
|
|
FLAGS "H"
|
|
FIELD PTEL
|
|
MESSAGE COPY,15
|
|
END
|
|
|
|
STRINGA 14
|
|
BEGIN
|
|
KEY "Telefono"
|
|
PROMPT 24 6 "/ "
|
|
FLAGS "H"
|
|
FIELD TEL
|
|
MESSAGE APPEND,15
|
|
END
|
|
|
|
STRINGA 15
|
|
BEGIN
|
|
KEY "Telefono completo"
|
|
PROMPT 2 6 "Telefono "
|
|
END
|
|
|
|
STRINGA 101
|
|
BEGIN
|
|
KEY "Luogo d'invio"
|
|
PROMPT 2 7 ""
|
|
END
|
|
|
|
DATA 102
|
|
BEGIN
|
|
KEY "Data d'invio"
|
|
PROMPT 52 7 ""
|
|
FORMAT "1444-"
|
|
END
|
|
|
|
STRINGA 103 40 3
|
|
BEGIN
|
|
KEY "Testo fisso"
|
|
FLAG "M"
|
|
PROMPT 2 8 ""
|
|
END
|
|
|
|
END
|
|
|
|
SECTION BODY ODD -1 COLUMNWISE
|
|
|
|
STRINGA 201 8
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Num.doc." "Numero documento"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Numero documento"
|
|
PROMPT 1 1 ""
|
|
FLAGS "H"
|
|
END
|
|
|
|
END // Fine body
|
|
|
|
END // Fine Form
|