Vai al contenuto

COGD13 - Esportazione fatture (lanciatore)

Intestazione

Campo Valore
Programma COGD13
Titolo Esportazione fatture (programma di lancio)
Modulo Sistema
Posizione menu Sistema > Utility > Esportazioni > Fatture

Scopo e logica generale

COGD13 e' un programma di lancio (dispatcher): l'intestazione del sorgente indica "Esportazione fatture - Programma di lancio". Sceglie ed esegue il programma corretto in base alla personalizzazione dell'azienda.

Rispetto a COGD05/COGD09, COGD13 e' scritto con il framework maschera piu' recente: dichiara le declaratives di I/O su feurtab/coggeana (dichiarati esterni), imposta prog-err/w-nome-hlp, esegue ctr-abil e rd-azi, e a fine procedure include mmmask tramite winmsg.cpy/open1.cpy (chiusura con z-99-exit-program). La logica di scelta e' pero' la stessa dei wrapper:

  • Ambiente personalizzato (az-personal diverso da spazi): compone name-call = 'COGD13' + az-personal + '.cob' e lo esegue (call ... using stringhe); su on overflow va a st-80-standard.
  • Ambiente standard o personalizzazione non eseguibile: esegue COGD13NO.COB.

Se anche lo standard va in overflow, recupera lo stato tramite C$CALLERR e mostra un box di messaggio.

Il programma delegato (COGD13NO o variante) produce il file di esportazione delle fatture; COGD13 gli passa l'area comune stringhe.

Flusso principale

  1. apri (main): imposta prog-err/w-nome-hlp = 'COGD13', esegue ctr-abil e rd-azi.
  2. Se az-personal diverso da spaces: compone name-call = 'COGD13' + az-personal + '.cob', lo esegue; su overflow va a st-80-standard, altrimenti a st-90-ok.
  3. st-80-standard: name-call = 'COGD13NO.COB', esegue; su overflow recupera lo stato via C$CALLERR (w-ce-status, w-ce-descr), compone wb-1/wb-2/wb-3 e chiama box-msg.
  4. st-90-ok: cancel name-call, poi go to fine.
  5. fine / z-chiudi: z-99-exit-program, exit program.

File e tabelle acceduti

File Record Modalita' Uso
feurtab cogfiles.cpy (dichiarato) Presente in SELECT/FD e nelle declaratives, ma il wrapper non lo apre/elabora direttamente
coggeana (external) coggeana.cpy (dichiarato, is external) Idem: dichiarato ma non elaborato dal wrapper

Nota: i file sono dichiarati (SELECT, FD, declaratives) ma il flusso del wrapper non contiene aperture/letture; l'elaborazione avviene nel programma delegato.

Copybook principali

  • feurtab.fd, coggeana.fd, cogfiles.cpy, coggeana.cpy - dichiarazioni file.
  • wstato.cpy, wgrave.cpy, wnscr.cpy, wopenf.cpy, cogazien.cpy - working-storage standard.
  • wcont.cpy (stringhe), wcont1.cpy - linkage.
  • grave.cpy, winmsg.cpy, stato.cpy, stato1.cpy, open1.cpy - routine finali (include il framework maschera mmmask via queste catene).

Programmi chiamati (CALL)

Programma Scopo
COGD13<personal>.cob Variante personalizzata dell'esportazione fatture (es. GDO, cfr. flusso)
COGD13NO.COB Esportazione fatture standard (fallback)
C$CALLERR Routine di sistema AcuCOBOL: recupera stato/descrizione dell'ultimo errore di CALL

Note

  • Programma wrapper/lanciatore: la logica di esportazione e' nel programma delegato. Nel flusso Sistema - Import/Export e' censito come "Esportazione fatture: varianti COGD13GD (GDO), COGD13GO".
  • Contiene un paragrafo search-file/sf-003 (schema go to ... depending on w-ind-fl) predisposto ma non usato nel flusso del wrapper.
  • Nessuna configurazione RNEWCONF letta direttamente.

Documentazione tecnica -- creata 2026-08-06