COGS61 -- Ricerca e selezione buoni di prelievo (subroutine)¶

Sorgente: cbl/cogs61.cbl | Tipo: Sottoprogramma interattivo (subroutine con maschera) | Program-ID: COGS61

Scopo¶

Subroutine richiamata da altri programmi (tipicamente COGM59, COGM68) per consentire all'operatore di selezionare uno o piu' buoni di prelievo (BdP) di un'anagrafica all'interno di un magazzino (o tra magazzini promiscui).

Input: - i-ana -- codice anagrafico da ricercare - ri-caller -- programma chiamante

Output: - o-tab -- tabella con gli estremi dei buoni selezionati

File e tabelle principali¶

Tabella	Ruolo
COGTBBP (`tbp-*`)	Tabella buoni di prelievo (chiave: cli + bdp)
COGGEANA	Anagrafica clienti (descrizione)
COGMAGAZ	Magazzini
COGMERCI	Merci (per descrizione/filtro griglia)

Modifiche introdotte (build 2026-06-04)¶

Nuova colonna "Note" in griglia¶

Aggiunti i campi:

01 grd-rec.
   ...
   02 grd-cau-d        pic x(30).
   02 grd-ordine       pic x(16).
   02 grd-consegna     pic x(15).
   02 grd-note         pic x(50).        *>DOC: NEW

01 tab-maschera.
   ...
   02 tm-dati.
      ...
      05 tm-note          pic x(50).     *>DOC: NEW

La nota di ciascun BdP (tbp-note) viene letta e copiata in tm-note (i) nei due punti di caricamento della griglia (caricamento iniziale dei BdP esistenti e caricamento al rientro da una sotto-funzione), e poi riportata in grd-note durante il refresh riga della griglia:

move tbp-note              to tm-note (i)
...
move tm-note (k)           to grd-note

Nessuna modifica funzionale agli algoritmi di selezione: la nuova colonna e' solo informativa per l'operatore.

Cosmetiche¶

Riformattazione di indentazione in numerosi move e if/else per uniformare lo stile del sorgente. Nessun impatto funzionale.

Note¶

Non e' un programma a menu: l'utente non lo richiama mai direttamente. La sua maschera compare quando un programma chiamante (es. COGM59, COGM68) lo invoca per la selezione BdP
Le note BdP sono memorizzate su COGTBBP.tbp-note (50 caratteri)
La griglia mostra come campi: causale (grd-cau, grd-cau-d), ordine (grd-ordine), consegna (grd-consegna) e ora anche nota (grd-note)

Storico modifiche¶

Build	Descrizione
2026/0604	Aggiunta colonna "Note" alla griglia di selezione BdP: nuovo campo `grd-note` (50 char) e nuovo `tm-note` nel vettore della maschera, valorizzati da `tbp-note`. Riformattazioni cosmetiche di indentazione