Vai al contenuto

COGG13 - Stampa Etichette Clienti Potenziali

Panoramica

COGG13 stampa etichette di spedizione per i clienti potenziali (anagrafica clienti potenziali). E' un programma di stampa batch con maschera a caratteri (mask testuale mm-1): l'operatore imposta i criteri di selezione (fino a 4 informazioni con relativo valore, in logica AND/OR), l'intervallo di clienti, l'ordinamento e il formato delle etichette; il programma estrae i clienti che soddisfano i criteri in un file di transito temporaneo e li stampa. Sono previsti due formati: modulo continuo (etichette su 3 file affiancate) oppure fogli A4 70x36 mm su 3 colonne (etichette laser). Viene avviato dal menu senza parametri di linkage specifici.

Posizione nel menu

Menu Percorso
Contabilita' Clienti Potenziali > Stampe > Etichette

Struttura del programma

File e tabelle utilizzati

File/Tabella Tipo Descrizione
COGCLIPT Indexed Anagrafica clienti potenziali; scansione per codice (cpt-chia1) o per descrizione (cpt-chia2) secondo l'ordinamento
COGPOTCL Indexed Dati di dettaglio del cliente potenziale (valori delle informazioni selezionabili, ptc-dati)
COGINFPT Indexed Anagrafica delle informazioni selezionabili (tipo, lunghezza, decimali, tabella collegata)
COGDESPT Indexed File aperto tra i file gestiti (descrizioni clienti potenziali)
COGTABEL / FEURTAB Indexed Tabelle generiche
COGTRANS Indexed (temp) File di transito temporaneo (#$COGG13.<oper>) con i clienti selezionati; chiavi per codice (trs-chia1) e descrizione (trs-chia2)
STA Print (linage) Stampa etichette su modulo continuo (riga, 132 char)
STA1 Print Stampa etichette su foglio A4 laser (riga1, 142 char)

Copybook principali

Copybook Descrizione
cogpotcl.fd/.cpy, cogdespt.fd/.cpy, coginfpt.fd/.cpy, cogclipt.fd/.cpy, cogtabel.fd/.cpy Definizioni file e tracciato record delle tabelle clienti potenziali
utils21.cpy / utils54.cpy / utils60.cpy Interfacce a COGS21 (scelta valore singolo), COGS54 (stampante), COGS60 (combo formato)
utilg04.cpy Interfaccia a COGG04 per l'input del valore dell'informazione selezionata
utilgw02.cpy / utilgw04.cpy Interfacce ai gestori GW02 (ricerca cliente per descrizione) e GW04 (aiuto informazioni)
sendgw02.cpy / sendgw04.cpy Routine di appoggio per l'invio ai gestori GW02/GW04
cogazien.cpy Dati azienda (tra cui az-sys per gestione no-rewind e s54-emu-att/dis stringhe emulazione)

Chiamate a sottoprogrammi (CALL)

Programma Scopo
COGS21 Scelta di un valore singolo tra opzioni (tipo selezione T/U, 1/3 file, ordine C/A)
COGS60 Combo-box di scelta del formato etichetta (modulo continuo / A4)
COGS54 Selezione stampante ed emulazione (con s54-fl-manual)
COGG04 Input del valore dell'informazione di selezione (con aiuto e formattazione)
GW02 / GW04 Gestori di ricerca cliente per descrizione (GW02) e aiuto informazioni (GW04), richiamati via sendgw02/sendgw04
COGS52 Solo cancel a fine programma (gestione calendario/date usata dai sotto-moduli)

Logica di elaborazione

  1. apri / main - Inizializzazione: ctr-abil, open-files, rd-azi. Compone il nome del file di transito temporaneo #$COGG13.<wo-oper> in ext-tmp-dir. Carica la maschera mm-1 (80x14) e la posiziona.
  2. a4 - Visualizza la maschera, il titolo "Stampa Etichette", legge la data di sistema. Inizializza tab-maschera con tipo anagrafica cliente "C".
  3. a-25 - Richiede il tipo di selezione multipla: "T" (AND: il cliente e' selezionato se TUTTE le selezioni sono soddisfatte) oppure "U" (OR: almeno una) tramite COGS21.
  4. a-30 / a-35 / a-40 / a-40-add - Ciclo su massimo 4 informazioni: per ciascuna richiede il numero informazione (tm-sel-inf, con aiuto F8 via GW04), ne legge da COGINFPT tipo/lunghezza/tabella (rd-ipt), e richiede il relativo valore tramite COGG04 (tm-sel-val).
  5. a-45 / a-46 / a-50 - Richiede: numero file in stampa (1 o 3, tm-fil), formato etichette (tm-tp-eti via COGS60), ordinamento ("C" per codice o "A" alfabetico, tm-ord).
  6. a-60 / a-70 - Richiede l'intervallo clienti da/a (tm-cli-da, tm-cli-a) con ricerca per descrizione (GW02) e verifica esistenza su COGCLIPT (rd-cpt); controlli di coerenza da<=a per codice o descrizione.
  7. a-90 - Chiama COGS54 per la stampante; alla conferma (F3) esegue c-elabora e d-stampa.
  8. c-elabora / c-10-loop / c1-select / c1-sel-ok - Apre in output il file di transito COGTRANS (con controllo di uso concorrente), scandisce COGCLIPT dall'inizio selezione (per codice o descrizione), e per ogni cliente valuta le selezioni richieste in c1-select (logica T/U su COGPOTCL). I clienti validi vengono scritti su COGTRANS (trs-rec).
  9. d-stampa / d-10-loop / l10-print / d-90 - Riapre COGTRANS in I-O, apre la stampante appropriata (STA per modulo continuo o STA1 per A4, con o senza no rewind in base ad az-sys), emette eventuali sequenze di emulazione (s54-emu-att/dis), scandisce il transito ordinato e compone le righe etichetta a gruppi di 3 (r1/r2/r3 per modulo continuo; l1/l2/l3 per A4 laser). Su A4, la routine l10-print gestisce la spaziatura tra fogli (contatore ctr-file, num-file).
  10. fine / fin - Chiude i file, cancella il file di transito COGTRANS, cancel di COGS52/COGG04, chiude la finestra ed esce.

Note tecniche

  • Programma a maschera testuale (mm-1, box con caratteri semigrafici IBM), non griglia GUI: e' un modulo legacy con navigazione basata su GO TO verso etichette a-NN.
  • Selezione multipla configurabile: fino a 4 coppie (informazione, valore) valutate in AND ("T") o OR ("U"); le informazioni e i valori si appoggiano alle tabelle COGINFPT (definizione) e COGPOTCL (dati per cliente).
  • File di transito temporaneo COGTRANS creato in ext-tmp-dir con nome per operatore (wo-oper); l'apertura in output serve anche a rilevare l'uso concorrente della funzione da parte di un altro operatore.
  • Due formati di stampa fisici: modulo continuo (etichette a 3 file, larghezza fissa 32 char) e fogli A4 70x36 mm su 3 colonne (larghezza 40 char) con gestione salti pagina; il numero di etichette per riga e' dato da tm-fil-n.
  • Non usa RNEWCONF ne' modelli Word (WORDMDL): stampa diretta su print-file.
  • Discrepanza etichetta/funzione: nessuna. L'etichetta "Etichette" corrisponde alla stampa di etichette per clienti potenziali.