campo-sirio/sc/pec.frm

#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 12

  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
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