campo-sirio/sv/sv1100a.frm

#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

VALUTA 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

VALUTA 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

VALUTA 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

VALUTA 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

VALUTA 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

VALUTA 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

VALUTA 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

VALUTA 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

VALUTA 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

VALUTA 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