210 lines
3.0 KiB
Plaintext
Executable File
210 lines
3.0 KiB
Plaintext
Executable File
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 (al netto delle spese)"
|
|
PROMPT 86 1 ""
|
|
// Il selettore 0 restituisce il totale imponibili meno le spese
|
|
MESSAGE _TOTIMPONIBILI,1
|
|
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
|
|
|