COSO70 - Preparazione dati Sede → Periferia
Funzione
Estrazione di anagrafiche, tabelle e (opzionale) dati contabili dei soci dell'Unione verso una cartella di parcheggio, con successiva compressione ARJ multivolume per invio alle periferie. Programma legacy DOS-style con maschera testuale.
- Contabilita' > Unione soci/clienti > Preparazione Dati
Tabelle e file principali
| Tabella/File |
Descrizione |
Accesso |
| FEURTAB |
Tabella file aziendali |
Lettura |
| COGTABEL |
Tabella generica contabilita' |
Lettura |
| COGPNONC |
Prima nota non contabilizzata |
Lettura (estrazione) |
| COGCOATT |
Prima nota contabilizzata corrente |
Lettura (estrazione completa) |
| COGCOPRE |
Prima nota contabilizzata precedente |
Lettura (estrazione completa) |
| UNMEMBOL |
Memoria bollettini |
Lettura |
| COGTABDWN |
File output tabelle scaricate |
Output indexed |
| RELDOC, RELCTR |
File documenti di rilascio (informativi) |
Output line sequential |
Copybook e sottoprogrammi
| Elemento |
Tipo |
Ruolo |
| cogconta.cpy |
Copybook |
Record contabilita' |
| cogazien.cpy |
Copybook |
Dati azienda |
| COSO78 |
Sottoprogramma |
Scarico anagrafiche soci (estrae unipno.arc, ...) |
Logica principale
- Apri: open files, lettura tabella esercizio (euta-tipo=66)
- Maschera: richiede cartella di parcheggio (default
c:\datiage\) e tipo di estrazione (F9 = completa)
- Pulizia:
del *.* nella cartella di parcheggio
- Verifica tabella mastro/conti Soci: legge
euta-tipo=06, codso1=90. Se assente, errore
- Estrazione contabile (solo F9): paragrafo
down-cogconta per cogcopre e cogcoatt (i=1..2) + cogpnonc
- Estrazione tabelle: paragrafo
down-cogtabel (tutte le tabelle eccetto numerazioni)
- Estrazione anagrafiche: call a COSO78 per scaricare unipno.arc
- Documento di rilascio: crea
RE{datasi}.DOC con elenco file
- Compressione:
arj multivolume del contenuto del parcheggio
- Fine: messaggio di chiusura
Note tecniche
- Programma "DOS-style" risalente alla versione RMCobol (source-computer RMCOBOL), poi convertito acu-cobol
- Usa CALL "SYSTEM" per
del e arj — non funziona su Linux/thin-client senza adattamento
- Il file
cogtabdwn e' l'archivio indexed di output dove vengono scaricate le tabelle
- Tipo estrazione
w-tipo-estr = "F9" distingue completa vs parziale
- Programma fortemente legato al flusso periferia (Unione Agricoltori): le procedure controparte (COSO79, COSO86, COSO88) leggono i dati in arrivo dalle periferie