COGE87 - Visualizzazione Schede Contabili (dispatcher)

Scopo

Programma di ingresso ("dispatcher") della funzione Schede Contabili. Non contiene logica applicativa: in base al codice di personalizzazione azienda (az-personal) instrada la chiamata verso il programma personalizzato COGE87<az-personal> (es. COGE87UN, COGE87VE) e, in assenza di personalizzazione o se il modulo non esiste, verso la versione standard COGE87NO. La logica effettiva di visualizzazione delle schede contabili risiede in COGE87NO.

Menu

Contabilita' > Prima Nota > Visualizzazioni > Schede Contabili

File e tabelle

Il dispatcher non apre file. Usa la sola azien-area (copybook cogazien) per leggere az-personal.

Copybook

• Working-storage standard: wgrave, wstato, wopenf, wscree, cogazien.
• Linkage: wcont, wcont1.
• Fine procedure: msend, grave.

CALL

Programma	Descrizione
COGE87<az-personal>	Variante personalizzata, chiamata dinamicamente costruendo il nome in w-coge87 (esistono in sorgente COGE87UN, COGE87VE). In on overflow (memoria insufficiente/programma assente) ricade sulla standard
COGE87NO	Versione standard delle Schede Contabili, chiamata quando az-personal = spaces o come fallback

Logica di elaborazione

1. a000: imposta prog-err, copia azien-area in az-rec, azzera w-coge87.
2. Se az-personal = spaces salta a a05-standard; altrimenti compone il nome COGE87<az-personal> e lo chiama con on overflow verso a05-standard; se la chiamata va a buon fine passa a a10-cancel.
3. a05-standard: chiama COGE87NO; su on overflow mostra "Manca programma !!".
4. a10-cancel: cancel del programma chiamato.
5. fine: exit program.

Note tecniche

• source-computer pc-sperry.
• Il nome del programma personalizzato e' costruito con string 'COGE87' az-personal ... into w-coge87 e chiamato tramite variabile (call w-coge87), non con letterale.
• Modulo molto piccolo (~70 righe): serve unicamente a selezionare la variante corretta della scheda contabile.