245 lines
4.1 KiB
Plaintext
Executable File
245 lines
4.1 KiB
Plaintext
Executable File
USE 5 KEY 2
|
|
JOIN LF_CLIFO INTO TIPOCF=S8|CODCF=I8
|
|
JOIN LF_COMUNI TO LF_CLIFO INTO STATO==STATOCF|COM==COMCF
|
|
|
|
END
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
5->* "Tabella temporanea di stampa"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Courier New"
|
|
SIZE 7
|
|
END
|
|
|
|
|
|
SECTION HEADER ODD 8
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "Pagina"
|
|
PROMPT 70 1 "Pagina "
|
|
MESSAGE _PAGENO
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "Codice cliente/fornitore"
|
|
PROMPT 2 2 ""
|
|
FIELD LF_CLIFO->CODCF
|
|
END
|
|
|
|
STRINGA 4
|
|
BEGIN
|
|
KEY "Ragione sociale"
|
|
PROMPT 8 2 ""
|
|
FIELD LF_CLIFO->RAGSOC
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "Indirizzo"
|
|
PROMPT 2 3 ""
|
|
FLAGS "H"
|
|
FIELD LF_CLIFO->INDCF
|
|
MESSAGE COPY,7
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "Numero civico"
|
|
PROMPT 52 3 ""
|
|
FLAGS "H"
|
|
FIELD LF_CLIFO->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 LF_CLIFO->CAPCF
|
|
END
|
|
|
|
STRINGA 9
|
|
BEGIN
|
|
KEY "Localita'"
|
|
PROMPT 26 4 ""
|
|
FIELD LF_CLIFO->LOCALITACF
|
|
END
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
KEY "Comune"
|
|
PROMPT 2 5 ""
|
|
FLAGS "H"
|
|
FIELD LF_COMUNI->DENCOM
|
|
MESSAGE COPY,12
|
|
END
|
|
|
|
STRINGA 11
|
|
BEGIN
|
|
KEY "Provincia"
|
|
PROMPT 52 5 ""
|
|
FLAGS "H"
|
|
FIELD LF_COMUNI->PROVCOM
|
|
MESSAGE APPEND,12
|
|
END
|
|
|
|
STRINGA 12
|
|
BEGIN
|
|
KEY "Comune completo"
|
|
PROMPT 2 5 ""
|
|
END
|
|
|
|
END
|
|
|
|
SECTION BODY ODD -2 COLUMNWISE
|
|
|
|
STRINGA 101 25 2
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Descrizione" "Descrizione"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Descrizione"
|
|
PROMPT 1 1 ""
|
|
FIELD S1
|
|
END
|
|
|
|
NUMERO 102 17
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Netto" "Netto"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Netto"
|
|
PROMPT 2 1 ""
|
|
PICTURE "#.###.###.###.###"
|
|
FIELD R0
|
|
END
|
|
|
|
NUMERO 103 17
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Totale" "Totale"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Totale"
|
|
PROMPT 3 1 ""
|
|
PICTURE "#.###.###.###.###"
|
|
FIELD R1
|
|
END
|
|
|
|
NUMERO 104 17
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Jolly1" "Jolly1"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Jolly1"
|
|
PROMPT 4 1 ""
|
|
PICTURE "#.###.###.###.###"
|
|
FIELD R2
|
|
END
|
|
|
|
NUMERO 105 17
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Jolly2" "Jolly2"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Jolly2"
|
|
PROMPT 5 1 ""
|
|
PICTURE "#.###.###.###.###"
|
|
FIELD R3
|
|
END
|
|
|
|
NUMERO 106 17
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Jolly3" "Jolly3"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Jolly3"
|
|
PROMPT 6 1 ""
|
|
PICTURE "#.###.###.###.###"
|
|
FIELD R4
|
|
END
|
|
|
|
NUMERO 107 17
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Jolly4" "Jolly4"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Jolly4"
|
|
PROMPT 7 1 ""
|
|
PICTURE "#.###.###.###.###"
|
|
FIELD R5
|
|
END
|
|
|
|
NUMERO 108 17
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Jolly5" "Jolly5"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Jolly5"
|
|
PROMPT 8 1 ""
|
|
PICTURE "#.###.###.###.###"
|
|
FIELD R6
|
|
END
|
|
|
|
NUMERO 109 17
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Jolly6" "Jolly6"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Jolly6"
|
|
PROMPT 9 1 ""
|
|
PICTURE "#.###.###.###.###"
|
|
FIELD R7
|
|
END
|
|
|
|
NUMERO 110 17
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Jolly7" "Jolly7"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Jolly7"
|
|
PROMPT 10 1 ""
|
|
PICTURE "#.###.###.###.###"
|
|
FIELD R8
|
|
END
|
|
|
|
NUMERO 111 17
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Jolly8" "Jolly8"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Jolly8"
|
|
PROMPT 11 1 ""
|
|
PICTURE "#.###.###.###.###"
|
|
FIELD R9
|
|
END
|
|
|
|
SECTION RIGAVUOTA 2 1 1 NORMAL STREXPR (5->B8!="")
|
|
|
|
STRINGA 883
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
END
|
|
|
|
END // Fine body
|
|
|
|
SECTION FOOTER ODD 3
|
|
|
|
END // Fine footer
|
|
|
|
END // Fine Form
|