1df67d66c8
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la verione 98.01.04 sul main trunk git-svn-id: svn://10.65.10.50/trunk@6986 c028cbd2-c16b-5b4b-a496-9718f37d4682
305 lines
4.3 KiB
Plaintext
Executable File
305 lines
4.3 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 GRAPHIC
|
|
BEGIN
|
|
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 67 4 "St. doc."
|
|
END
|
|
|
|
STRINGA 12 10
|
|
BEGIN
|
|
KEY "Intestazione (Cod. Valuta)"
|
|
PROMPT 76 4 "Val."
|
|
END
|
|
|
|
STRINGA 13 10
|
|
BEGIN
|
|
KEY "Intestazione (Imponibile)"
|
|
PROMPT 91 4 "Imponibile"
|
|
END
|
|
|
|
STRINGA 14 10
|
|
BEGIN
|
|
KEY "Intestazione (Spese)"
|
|
PROMPT 111 4 "Spese"
|
|
END
|
|
|
|
STRINGA 15 10
|
|
BEGIN
|
|
KEY "Intestazione (IVA)"
|
|
PROMPT 128 4 "IVA"
|
|
END
|
|
|
|
STRINGA 16 14
|
|
BEGIN
|
|
KEY "Intestazione (Importo totale)"
|
|
PROMPT 134 4 "Importo tot."
|
|
END
|
|
|
|
STRINGA 17 146
|
|
BEGIN
|
|
KEY "Separatore (finale)"
|
|
PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION BODY ODD 2
|
|
|
|
STRINGA 21 4
|
|
BEGIN
|
|
KEY "Codice numerazione"
|
|
PROMPT 1 1 ""
|
|
FIELD 33->CODNUM
|
|
END
|
|
|
|
STRINGA 22 9
|
|
BEGIN
|
|
KEY "Tipo documento"
|
|
PROMPT 11 1 ""
|
|
FIELD %TIP->S0
|
|
END
|
|
|
|
NUMERO 23 7
|
|
BEGIN
|
|
KEY "Numero documento"
|
|
PROMPT 22 1 ""
|
|
FIELD 33->NDOC
|
|
PICTURE "#######"
|
|
END
|
|
|
|
DATA 24 10
|
|
BEGIN
|
|
KEY "Data documento"
|
|
PROMPT 31 1 ""
|
|
FILED 33->DATADOC
|
|
END
|
|
|
|
NUMERO 25 7
|
|
BEGIN
|
|
KEY "Codice cliente"
|
|
PROMPT 42 1 ""
|
|
FIELD 33->CODCF
|
|
PICTURE "#######"
|
|
END
|
|
|
|
STRINGA 26 22 2
|
|
BEGIN
|
|
KEY "Cliente ragione sociale"
|
|
PROMPT 51 1 ""
|
|
MESSAGE _CLIENTE,!RAGSOC
|
|
END
|
|
|
|
STRINGA 27 1
|
|
BEGIN
|
|
KEY "Stato documento"
|
|
PROMPT 73 1 ""
|
|
FIELD 33->STATO
|
|
END
|
|
|
|
STRINGA 28 4
|
|
BEGIN
|
|
KEY "Cod. Valuta"
|
|
PROMPT 76 1 ""
|
|
FIELD 33->CODVAL
|
|
END
|
|
|
|
NUMBER 29 15
|
|
BEGIN
|
|
KEY "Totale imponibile (con spese)"
|
|
PROMPT 86 1 ""
|
|
MESSAGE _TOTIMPONIBILI,0|COPY,40
|
|
PICTURE "###.###.###.###"
|
|
END
|
|
|
|
NUMBER 30 15
|
|
BEGIN
|
|
KEY "Spese"
|
|
PROMPT 101 1 ""
|
|
PICTURE "###.###.###.###"
|
|
FIELD TOTSPE
|
|
MESSAGE COPY,41
|
|
END
|
|
|
|
NUMBER 31 15
|
|
BEGIN
|
|
KEY "Totale imposte"
|
|
PROMPT 116 1 ""
|
|
FIELD IMPOSTE
|
|
MESSAGE COPY,42
|
|
PICTURE "###.###.###.###"
|
|
END
|
|
|
|
NUMBER 32 15
|
|
BEGIN
|
|
KEY "Totale documento"
|
|
PROMPT 131 1 ""
|
|
FIELD TOTDOC
|
|
PICTURE "###.###.###.###"
|
|
MESSAGE COPY,43
|
|
END
|
|
|
|
NUMBER 40 15
|
|
BEGIN
|
|
KEY "Hidden field for computing tot imponibili"
|
|
FLAGS "H"
|
|
PROMPT 86 1 ""
|
|
MESSAGE _NUMEXPR,IF(33->CAMBIO!=0;#40*33->CAMBIO;#40)
|
|
MESSAGE ADD,FL->52
|
|
END
|
|
|
|
NUMBER 41 15
|
|
BEGIN
|
|
KEY "Hidden field for computing tot spese"
|
|
PROMPT 101 1 ""
|
|
MESSAGE _NUMEXPR,IF(33->CAMBIO!=0;#41*33->CAMBIO;#41)
|
|
MESSAGE ADD,FL->53
|
|
FLAGS "H"
|
|
END
|
|
|
|
NUMBER 42 15
|
|
BEGIN
|
|
KEY "Hidden field for computing tot imposte"
|
|
PROMPT 116 1 ""
|
|
MESSAGE _NUMEXPR,IF(33->CAMBIO!=0;#42*33->CAMBIO;#42)
|
|
MESSAGE ADD,FL->54
|
|
FLAGS "H"
|
|
END
|
|
|
|
NUMBER 43 15
|
|
BEGIN
|
|
KEY "Hidden field for computing tot documento"
|
|
PROMPT 131 1 ""
|
|
MESSAGE _NUMEXPR,IF(33->CAMBIO!=0;#43*33->CAMBIO;#43)
|
|
MESSAGE ADD,FL->55
|
|
FLAGS "H"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER LAST 2
|
|
|
|
STRINGA 51 25 1
|
|
BEGIN
|
|
KEY "Totale"
|
|
PROMPT 51 1 "@BTotale"
|
|
END
|
|
|
|
NUMBER 52 15
|
|
BEGIN
|
|
KEY "Totale imponibili"
|
|
PROMPT 86 1 ""
|
|
PICTURE "###.###.###.###"
|
|
END
|
|
|
|
NUMBER 53 15
|
|
BEGIN
|
|
KEY "Totale Spese"
|
|
PROMPT 101 1 ""
|
|
PICTURE "###.###.###.###"
|
|
END
|
|
|
|
NUMBER 54 15
|
|
BEGIN
|
|
KEY "Totale imposte"
|
|
PROMPT 116 1 ""
|
|
PICTURE "###.###.###.###"
|
|
END
|
|
|
|
NUMBER 55 15
|
|
BEGIN
|
|
KEY "Totale documenti"
|
|
PROMPT 131 1 ""
|
|
PICTURE "###.###.###.###"
|
|
END
|
|
|
|
END
|
|
|
|
|