campo-sirio/m770/77base3.frm

USE 42
JOIN 37 INTO CODDITTA=CODDITTA
END

DESCRIPTION
BEGIN
  36->* "Base 770"
  37->* "Basebis 770"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Roman 17cpi"
  SIZE 12
  CA "X"           
  IN 3 2
  FI 131
END

SECTION HEADER FIRST 2

STRINGA 1
BEGIN
  KEY "Cod.Conc.1"
  PROMPT 41 1 ""
  FIELD 37->L0CCONC1
END

STRINGA 2
BEGIN
  KEY "Cod.Conc.2"
  PROMPT 53 1 ""
  FIELD 37->L0CCONC2
END

STRINGA 3
BEGIN
  KEY "Cod.Conc.3"
  PROMPT 63 1 ""
  FIELD 37->L0CCONC3
END

NUMERO 4
BEGIN
  KEY "Cod.Tes.1"
  PROMPT 102 1 ""
  FIELD 37->L0CTES1
END

NUMERO 5
BEGIN
  KEY "Cod.Tes.2"
  PROMPT 114 1 ""
  FIELD 37->L0CTES2
END

NUMERO 6
BEGIN
  KEY "Cod.Tes.3"
  PROMPT 126 1 ""
  FIELD 37->L0CTES3
END

END

SECTION BODY ODD 4

NUMERO 1
BEGIN
  KEY "Mese rif."
  PROMPT 26 1 ""
  FIELD 42->QLMP
END

NUMERO 2
BEGIN
  KEY "Anno rif."
  PROMPT 29 1 ""
  FIELD 42->QLAP
END

NUMERO 3
BEGIN
  KEY "Rit.eff"
  PROMPT 48 1 ""
  FIELD 42->QLRITEFF
  PICTURE "###.###.###.###^^^"  
  MESSAGE ADD,FL->1
END

NUMERO 4
BEGIN
  KEY "Rit.ver"
  PROMPT 79 1 ""
  FIELD 42->QLRITVER
  PICTURE "###.###.###.###^^^"  
  MESSAGE ADD,FL->2  
END

NUMERO 5
BEGIN
  KEY "RSS"
  PROMPT 100 1 ""
  FIELD 42->QLRSS
END

NUMERO 6
BEGIN
  KEY "Note"
  PROMPT 111 1 ""
  FIELD 42->QLNOTE
END

STRINGA 7
BEGIN
  KEY "Luogo Vers."
  PROMPT 28 3 ""
  FIELD 42->QLLV
END

STRINGA 8
BEGIN
  KEY "Tipo Vers."
  PROMPT 36 3 ""
  FIELD 42->QLTV
END

STRINGA 9
BEGIN
  KEY "CodTrib"
  PROMPT 47 3 ""
  FIELD 42->QLCT
END

STRINGA 11
BEGIN
  KEY "DATA VERS."
  PROMPT 63 3 ""
  FIELD 42->QLDV
  PICTURE "## ^ ##  ^####" 
END  
  
STRINGA 12
BEGIN
  KEY "SERIE"
  PROMPT 84 3 ""
  FIELD 42->QLSERIE
END

STRINGA 13
BEGIN
  KEY "NUMERO"
  PROMPT 99 3 ""
  FIELD 42->QLNUMERO
END

END

SECTION FOOTER LAST 2

NUMERO 1
BEGIN
  KEY "Tot.rit.eff"
  PROMPT 51 1 ""
  PICTURE "###.###.###.###^^^"    
END

NUMERO 2
BEGIN
  KEY "Tot.rit.ver"
  PROMPT 102 1 ""               
  PICTURE "###.###.###.###^^^"    
END

END

END