Vai al contenuto

COGK60 - Stampa Nota Accredito (Ristorni)

Funzione

Generazione note di accredito per ristorni clienti. Legge l'archivio di appoggio prodotto da COGK55 (calcolo ristorni) e per ciascun cliente che supera la soglia minima, richiama COGK61 per creare la nota accredito.

  • Vendite > Ristorni > Stampa Nota Accredito

Tabelle e file principali

Tabella/File Descrizione Accesso
FNACOUT (FNACGK5.ACC) Archivio appoggio ristorni (da COGK55) Input
COGGEANA Anagrafica clienti Lettura
COGTABEL Tabelle configurazione (tipo 16 = contropartite) Lettura
COGK61 Sottoprogramma generazione nota accredito Call

Logica principale

  1. L'utente inserisce: cliente da/a (tm-cli-da / tm-cli-a), data (tm-data), contropartita (tm-controp), soglia minima (tm-soglia).
  2. Validazione: data obbligatoria, contropartita deve esistere in COGTABEL tipo 16 (da cui si ricavano tm-euta-mastro, tm-euta-conto, tm-euta-sconto).
  3. Apertura file FNACOUT (path: ext-tmp-dir + "FNACGK5.ACC").
  4. Start dal cliente da (posizionamento per nome, nou-nome / nou-clie).
  5. Per ogni record letto:
  6. Salta il cliente 196.
  7. Salta clienti oltre il nome del cliente "a".
  8. Salta record con tutti gli importi a zero (nou-impo e nou-impo-u per 5 aliquote).
  9. Se la somma totale degli importi e' inferiore a tm-soglia, mostra un messaggio e salta.
  10. Altrimenti: prepara il record passa con i dati del cliente (nonno, padre, listino, sconti, decimali, tipo spese, tipo pagamento, data fattura, storno="P", contropartita, soglia).
  11. Chiama COGK61.COB passando il record passa.
  12. Al termine, mostra riepilogo con range di note accredito generate (da-nac / a-nac).

Struttura record FNACOUT

  • nou-chia1: nou-nome (x20) + nou-clie (9(5))
  • nou-dati: percentuale (nou-perc-u), 60 fatture (nou-fattura occurs 60: anno, tipo, numero, data), 10 righe aliquota (nou-riga occurs 10: aliquota, importo, importo-u)

Copybook principali

  • cogk60.select, cogk60.fd, cogk60.wrk, cogk60.prc, cogk60.decla
  • cogk60-01.scr (screen)
  • utils52, utils54, utils65, utilu10, utile18, utilv04
  • getdcont.cpy

Note

  • COGK60 e' la fase 1 (dati iniziali): per ogni cliente richiama COGK61 (fase 2: generazione effettiva).
  • Il file di appoggio FNACGK5.ACC deve essere stato generato da COGK55.
  • Personalizzazione E4: imposta contropartita default a 103.
  • Record passa contiene 40 occorrenze di dettaglio bolle (tael3).