campo-sirio/sv/sv1100a.frm

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