adafc99483
Files correlati :dl0.exe,dl0500a.msk,dl0500a.frm Ricompilazione Demo : [ ] Commento :aggiunta la possibilita' di visualizzare l'etichetta sul form della interrogazione avanzata (unico parametro che mancava) git-svn-id: svn://10.65.10.50/trunk@11067 c028cbd2-c16b-5b4b-a496-9718f37d4682
134 lines
3.0 KiB
Plaintext
Executable File
134 lines
3.0 KiB
Plaintext
Executable File
#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
|
|
|