campo-sirio/ve/listadoc.frm

USE 33
JOIN %TIP TO 33 INTO CODTAB==TIPODOC
END

DESCRIPTION
BEGIN
  33->* "Documenti di vendita"
  20->* "Clienti/Fornitori"
  %TIP->* "Tabella tipi documento"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Courier New"
  SIZE 12
END

SECTION HEADER ODD 6

STRINGA 1 40 1
BEGIN
 KEY "nome ditta"
 PROMPT  1 1 "Ditta "
 MESSAGE _DITTA, !RAGSOC
END

STRINGA 2 10
BEGIN
 KEY "Data"
 PROMPT  120 1 "Data "
 MESSAGE _DATA
END

NUMERO 3 7
BEGIN
 KEY "Nr. pagina"
 PROMPT  137 1 "Pagina "
 MESSAGE _PAGENO
END

NUMERO 4 25
BEGIN
 KEY "Intestazione stampa"
 PROMPT  45 2 "Stampa lista documenti"
END

STRINGA 5 146
BEGIN
  KEY "Separatore (iniziale)"
  PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END

STRINGA 6 8
BEGIN
  KEY "Intestazione (Cod. numerazione)"
  PROMPT 1 4 "Cod. num."
END

STRINGA 7 9
BEGIN
  KEY "Intestazione (Tipo doc.)"
  PROMPT 11 4 "Tipo doc."
END

STRINGA 8 8
BEGIN
  KEY "Intestazione (Numero doc.)"
  PROMPT 22 4 "Nr. doc."
END

STRINGA 9 9
BEGIN
  KEY "Intestazione (Data doc.)"
  PROMPT 31 4 "Data doc."
END

STRINGA 10 7
BEGIN
  KEY "Intestazione (Cliente)"
  PROMPT 48 4 "Cliente"
END

STRINGA 11 10
BEGIN
  KEY "Intestazione (Stato doc.)"
  PROMPT 75 4 "Stato doc."
END

STRINGA 12 10
BEGIN
  KEY "Intestazione (Imponibile)"
  PROMPT 91 4 "Imponibile"
END

STRINGA 13 10
BEGIN
  KEY "Intestazione (Spese)"
  PROMPT 111 4 "Spese"
END

STRINGA 14 10
BEGIN
  KEY "Intestazione (IVA)"
  PROMPT 128 4 "IVA"
END

STRINGA 15 14
BEGIN
  KEY "Intestazione (Importo totale)"
  PROMPT 134 4 "Importo tot."
END

STRINGA 16 146
BEGIN
  KEY "Separatore (finale)"
  PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END

END

SECTION BODY ODD 2

STRINGA 17 4
BEGIN
 KEY "Codice numerazione"
 PROMPT  1 1 ""
 FIELD 33->CODNUM
END

STRINGA 18 9
BEGIN
 KEY "Tipo documento"
 PROMPT  11 1 ""
 FIELD %TIP->S0
END

NUMERO 19 7
BEGIN
 KEY "Numero documento"
 PROMPT  22 1 ""
 FIELD 33->NDOC
 PICTURE "#######"
END

DATA 20 10
BEGIN
 KEY "Data documento"
 PROMPT  31 1 ""
 FILED 33->DATADOC
END

NUMERO 21 7
BEGIN
 KEY "Codice cliente"
 PROMPT  42 1 ""
 FIELD 33->CODCF
 PICTURE "#######"
END

STRINGA 22 25 2
BEGIN
 KEY "Cliente ragione sociale"
 PROMPT  51 1 ""
 MESSAGE _CLIENTE,!RAGSOC
END

STRINGA 23 1
BEGIN
 KEY "Stato documento"
 PROMPT  76 1 ""
 FIELD 33->STATO
END

NUMBER 24 15 
BEGIN
 KEY "Totale imponibile (con spese)"
 PROMPT  86 1 ""
 MESSAGE _TOTIMPONIBILI,0
 PICTURE "###.###.###.###"
END

NUMBER 25 15 
BEGIN
 KEY "Spese"
 PROMPT  101 1 ""
 PICTURE "###.###.###.###"
 FIELD TOTSPE
END

NUMBER 26 15 
BEGIN
 KEY "Totale imposte"
 PROMPT  116 1 ""
 FIELD IMPOSTE
 PICTURE "###.###.###.###"
END

NUMBER 27 15 
BEGIN
 KEY "Totale documento"
 PROMPT  131 1 ""
 FIELD TOTDOC
 PICTURE "###.###.###.###"
END

END