cbb608d183
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 1.5 fino alla patch 811 git-svn-id: svn://10.65.10.50/trunk@8985 c028cbd2-c16b-5b4b-a496-9718f37d4682
255 lines
4.3 KiB
Plaintext
Executable File
255 lines
4.3 KiB
Plaintext
Executable File
#include "sv1100a.h"
|
|
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 1
|
|
END
|
|
|
|
|
|
SECTION HEADER ODD 10
|
|
|
|
NUMERO 1
|
|
BEGIN
|
|
KEY "Pagina"
|
|
PROMPT 70 2 "Pagina "
|
|
MESSAGE _PAGENO
|
|
END
|
|
|
|
STRINGA FF_TITOLO
|
|
BEGIN
|
|
KEY "Pagina"
|
|
PROMPT 20 2 "Stampa schede "
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "Codice cliente/fornitore"
|
|
PROMPT 2 3 ""
|
|
FIELD LF_CLIFO->CODCF
|
|
END
|
|
|
|
STRINGA 4
|
|
BEGIN
|
|
KEY "Ragione sociale"
|
|
PROMPT 9 3 ""
|
|
FIELD LF_CLIFO->RAGSOC
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "Indirizzo"
|
|
PROMPT 2 4 ""
|
|
FLAGS "H"
|
|
FIELD LF_CLIFO->INDCF
|
|
MESSAGE COPY,7
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "Numero civico"
|
|
PROMPT 52 4 ""
|
|
FLAGS "H"
|
|
FIELD LF_CLIFO->CIVCF
|
|
MESSAGE APPEND,7
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "Indirizzo completo"
|
|
PROMPT 2 4 ""
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "C.A.P."
|
|
PROMPT 2 5 "C.A.P. "
|
|
FIELD LF_CLIFO->CAPCF
|
|
END
|
|
|
|
STRINGA 9
|
|
BEGIN
|
|
KEY "Localita'"
|
|
PROMPT 26 5 ""
|
|
FIELD LF_CLIFO->LOCALITACF
|
|
END
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
KEY "Comune"
|
|
PROMPT 2 6 ""
|
|
FLAGS "H"
|
|
FIELD LF_COMUNI->DENCOM
|
|
MESSAGE COPY,12
|
|
END
|
|
|
|
STRINGA 11
|
|
BEGIN
|
|
KEY "Provincia"
|
|
PROMPT 52 6 ""
|
|
FLAGS "H"
|
|
FIELD LF_COMUNI->PROVCOM
|
|
MESSAGE APPEND,12
|
|
END
|
|
|
|
STRINGA 12
|
|
BEGIN
|
|
KEY "Comune completo"
|
|
PROMPT 2 6 ""
|
|
END
|
|
|
|
STRINGA FF_AGENTE
|
|
BEGIN
|
|
KEY "Agente completo"
|
|
PROMPT 2 7 "Agente "
|
|
END
|
|
|
|
END
|
|
|
|
SECTION BODY ODD -2 COLUMNWISE
|
|
|
|
STRINGA 101 40 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 FF_FIRSTCOLUMN 17
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Base sconto" "Base sconto"
|
|
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 FF_SECONDCOLUMN 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 2
|
|
END // Fine footer
|
|
|
|
END // Fine Form
|