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 7
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 4
BEGIN
	KEY "Intestazione (d/m)"
	PROMPT 58 4 "D/M"
END

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

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

STRINGA 8 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 1 12
BEGIN
	KEY "Codice"
	PROMPT 1 1 ""
	FIELD 78->CODCBL
END

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

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

STRINGA 4 1
BEGIN
	KEY "Dettaglio"
	PROMPT 59 1 ""
	FIELD 78->DETT
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