campo-sirio/src/sc/pec.frm
bonazzi 2a32c54e5d Patch level : 12.0 336
Files correlati     : sc2.exe pec.frm sc2200a.msk sc2300a.msk

MODIFICA CRPA 

Possibilità di stampare il pagamento del cliente nella testata dell'estratti conto.
Aggiunto filtro per ulteriore classificazione nello scadenziario.
Possibilità di stampare le note delle scadenze nella stampa scaduto.
Possibiltà di stampare il flag di rata bloccata e il dati di analitica e di filtrare per dati analitica nei solleciti.

git-svn-id: svn://10.65.10.50/branches/R_10_00@23573 c028cbd2-c16b-5b4b-a496-9718f37d4682
2017-01-31 08:22:52 +00:00

508 lines
9.3 KiB
Plaintext
Executable File

#include "sc21pec.h"
USE LF_CLIFO
JOIN 13 INTO STATO==STATOCF COM==COMCF
END
DESCRIPTION
BEGIN
20->* "Clienti/Fornitori"
13->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
GRID "+++++++++-|"
END
SECTION GRAPHICS ODD 0
FIGURA 500
BEGIN
KEY ""
PROMPT 0 0 ""
END
END
SECTION HEADER ODD 14
STRINGA 1
BEGIN
KEY "Spettabile/Egregio"
PROMPT 2 1 "Spettabile"
END
NUMERO 104
BEGIN
KEY "Numero EC"
PROMPT 50 1 "Estratto conto n."
END
NUMERO 218
BEGIN
KEY "Pagina"
PROMPT 73 1 "Pag."
END
STRINGA 3
BEGIN
KEY "Codice cliente/fornitore"
PROMPT 2 2 ""
FIELD 20.CODCF
END
STRINGA 4
BEGIN
KEY "Ragione sociale"
PROMPT 8 2 ""
FIELD 20.RAGSOC
END
STRINGA 5
BEGIN
KEY "Indirizzo"
PROMPT 2 3 ""
FLAGS "H"
MESSAGE COPY,7
FIELD 20.INDCF
END
STRINGA 6
BEGIN
KEY "Numero civico"
PROMPT 52 3 ""
FLAGS "H"
MESSAGE APPEND,7
FIELD 20.CIVCF
END
STRINGA 7
BEGIN
KEY "Indirizzo completo"
PROMPT 2 3 ""
END
STRINGA 8
BEGIN
KEY "C.A.P."
PROMPT 2 4 ""
FIELD 20.CAPCF
END
STRINGA 9
BEGIN
KEY "Localita'"
PROMPT 26 4 ""
FIELD 20.LOCALITACF
END
STRINGA 10
BEGIN
KEY "Comune"
PROMPT 2 5 ""
FLAGS "H"
MESSAGE COPY,12
FIELD 13->DENCOM
END
STRINGA 11
BEGIN
KEY "Provincia"
PROMPT 52 5 ""
FLAGS "H"
MESSAGE APPEND,12
FIELD 13->PROVCOM
END
STRINGA 12
BEGIN
KEY "Comune completo"
PROMPT 2 5 ""
END
STRINGA 13
BEGIN
KEY "Prefisso telefonico"
PROMPT 2 6 "Telefono "
FLAGS "H"
MESSAGE COPY,15
FIELD 20.PTEL
END
STRINGA 14
BEGIN
KEY "Telefono"
PROMPT 24 6 "/ "
FLAGS "H"
MESSAGE APPEND,15
FIELD 20.TEL
END
STRINGA 15
BEGIN
KEY "Telefono completo"
PROMPT 2 6 "Telefono "
END
STRINGA 101
BEGIN
KEY "Luogo d'invio"
PROMPT 2 7 ""
END
DATA 102
BEGIN
KEY "Data d'invio"
PROMPT 52 7 ""
FORMAT "1444-"
END
STRINGA 103 40 3
BEGIN
KEY "Testo fisso"
PROMPT 2 9 ""
FLAGS "M"
END
STRINGA 16
BEGIN
KEY "SECONDA RAG SOC"
PROMPT 1 1 ""
FLAGS "H"
FIELD 20->RAGSOC[1,20]
END
STRINGA 105
BEGIN
KEY "Dati Agente"
PROMPT 2 8 "@bAgente "
END
STRINGA 106 50
BEGIN
KEY "Dati Pagamento"
PROMPT 2 10 "@bPagamento "
END
END
SECTION HEADER LAST 1
STRINGA 100
BEGIN
KEY "Flags generali VALUTA|FINCATURA"
PROMPT 0 0 "|2|"
FLAGS "DH"
END
STRINGA 301
BEGIN
KEY "Descrizione saldo partita"
PROMPT 2 1 "*** Saldo partita"
FLAGS "DH"
END
STRINGA 302
BEGIN
KEY "Descrizione abbuoni"
PROMPT 2 1 "*** Abbuoni"
FLAGS "DH"
END
STRINGA 303
BEGIN
KEY "Descrizione differenza cambi"
PROMPT 2 1 "*** Differenza cambi"
FLAGS "DH"
END
STRINGA 304
BEGIN
KEY "Ritenute"
PROMPT 2 1 "*** Ritenute"
FLAGS "DH"
END
STRINGA 400
BEGIN
KEY "Descrizione riporto"
PROMPT 2 1 "*** Riporto"
FLAGS "DH"
END
END
SECTION BODY ODD 5 COLUMNWISE
STRINGA 201 4
BEGIN
KEY "Codice causale"
PROMPT 1 1 ""
FLAGS "H"
SPECIAL STRINGA INTESTAZIONE "Cod." "Codice Causale"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
END
STRINGA 202 22 1
BEGIN
KEY "Descrizione"
PROMPT 1 1 "<DES PART>"
SPECIAL STRINGA INTESTAZIONE "Descrizione" "Descrizione"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
END
STRINGA PEC_VALUTA 3
BEGIN
KEY "Valuta di stampa"
PROMPT 2 1 ""
SPECIAL STRINGA INTESTAZIONE "Val" "Val"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
FLAGS "H"
END
DATA 205 10
BEGIN
KEY "Data documento"
PROMPT 3 1 ""
SPECIAL STRINGA INTESTAZIONE "Data doc." "Data documento"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
FORMAT "1444-"
END
NUMERO 206 8
BEGIN
KEY "Numero protocollo"
PROMPT 4 1 ""
FLAGS "H"
SPECIAL STRINGA INTESTAZIONE "Num prot." "Numero potocollo"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
END
STRINGA 207 8
BEGIN
KEY "Numero documento"
PROMPT 5 1 ""
SPECIAL STRINGA INTESTAZIONE "Num doc." "Numero documento"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
END
VALUTA 208 15
BEGIN
KEY "Totale documento"
PROMPT 6 1 ""
FLAGS "H"
DRIVENBY PEC_VALUTA
SPECIAL STRINGA INTESTAZIONE "Tot.documento" "Totale documento"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
END
DATA 209 10
BEGIN
KEY "Data scadenza"
PROMPT 7 1 ""
SPECIAL STRINGA INTESTAZIONE "Data scad." "Data scadenza"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
FORMAT "1444-"
END
VALUTA 210 17
BEGIN
KEY "Dare"
PROMPT 8 1 ""
DRIVENBY 203
SPECIAL STRINGA INTESTAZIONE "Dare" "Dare"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
END
VALUTA 211 17
BEGIN
KEY "Avere"
PROMPT 9 1 ""
DRIVENBY 203
SPECIAL STRINGA INTESTAZIONE "Avere" "Avere"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
END
VALUTA 212 17
BEGIN
KEY "Scaduto"
PROMPT 10 1 ""
DRIVENBY 203
SPECIAL STRINGA INTESTAZIONE "Scaduto" "Scaduto"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
END
VALUTA 213 17
BEGIN
KEY "Esposto"
PROMPT 11 1 ""
DRIVENBY 203
SPECIAL STRINGA INTESTAZIONE "Esposto" "Esposto"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
END
VALUTA 215 17
BEGIN
KEY "Importi in Euro"
PROMPT 12 1 ""
FLAGS "H"
SPECIAL STRINGA INTESTAZIONE "Imp. in lire" "Importi in lire"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
END
NUMERO 216 17
BEGIN
KEY "Cambio"
PROMPT 13 1 ""
FLAGS "H"
SPECIAL STRINGA INTESTAZIONE "Cambio" "Cambio"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
PICTURE "###.###,@@@@@@"
END
DATA 217 10
BEGIN
KEY "Data cambio"
PROMPT 14 1 ""
FLAGS "H"
SPECIAL STRINGA INTESTAZIONE "Data cam." "Data cambio"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
FORMAT "1444-"
END
STRINGA 220 6
BEGIN
KEY "Rata bloccata"
PROMPT 15 1 ""
FLAGS "H"
SPECIAL STRINGA INTESTAZIONE "Blocc." "Rata bloccata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
END
STRINGA PEC_ANALITICA 30 25
BEGIN
KEY "Analitica"
PROMPT 16 1 ""
FLAGS "H"
SPECIAL STRINGA INTESTAZIONE "Analitica" "Analitica"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
END
STRINGA PEC_VALIMP 3
BEGIN
KEY "Valuta reale"
PROMPT 17 1 ""
FLAGS "H"
SPECIAL STRINGA INTESTAZIONE "Valuta reale" "Codice Valuta"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
END
VALUTA PEC_IMPVAL 17
BEGIN
KEY "Importi in Valuta"
DRIVENBY PEC_VALIMP
PROMPT 18 1 ""
FLAGS "H"
SPECIAL STRINGA INTESTAZIONE "Imp. Valuta" "Importi in Valuta"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
END
END
SECTION FOOTER ODD 9
STRINGA 203
BEGIN
KEY "Codice Valuta"
FLAGS "H"
END
VALUTA 210 17
BEGIN
KEY "Dare"
PROMPT 0 1 ""
DRIVENBY 203
END
VALUTA 211 17
BEGIN
KEY "Avere"
PROMPT 0 1 ""
DRIVENBY 203
END
VALUTA 212 17
BEGIN
KEY "Scaduto"
PROMPT 0 2 ""
DRIVENBY 203
END
VALUTA 213 17
BEGIN
KEY "Esposto"
PROMPT 0 3 ""
DRIVENBY 203
END
VALUTA 215 17
BEGIN
KEY "Importi in lire"
PROMPT 0 4 ""
END
VALUTA 219 17
BEGIN
KEY "Importi non assegnati"
PROMPT 0 5 ""
END
STRINGA 401
BEGIN
KEY "Descrizione totale"
PROMPT 0 1 "Saldo <VALUTA> al <DATA>"
END
STRINGA 402
BEGIN
KEY "Descrizione totale scaduto"
PROMPT 0 2 "Scaduto al <DATA SCADUTO>"
END
STRINGA 403
BEGIN
KEY "Descrizione totale esposto"
PROMPT 0 3 "Totale esposto"
END
STRINGA 404
BEGIN
KEY "Descrizione totale importi in lire/euro"
PROMPT 0 4 "Totale importi in <DESCRIZIONE DIVISA>"
FLAGS "H"
END
STRINGA 405
BEGIN
KEY "Descrizione totale pagamenti non assegnati"
PROMPT 0 5 "Totale pagamenti non assegnati al <DATA>"
END
END
END