campo-sirio/dl/dl0700a.frm

#include "dl0700.h"

GENERAL
BEGIN
//  OFFSET 0 1
//  FONT "Courier New"
//  SIZE 10
END

SECTION GRAPHIC
BEGIN
END


//-------------------------intestazione form-----------------------------------------------//
SECTION HEADER ODD 5

STRINGA -1
BEGIN
  KEY "titolo"
  PROMPT 1 1 "@bTOP TEN"
END

STRINGA FF_POSIZIONE 6
BEGIN
  KEY "posizione"
  PROMPT 1 3 "@bPos."
END

STRINGA FF_CODART 20
BEGIN
  KEY "codice articolo"
  PROMPT 6 3 "@bCodice articolo "
END

STRINGA FF_GIAC 11
BEGIN
  KEY "giacenza"
  PROMPT 30 3 "@bGiacenza"
END

STRINGA FF_TITOLO 8
BEGIN
  KEY "titolo"
  PROMPT 41 3 "@bTitolo"
END

STRINGA FF_ARTISTA 40
BEGIN
  KEY "titolo"
  PROMPT 82 3 "@bArtista"
END 

NUMERO FF_TOTVEND 16
BEGIN
  KEY "tot. vend."
  PROMPT 103 3 "@bTotale vendite"
END

STRINGA FF_GENERE 6
BEGIN
  KEY "genere"
  PROMPT 119 3 "@bGen."
END

STRINGA FF_SUPPORTO 10
BEGIN
  KEY "supporto"
  PROMPT 124 3 "@bSupporto"
END

STRINGA -1
BEGIN
  KEY "riga di separazione"
  PROMPT 1 4 "___________________________________________________________________________________________________________________________________"
END

END

//-----------------------riga tipo uno---------------------------------------------------//
SECTION BODY ODD 1

NUMERO FF_B_POSIZIONE 4
BEGIN
  KEY "posizione"
  PROMPT 1 1 "@b"
END

STRINGA FF_B_CODART 20
BEGIN
  KEY "codart"
  PROMPT 6 1 "@r"
END

NUMERO FF_B_GIAC 11
BEGIN
  KEY "giacenza"
  PROMPT 27 1 ""
  PICTURE "###.###.##@"
END

STRINGA FF_B_TITOLO 40
BEGIN
  KEY "titolo"
  PROMPT 41 1 ""
END

STRINGA FF_B_ARTISTA 20
BEGIN
  KEY "artista"
  PROMPT 82 1 ""
END

NUMERO FF_B_TOTVEND 15
BEGIN
  KEY "totale vendite"
  PROMPT 102 1 ""
  PICTURE "###.###.###.##@"
END

STRINGA FF_B_GENERE 2
BEGIN
  KEY "genere"
  PROMPT 121 1 ""
END

STRINGA FF_B_SUPPORTO 2
BEGIN
  KEY "supporto"
  PROMPT 126 1 ""
END

END

//-------------------------pi<70> di pagina-------------------------------------//
SECTION FOOTER ODD 4

DATA FF_DATE
BEGIN
  KEY "Data"
  PROMPT  1 2 "@bData "
  MESSAGE _TODAY
END

NUMERO FF_PAGE 10
BEGIN
  KEY "Nr. pagina"
  PROMPT  100 2 "@bPagina  "
  MESSAGE _PAGENO
END

END