campo-sirio/ab/ab1200.frm

//stampa piano dei conti
USE 78
END


DESCRIPRION
BEGIN
  78->* "Piano dei Conti"
END 

GENERAL 
BEGIN
  OFFSET 0 0
  FONT "Courier New"
  SIZE 7
END

SECTION HEADER ODD 6

STRINGA 1 80 
BEGIN
  KEY "Separatore (iniziale)"
  PROMPT 1 3 "--------------------------------------------------------------------------------"
END

STRINGA 2 12
BEGIN
  KEY "Intestazione (Codice)"
  PROMPT 1 4 "Codice"
END  

STRINGA 3 40
BEGIN
  KEY "Intestazione (Descrizione)"
  PROMPT 25 4 "Descrizione"
END         

NUMERO 4 5
BEGIN
  KEY "Intestazione (I.b.)"
  PROMPT 53 4 "I.b."
END

STRINGA 5 12
BEGIN
  KEY "Intestazione (Codcontr)"
  PROMPT 63 4 "Cod. Contr."
END

STRINGA 6 6
BEGIN
  KEY "Intestazione (Sosp.)"
  PROMPT 75 4 "Sosp."
END     

STRINGA 7 80
BEGIN
  KEY "Separatore (finale)"
  PROMPT 1 5 "--------------------------------------------------------------------------------"
END  

END
//Il -2 significa che stampa su 1 o 2 righe secondo quello che devo stampare
SECTION BODY ODD -2

STRINGA 2 12
BEGIN
  KEY "Codice"
  PROMPT 1 1 ""
  FIELD 78->CODCBL
END

//Sintassi: TIPO id lunghezza_per_riga numero_righe
STRINGA 3 40 2
BEGIN
  KEY "Descrizione"
  PROMPT 14 1 ""
  FIELD 78->DESCRIZ
END

NUMERO 4 1
BEGIN
  KEY "Indicatore"
  PROMPT 55 1 ""
  FIELD 78->INDBIL
END

STRINGA 5 12
BEGIN
  KEY "Cod. contr."
  PROMPT 63 1 ""
  FIELD 78->CODCONTR
END

STRINGA 6 1
BEGIN
  KEY "Sospeso"
  PROMPT 76 1 ""
  FIELD 78->SOSPESO
END  

END

END