campo-sirio/ve/listadoc.frm

305 lines
4.3 KiB
Plaintext
Raw Normal View History

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