NUT170 - Stampa Distinte RID¶
Funzione¶
Dispatcher per la ristampa delle distinte RID. Seleziona il sottoprogramma corretto in base alla configurazione RNEWCONF e alla personalizzazione dell'azienda.
Menu¶
- Vendite > R.I.D. > Stampa Distinte
Tabelle e file principali¶
| Tabella/File | Descrizione | Accesso |
|---|---|---|
| FEURTAB | Tabella configurazione file | Lettura |
| COGTABEL | Tabella generale | Lettura |
Copybook e sottoprogrammi¶
| Elemento | Tipo | Ruolo |
|---|---|---|
| RNEWCONF | Sottoprogramma | Lettura configurazione |
| NUT170NO | Sottoprogramma | Stampa distinte ordinate per vettore (config 'V') |
| NUT170XX | Sottoprogramma | Stampa distinte ordinate per cliente (config 'C') |
| NUT170{personal} | Sottoprogramma | Versione personalizzata (se az-personal valorizzato) |
| wcont.cpy | Copybook | Area di comunicazione (linkage) |
| wcont1.cpy | Copybook | Area di comunicazione estesa |
| utilncnf.cpy | Copybook | Utility RNEWCONF |
| cogtabel.k01 | Copybook | Chiave primaria COGTABEL |
Logica principale¶
Configurazione¶
Lettura RNEWCONF con:
- Percorso: PROGCOGV97
- Chiave: ordine-di-stampa-rid
- Risultato in tm-cfg-ord-prn (1 carattere)
Flusso di dispatch¶
- Se
az-personale' valorizzato, tenta la CALL aNUT170{az-personal}(versione personalizzata). Se trovato, esce dopo il ritorno. - Se non esiste personalizzazione:
tm-cfg-ord-prn = 'V'-> chiama NUT170NO (ordinamento per vettore)tm-cfg-ord-prn = 'C'-> chiama NUT170XX (ordinamento per cliente)- Altrimenti: messaggio di errore "Manca la configurazione"
Chiusura¶
Dopo la CALL al sottoprogramma, esegue CANCEL del modulo chiamato e chiude.
Note¶
- E' un programma di smistamento puro: non contiene logica di stampa propria.
- I sottoprogrammi NUT170NO e NUT170XX ricevono i parametri tramite
stringhe(linkage section). - Il file COGTABEL viene aperto in input nel paragrafo
search-file/sf-01.