COGP98 - Controllo Numerazione Bolle Uscita
Descrizione
Programma di stampa che verifica la continuita' della numerazione delle bolle di uscita per un dato magazzino e anno. Partendo dal numero di partenza indicato, confronta la sequenza teorica attesa con i documenti effettivamente presenti e stampa i numeri mancanti ("buchi"). Supporta il filtraggio per tipo bolla.
Tipo: Report di controllo numerazione con selezione parametri.
Menu: Vendite > Fatturazione > Stampe > Controllo Numerazione Bolle
Tabelle utilizzate
| Tabella |
Accesso |
Descrizione |
| FEURTAB (cogtabel) |
Input |
Tabella parametri generali azienda |
| COGBOLUS (o archivio bolle uscita) |
Input |
Archivio bolle di uscita (letto tramite cogp98.select/fd) |
| FLSTA |
Output |
File di stampa |
Copybook principali
| Copybook |
Descrizione |
| cogp98.select |
SELECT per i file del programma |
| cogp98.fd |
File description |
| cogp98.wrk |
Working storage generata da Screens |
| cogp98-01.scr |
Screen section maschera di selezione |
| cogp98.decla |
Declaratives per gestione errori I/O |
| cogfiles.cpy |
Descrizione record FEURTAB |
| flsta.fd / flsta.cpy |
File di stampa |
| cogazien.cpy |
Dati azienda corrente |
| utils52.cpy |
Utility gestione date/calendario |
| utils54.cpy |
Utility gestione stampante (COGS54) |
| utilw36.cpy |
Utility ricerca magazzino (WIN036) |
Parametri maschera
| Campo |
Variabile |
Descrizione |
| Magazzino |
tm-mag |
Codice magazzino (F8: ricerca tramite WIN036) |
| Anno |
tm-anno |
Anno di riferimento (default: anno corrente) |
| Numero partenza |
tm-num |
Numero di partenza della sequenza da verificare |
| Tipo bolla |
w-tipob |
Tipo documento bolla da controllare |
Flusso di elaborazione
- Maschera di selezione (
a4): inizializzazione con az-main-mag e anno corrente, numero 1.
- Accettazione parametri: magazzino (con aiuto WIN036), anno, numero di partenza, tipo bolla.
- Elaborazione (alla conferma F3):
- Posizionamento sull'archivio bolle per magazzino + anno + tipo + numero di partenza.
- Scansione sequenziale dei record; per ogni numero atteso (
w-progr incrementale) si verifica se il documento esiste.
- Se il numero e' assente: stampa riga
rigel con i dati del documento mancante (mag/anno/tipo/numero).
- Intestazione stampa (
testa1): data, titolo "Stampa Buchi Numerazioni Bolle", numero pagina.
- Intestazione colonne (
testa3): "Documento Mancante".
Chiamate a sottoprogrammi
| Programma |
Scopo |
| COGS54 |
Gestione stampante |
| WIN036 |
Ricerca e selezione magazzino (F8 su campo magazzino) |
| COGS52W |
Gestione campo data con calendario |
Note tecniche
- La variabile
w-progr contiene il numero progressivo atteso corrente; viene confrontato con il numero del documento letto; se differenti, i numeri intermedi vengono segnalati come mancanti.
- Il formato del record mancante stampato e'
mag/anno/tipo/numero (es. 1/2025/B/000042).
- Il programma usa
utils52.cpy e utils54.cpy per le utility standard di data e stampante, e utilw36.cpy per la selezione magazzino.