campo-sirio/dl/dl0500a.frm

#include "dl0500.h"

USE LF_ANAMAG
JOIN LF_UMART INTO CODART==CODART NRIGA=="1"
END

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

STRINGA -1
BEGIN
  KEY "titolo"
  PROMPT 1 1 "@bRICERCA AVANZATA"
END 

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

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

END

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

STRINGA FF_B_CODART 16
BEGIN
  KEY "codart"
  PROMPT 1 1 "$[b]"
  SPECIAL STRINGA INTESTAZIONE "Cod. articolo" "Codice articolo"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  FIELD CODART
END

STRINGA -1
BEGIN
  KEY "spegnitore del colore"
  PROMPT 2 1 "$[n]"
END

NUMERO FF_B_GIAC 6
BEGIN
  KEY "giacenza"
  PROMPT 2 1 ""
  PICTURE "###.##@"
  SPECIAL STRINGA INTESTAZIONE "Giac." "Giacenza"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
END

STRINGA FF_B_TITOLO 40
BEGIN
  KEY "titolo"
  PROMPT 3 1 ""
  SPECIAL STRINGA INTESTAZIONE "Titolo" "Titolo"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  FIELD DESCR
END

STRINGA FF_B_ARTISTA 22
BEGIN
  KEY "artista"
  PROMPT 4 1 ""
  SPECIAL STRINGA INTESTAZIONE "Artista" "Artista"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  FIELD USER2
END

STRINGA FF_B_COMPOSITORE 15
BEGIN
  KEY "compositore"
  PROMPT 5 1 ""
  SPECIAL STRINGA INTESTAZIONE "Compositore" "Compositore"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  FIELD USER3
END

STRINGA FF_B_ETICHETTA 10
BEGIN
  KEY "etichetta"
  PROMPT 6 1 ""
  SPECIAL STRINGA INTESTAZIONE "Etichetta" "Etichetta"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  FIELD USER4
END

VALUTA FF_B_PREZZO 7
BEGIN
  KEY "prezzo articolo"
  PROMPT 7 1 ""
  SPECIAL STRINGA INTESTAZIONE "Prezzo" "Prezzo"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  FIELD LF_UMART->PREZZO       //notare che il prezzo dell'articolo viene proposto come quello di listino ingrosso 
                               //(vedi programma importazione dati!)
END

STRINGA FF_B_GENERE 3
BEGIN
  KEY "genere"
  PROMPT 8 1 ""
  SPECIAL STRINGA INTESTAZIONE "Gen" "Genere"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  FIELD GRMERC
END

STRINGA FF_B_SUPPORTO 3
BEGIN
  KEY "supporto"
  PROMPT 9 1 ""
  SPECIAL STRINGA INTESTAZIONE "Sup" "Tipo supporto"
  SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
  SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
  FIELD LF_UMART->UM
END

END