// Form per la stampa degli sconti di riga.

USE 35
JOIN 47 INTO CODART==CODART
JOIN %UMS TO 35 ALIAS 201 INTO CODTAB==UM
JOIN CVE TO 35 ALIAS 202  INTO CODTAB==CODCAT

END
DESCRIPTION
BEGIN
  35->* "Archivio Sconti"
  47->* "Anagrafica magazzino"
  201@->* "Tabella unita' di misura"
  202@->* "Tabella categorie di vendita"
END

GENERAL
BEGIN
  OFFSET 0 0
END

SECTION GRAPHICS FIRST 66

LINEA 1 1 1
BEGIN
 PROMPT 1 1 ""
 FLAGS "D"
END

END

SECTION HEADER ODD 6

STRINGA 1 40
BEGIN
 KEY "nome ditta"
 PROMPT  1 1 "Ditta "
END

DATA 2 10
BEGIN
 KEY "Data"
 PROMPT  55 1 "Data "
END

NUMERO 3 7
BEGIN
 KEY "Nr. pagina"
 PROMPT  72 1 "Pagina "
END

STRINGA 9 21
BEGIN
 KEY "titolo"
 PROMPT  30 2 "Stampa sconti di riga"
END

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

STRINGA 5 10
BEGIN
  KEY "Intestazione (Categoria vendite)"
  PROMPT 1 4 "Categoria"
END

STRINGA 6 14
BEGIN
  KEY "Intestazione (Cod. Articolo)"
  PROMPT 14 4 "Cod. Articolo"
END

STRINGA 7 3
BEGIN
  KEY "Intestazione (Unita' di misura)"
  PROMPT 36 4 "UM"
END

STRINGA 8 7
BEGIN
  KEY "Intestazione (Sconto)"
  PROMPT 39 4 "Sconto"
END

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

END

SECTION BODY ODD 5

STRINGA 1 50
BEGIN
 KEY "Descrizione categoria"
 PROMPT  1 1 "Categoria vendite: "
 FIELD 202@->S0
END

STRINGA 2 50
BEGIN
 KEY "Descrizione articolo"
 PROMPT  1 2 "Articolo:          "
 FIELD 47->DESCR
END

STRINGA 3 50
BEGIN
 KEY "Descrizione unita' di misura"
 PROMPT  1 3 "Unita' di misura:  "
 FIELD 201@->S0
END

STRINGA 4 2
BEGIN
 KEY "Categoria di vendita"
 PROMPT  1 4 ""
 FIELD 35->CODCAT
END

STRINGA 5 20
BEGIN
 KEY "Codice articolo"
 PROMPT  14 4 ""
 FIELD 35->CODART
END

STRINGA 6 2
BEGIN
 KEY "Unita' di misura"
 PROMPT  36 4 ""
 FIELD 35->UM
END

STRINGA 7 25
BEGIN
 KEY "Sconto"
 PROMPT  39 4 ""
 FIELD 35->SCONTO
END

END

END