COGE36 — Rubrica (Stampa Soci)¶
Sorgente: cbl/coge36.cbl | Program-ID: COGE36 | Tipo: Programma di stampa
Menu: Contabilita' > Archivi & Tabelle > Stampe > Soci > Rubrica
Scopo¶
Stampa la rubrica anagrafica dei soci, con possibilita' di ordinamento per codice numerico, ordine alfabetico o numero di registrazione. Distingue tra soci ordinari e soci "grandine" tramite un flag iniziale.
Logica di elaborazione¶
Flusso principale¶
- Selezione tipo socio: l'operatore sceglie se stampare i soci normali o i soci grandine (tipo "G")
- Selezione ordinamento: tramite COGS60 l'operatore sceglie tra:
- C = Ordine Codice (numerico)
- A = Ordine Alfabetico
- R = Ordine N. Registro (numero iscrizione)
- Scansione e stampa:
- Ordine codice: scansione COGGEANA per chiave primaria (
ana-chia), tipo "S" o "G" - Ordine alfabetico: scansione COGGEANA per chiave secondaria (
ana-chia1), tipo "S" o "G" - Ordine registro: riordino preliminare tramite file di transito COGTRANS
Ordinamento per numero di registrazione¶
- Scansione completa dei soci e scrittura su COGTRANS (
#$coge36.trs), usandoana-numiscrizcome chiave - Riposizionamento all'inizio del file di transito
- Lettura sequenziale di COGTRANS, ricostruendo
ana-recdal record di transito
Dati stampati per ogni socio¶
| Riga | Contenuto |
|---|---|
| Riga 1 | Codice, ragione sociale, indirizzo, localita', provincia, CAP |
| Riga 2 | Partita IVA, codice fiscale, N. iscrizione, cooperativa (S/N), tipo fattura (Autofattura/Fattura), data di nascita, luogo di nascita, provincia di nascita |
File utilizzati¶
| File | Accesso | Scopo |
|---|---|---|
| COGGEANA | Input | Anagrafica soci |
| COGAZIEN | Input | Dati azienda |
| COGTRANS | I-O | File temporaneo per riordino per N. registro (solo se ordine = "R") |
| FLSTA | Output | File spool stampa |
Programmi chiamati¶
| Programma | Scopo |
|---|---|
| COGS60 | Gestione combo-box per selezione ordinamento |
| COGS54 | Gestione stampa/spooler |
Copybook principali¶
cogfiles.cpy, coggeana.cpy, cogazien.cpy, utils54.cpy, utils60.cpy, cogtrans.k01
Note¶
- La larghezza di stampa e' 132 caratteri.
- Il programma e' di vecchia generazione (interfaccia a maschere LINE/COL con box grafico in working storage, non screen section).
- Il file COGTRANS (
#$coge36.trs) viene creato e cancellato automaticamente solo quando si sceglie l'ordinamento per numero di registrazione. - La distinzione "soci grandine" (
ws-socio = "G") e' specifica di installazioni cooperative agricole.