campo-sirio/m770/77srsf.frm
angelo ec5cd6f14d Patch level :
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Modifiche al pacchetto gestione 770 (ora denominato
Gestione Percipienti), in modo da avere diciture corrette per quanto riguarda
i programmi di stampa e gestione quadri, ora chiamati RIEPILOGHI.
Commentato l'uso dei quadri che non servivano piu', modificati
opportunamente i menus e programmi per gestione parametri ed azzeramenti


git-svn-id: svn://10.65.10.50/trunk@7030 c028cbd2-c16b-5b4b-a496-9718f37d4682
1998-09-03 13:32:44 +00:00

142 lines
3.1 KiB
Plaintext
Executable File

USE 62
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 206 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 6 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO STATO=="" COM==COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO STATO==STATORES COM==COMRES
JOIN 13 TO 216@ ALIAS 513 INTO STATO=="" COM==COMRF
JOIN %STA TO 216@ ALIAS 104 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
62->* "Quadro D 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
206@->* "Anagrafica persone fisiche e giuridiche"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone fisiche"
313@->* "Comune nascita"
413@->* "Comune residenza"
513@->* "Comune residenza fiscale"
END
GENERAL
BEGIN
OFFSET 0 0
END
SECTION HEADER ODD 6
STRINGA 1 40 1
BEGIN
KEY "nome ditta"
PROMPT 1 1 "Ditta: "
FIELD 9->RAGSOC
END
STRINGA 2 10
BEGIN
KEY "Data"
PROMPT 106 1 "Data "
MESSAGE _TODAY
END
NUMERO 3 7
BEGIN
KEY "Nr. pagina"
PROMPT 122 1 "Pagina "
MESSAGE _PAGENO
END
NUMERO 4 40
BEGIN
KEY "Intestazione stampa"
PROMPT 55 2 "Stampa riepilogo SF"
END
END
SECTION BODY ODD 2 COLUMWISE
STRINGA 1 50
BEGIN
SPECIAL STRINGA INTESTAZIONE "Ragione Sociale" "Ragione Sociale"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "RAGSOC GIURIDICHE"
PROMPT 1 1 ""
FIELD 216@->RAGSOC
END
STRINGA 2 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "@cCausale" "Causale"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "CAUSALE"
PROMPT 2 1 ""
FIELD CAUSALE
END
NUMBER 3 14
BEGIN
SPECIAL STRINGA INTESTAZIONE "@cTotale" "Tot."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "TOTALE"
PROMPT 3 1 ""
FIELD TOTALE
PICTURE "###.###.###^^^"
END
NUMBER 4 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "Somme non sogg." "Somme non sogg."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "SOMME NON SOGGETTE A RITENUTA"
PROMPT 4 1 ""
FIELD SOMME
PICTURE "###.###.###^^^"
END
NUMBER 5 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "Som. Reg. Conv." "Som. Reg. Conv"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "SOMREGCONV"
PROMPT 5 1 ""
FIELD SOMREGCONV
PICTURE "###.###.###^^^"
END
NUMBER 6 14
BEGIN
SPECIAL STRINGA INTESTAZIONE "@cImponibile" "Imponibile"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPONIBILE"
PROMPT 6 1 ""
FIELD IMPONIBILE
PICTURE "###.###.###^^^"
END
NUMBER 7 14
BEGIN
SPECIAL STRINGA INTESTAZIONE "@cImporto" "Importo"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 7 1 ""
FIELD IMPORTO
PICTURE "###.###.###^^^"
END
END