TGL420 - Ordine a Fornitore per Lavorazioni Esterne Taglio¶
Funzione¶
Genera ordini a fornitore per le lavorazioni esterne di una commessa di taglio (lamiere/profilati). Analizza le righe commessa di tipo 'E' (esterne), individua i fornitori, e crea testata ordine + righe + descrizione ordine + record lavorazione esterna.
Menu¶
- Magazzino > Produzione > Taglio > Lamiere > Lavorazioni esterne > Ordine a fornitore
- Magazzino > Produzione > Taglio > Profilati > Lavorazioni esterne > Ordine a fornitore
Tabelle e file principali¶
| Tabella/File | Descrizione | Accesso |
|---|---|---|
| COGTESOR (tor) | Testata ordini | Lettura / Scrittura (ordine fornitore) |
| COGTORAG (tar) | Aggiuntivi testata ordine | Lettura |
| COGRIGOR (ror) | Righe ordini | Scrittura (righe ordine fornitore) |
| COGDESOR (dor) | Descrizioni ordine | Scrittura (note lavorazione) |
| COGLAVOR (cla) | Commesse | Lettura (chiave 5) |
| CLCCCRIG (ccr) | Righe ciclo commessa | Lettura (chiave 1: anno+num commessa) |
| CLCLAVOR (lav) | Anagrafica lavorazioni | Lettura |
| TGLLAVES (tles) | Lavorazioni esterne taglio | Lettura / Scrittura |
| COGLAVLA (cll) | Legame commessa-lavorazione | Scrittura |
| TGLPRRIG (trpr) | Righe piano taglio lamiere | Lettura (chiave 2) |
| TGLPRRIP (trpp) | Righe piano taglio profilati | Lettura (chiave 2) |
| TGLPRRLE (trpl) | Righe lavorazioni esterne taglio | Lettura |
| COGGEANA (ana) | Anagrafica generale | Lettura (clienti/fornitori) |
| COGCNDCF (cnd) | Condizioni commerciali | Lettura (porto, vettore) |
| COGTABEL (euta) | Tabella generale | Lettura (causale tipo 15, validazione) |
| COGDETOR (dtr) | Dettaglio ordine | Lettura (macchina) |
Copybook e sottoprogrammi¶
| Elemento | Tipo | Ruolo |
|---|---|---|
| tgl420.wrk | Copybook | Working storage |
| tgl420.select | Copybook | Select file |
| tgl420.fd | Copybook | FD file |
| tgl420-01.scr | Screen | Maschera con griglia |
| tgl420.prc | Copybook | Procedure I/O |
| utiltgl420.cpy | Copybook | Parametri linkage (called) |
| util-tgl020.cpy | Copybook | Dati comuni taglio (linkage) |
| COGS25 | Sottoprogramma | Numeratore progressivo ordini |
| RNEWCONF | Sottoprogramma | Configurazione |
| GRIDADMN | Sottoprogramma | Gestione griglia |
Logica principale¶
Configurazione (x99-confi)¶
Legge da RNEWCONF un set completo di parametri: porto, trasferimento commessa, numerazione, tipo attivita' taglio, fornitore forzato, consegna automatica, causale, causale c/lavoro, bolla valorizzata, tipo ordine, merce trasferimento, magazzino consegna diretta, ricerca/aggiornamento listino, trasferimento contabile, check quadratura, distribuzione, legame con RIO, aggiornamento PMA.
Selezione¶
Come TGL304: ordine o commessa, con cross-check tra i due. Puo' essere chiamato con parametri pre-compilati (tgl420-called = "TGL420-CALLED").
Caricamento griglia¶
- Legge CLCCCRIG per la commessa, filtra righe con
ccr-tip = 'E'(lavorazioni esterne) - Costruisce la lista delle lavorazioni distinte in
w-tab-lav(max 100), associando fornitore (ccr-mac) - Per ogni lavorazione, cerca in TGLLAVES se esiste gia' un ordine fornitore
- Mostra nella griglia: lavorazione, fornitore previsto, stato ordine, fornitore selezionato, riferimento ordine, data, stato, data consegna
Generazione ordine (b-aggiorna)¶
Per ogni riga selezionata (tm-sel = 'S'):
1. Valida la causale (euta-tipo = 15, deve essere di entrata, senza aggiornamento giacenza)
2. Crea testata ordine fornitore (wr-cogtesor) con numerazione progressiva da COGS25 (tipo 14)
3. Imposta: tipo='F', anno corrente, causale, divisa, porto, pagamento, vettore (da condizioni commerciali fornitore)
4. Scrive le righe ordine (scrivi-cogrigor): cicla su TGLPRRIG o TGLPRRIP, per ogni riga cerca le lavorazioni esterne in TGLPRRLE, crea COGRIGOR con prezzo = (costo_unitario * min_pezzi) / 60
5. Se ci sono righe scritte, aggiunge descrizioni ordine (3 righe COGDESOR: "Sui suddetti particolari...", "di effettuare la lavorazione:", nome lavorazione)
6. Scrive TGLLAVES (legame commessa-lavorazione esterna-ordine)
7. Scrive COGLAVLA (legame commessa-lavorazione)
8. Mostra dialog di conferma con possibilita' di aprire l'ordine (chiama COGV06NO)
Gestione lamiere vs profilati¶
- Lamiere: usa TGLPRRIG e TGLPRRLE con chiavi standard
- Profilati (
tar-tipo-speciale = 'PR'): usa TGLPRRIP e TGLPRRLE con chiavi profilati
Note¶
- La numerazione ordini usa il contatore tipo 14 di COGS25.
- Il prezzo viene calcolato come
(trpl-costo-uni * trpl-min-pz) / 60(conversione da minuti). - La griglia supporta modalita' selezione/aggiornamento tramite F3 (toggle tra 'S' e 'A' per
a-modalita). - Il
PERFORM ... THRUe' usato in diversi punti del sorgente originale.