campo-sirio/at/atconvoc.frm
cris f2185ee347 Patch level : at 1.7
Files correlati     : un casino
Ricompilazione Demo : [ ]
Commento            : allineato versione


git-svn-id: svn://10.65.10.50/trunk@13415 c028cbd2-c16b-5b4b-a496-9718f37d4682
2005-10-12 15:31:36 +00:00

197 lines
2.6 KiB
Plaintext
Executable File

USE 115
SORT 116 BY 90->CODSEZ 90->CODSOT 90->COGNOME 90->NOME DATACONV
USING 90 INTO CODICE==CODICE
JOIN TO 115 KEY 1 INTO NUMERO==NUMERO
JOIN 90 TO 116 INTO CODICE==CODICE
END
DESCRIPTION
BEGIN
115->* "Convocazioni AVIS"
116->* "Righe di convocazione AVIS"
90->* "Soggetti sezioni AVIS"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 12
GRID ""
END
SECTION BODY ODD
SECTION CONVOCAZIONE 1 1 9 FLAG "N"
STRINGA 1 70
BEGIN
KEY "Testo"
PROMPT 1 1 "STAMPA DI CONTROLLO CONVOCAZIONE stampata il "
MESSAGE _TODAY
END
DATA 2
BEGIN
KEY "Data convocazione"
PROMPT 1 3 "Data convocazione "
FIELD DATA
END
STRINGA 3 25
BEGIN
KEY "Punto"
PROMPT 40 3 "Punto di prelievo "
FIELD PUNTO
END
STRINGA 4 25
BEGIN
KEY "Tipo"
PROMPT 1 4 "Tipo donazione "
FIELD TIPO
END
STRINGA 5 25
BEGIN
KEY "Sezione"
PROMPT 40 4 "Sezione/Sottog. "
FIELD CODSEZ
END
STRINGA 6 2
BEGIN
KEY "Sottog"
PROMPT 61 4 ""
FIELD CODSOT
END
DATA 7
BEGIN
KEY "Data iniziale"
PROMPT 1 5 "Data inizio conv. "
FIELD DATAINI
END
NUMERO 8 25
BEGIN
KEY "Numero convocati"
PROMPT 1 6 "Num. convocati "
FIELD NUMCONV
END
NUMERO 9 25
BEGIN
KEY "Numero sollecitati"
PROMPT 25 6 "Num. sollecitati "
FIELD NUMSOLL
END
NUMERO 10 25
BEGIN
KEY "Numero ritardatari"
PROMPT 50 6 "Num. ritardatari "
FIELD NUMRIT
END
STRINGA 11 70 2
BEGIN
KEY "Note"
PROMPT 1 7 "Note "
FIELD NOTE
END
STRINGA 12 20
BEGIN
KEY "Intestazione"
PROMPT 1 9 "Cognome e nome"
END
STRINGA 13 20
BEGIN
KEY "Intestazione"
PROMPT 32 9 "C."
END
STRINGA 14 20
BEGIN
KEY "Intestazione"
PROMPT 35 9 "Se/So"
END
STRINGA 15 20
BEGIN
KEY "Intestazione"
PROMPT 41 9 "Tessera"
END
STRINGA 17 20
BEGIN
KEY "Intestazione"
PROMPT 49 9 "Ult. don."
END
STRINGA 18 20
BEGIN
KEY "Intestazione"
PROMPT 60 9 "Data conv."
END
STRINGA 19 20
BEGIN
KEY "Intestazione"
PROMPT 71 9 "Tipo"
END
END
SECTION CONVOCATI 1 1 1 FILE 116
STRINGA 1 25
BEGIN
KEY "Cognome"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,3|COPY,3
FIELD 90->COGNOME
END
STRINGA 2 25
BEGIN
KEY "Nome"
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,3
FIELD 90->NOME
END
STRINGA 3 30 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 2
BEGIN
KEY "Categoria"
PROMPT 32 1 ""
FIELD 90->CATDON
END
STRINGA 5 2
BEGIN
KEY "Sezione"
PROMPT 35 1 ""
FIELD 90->CODSEZ
END
STRINGA 6 2
BEGIN
KEY "Sottog."
PROMPT 38 1 ""
FIELD 90->CODSOT
END
STRINGA 7 6
BEGIN
KEY "Tessera"
PROMPT 41 1 ""
FIELD 90->TESSAVIS
END
DATA 8
BEGIN
KEY "Data ultima donazione"
PROMPT 49 1 ""
FIELD 90->DATAULTDON
END
DATA 9
BEGIN
KEY "Data convocazione"
PROMPT 60 1 ""
FIELD 116->DATACONV
END
STRINGA 10 1
BEGIN
KEY "Tipo convocazione"
PROMPT 71 1 ""
FIELD 116->CHIAMATA
END
DATA 11
BEGIN
KEY "Data prossima SI"
PROMPT 73 1 ""
FIELD 90->DATAPROSSI
END
END
END
END