SWN107 - Listini vendita¶
Nome programma SWN107 Linkage section UTILAGPRG - Linkage comune Id processo: 107 Nome processo: LISTINI-VENDITA Tabelle principali gestite
| AREA | AREAGATE | Direzione |
|---|---|---|
| COGLISML | ARPLISTI | ------> |
| COGTESLS | ARPLISTI | ------> (cancellazione logica testate) |
Logica generale Sincronizzazione dei listini di vendita Esportazione Esportazione di tutti i record effettivamente modificati (con dati variati). Importazione Non prevista Elaborazione skippata per Terrepadane (che userà per ora ancora il processo SWA036) Configurazioni possibili
| Gruppo | Parametro | Note |
|---|---|---|
| abilita | attiva-areaapp | |
| areaapp | cod-azienda | |
| areaapp | db-conn-string | |
| areaapp | agg-postgres-online |
Elaborazione Tipi di segnalazione: Vedi Tipi di segnalazione A - Controllo di esecuzione Vedi Controllo di esecuzione A.1 - Aggiornamento KEEP-ALIVE Per il momento non lo eseguiamo: il keep-alive viene tenuto aggiornato dal thread autonomo di aglancio; se il programma venisse chiamato in "tempo reale" dal programma di gestione, non necessita comunque del keep-alive. A.2 - Apertura A.2.1 Apertura tabelle Tentare l'apertura della tabella da sincronizzare: ARPLISTI Se fallita inviare una Segnalazione critica e chiudere. B - Esportazione informazioni aggiornate * ID SINCRO: gestito * Esportazione differenziale: gestita e ottimizzata, attraverso una data specifica collegata a data/ora aggiornamento * Cancellazione logica: gestita In questa fase si dovrà tenere conto di * Limite record * Limite errori * "Esporta tutto" B.1 - Stato sincronizzazione Sulla tabella APSTATOSYN, leggere il record relativo alla tabella/oggetto da sincronizzare "ARPLISTI"; se il record non esiste, crearlo impostando
| Dato | Contenuto |
|---|---|
| A_SYN_AZIENDA | Codice azienda |
| A_SYN_TABELLA | "ARPLISTI" |
| A_SYN_DA_GES_DATA | 0 |
| A_SYN_DA_GES_ORA | 0 |
| A_SYN_DA_ID_SINCRO | 1 |
| A-SYN-VERSIONE | 2 |
Qui otterremo due informazioni importanti: * Data/ora ultima esportazione da gestionale a postgres (A_SYN_DA_GES_DATA e A_SY_DA_GES_ORA) * Prossimo ID sincronizzazione da memorizzare sulla tabella (A_SYN_ID_SINCRO) B.2 - Ricerca record da esportare B.2.1 Ricerca record da esportare
| Tipo di elaborazione | Condizione | Cosa fare |
|---|---|---|
| Singolo record | AGPRG-KEY <> " " | Si legge direttamente il record da aggiornare su COGLISML Verrà eseguita se agg-postgres-online è attiva Se viene sincronizzato un record cancellato, verrà effettuata la cancellazione logica |
| Esportazione totale | AGPRG-ESPORTA-TUTTO = "S" | Si scorrono tutti i record di COGLISML; ogni record va considerato |
| Esportazione standard | Si scorrono tutti i record di COGLISML, usando la chiave LNML-CHIA2, partendo da A-SYN-DA-GES-DATA+A-SYN-DA-GES-ORA | |
| Pulizia | AGPRG-OPE = "PULIZIA" | Non prevista |
Ricerca prezzo Per ciascun record valido si cerca il listino più recente rispetto alla data sistema con una ricerca all'indietro su COGLISNW usando LNW-CHIA4 impostando:
| Dato | Contenuto |
|---|---|
| LNW-MERCE | LNML-MERCE |
| LNW-TIP-LIS | LNML-TIP-LIS |
| LNW-RIF | LNML-RIF |
| LNW-DATA | Data sistema |
Sarà valido il primo record trovato che ha: * LNW-VAL <> 'C' * LNW-FASCIA = 0 oppure 1 * LNW-PRE > 0 oppure LNW-FL-ZERO = 'S' Questo record conterrà il prezzo di listino da esportare B.2.2 Verifica ed esportazione record Dopodichè si effettua la ricerca dell'informazione su ARPLISTI
| Dato | Contenuto |
|---|---|
| RLIS-AZI | Codice azienda |
| RLIS-MERCE | LNML-MERCE |
| RLIS-TIP-LIS | LNML-TIP-LIS |
| RLIS-RIF | LNML-RIF |
Se non esiste, inserirlo. Se esiste, aggiornarlo l'aggiornamento del record deve avvenire solo se almeno un dato tra quelli da modificare è diverso. NB: se è stata richiesta l'esportazione completa (AGPRG-ESPORTA-TUTTO = "S") allora il record dovrà essere esportato a prescindere dal confronto Suggerimento Invece di popolare direttamente i dati del record di destinazione, portarli su delle copie in w/s. Al termine confrontare i dati sulla destinazione con la copia in w/s. Aggiornamento da COGLISML
| Dato | Contenuto | Confronto? |
|---|---|---|
| RLIS-AZI | Codice azienda | |
| RLIS-MERCE | LNML-MERCE | |
| RLIS-TIP-LIS | LNML-TIP-LIS | |
| RLIS-RIF | LNML-RIF | |
| RLIS-VAL | LNML-FL-CANC | Si |
| RLIS-PRE | il prezzo trovato | Si |
| RLIS-PRE-CAMPAGNA-CAP | 0 | Si |
| RLIS-ID-SINCRO | Id sincro + 1 |
(*) Questi campi dovranno essere parsati con GESSTR prima del confronto In questa fase tenere memoria di data+ora dell'ultimo record di input considerato. B.9 - Aggiornamento id syncro Al termine dell'elaborazione, aggiornare il record APSTATOSYN:
| Dato | Contenuto |
|---|---|
| A-SYN-AZIENDA | Codice azienda |
| A-SYN-TABELLA | "ARPLISTI" |
| A-SYN-DA-GES-DATA | Data/ora dell'ultimo record aggiornato |
| A-SYN-DA-GES-ORA | |
| A-SYN-DA-ID-SINCRO | Ultimo id sincro + 1 |
| A-SYN-VERSIONE | 2 |
Cancellazione logica delle testate listini (TASK-5358)¶
La cancellazione logica di una testata listino si imposta da COGF60: il record COGTESLS resta in archivio con tls-val = "C". SWN107 propaga questa cancellazione verso ARPLISTI in due punti.
b6-cancella-logica (solo su "Esporta tutto")¶
Eseguito da b-esportazione-completa solo quando w-dc-esporta-tutto = "S" (agprg-esporta-tutto = "S"), prima della scansione di COGLISML:
- Scandisce tutte le testate COGTESLS (
initialize tls-chia1->st-cogtesls-notmin-> looprdnxt-cogtesls). - Per ogni testata con
tls-val = "C"esegue la cancellazione logica delle righe su ARPLISTI (non una DELETE fisica): seleziona le righe di listino della testata e ne aggiorna il flagrlis_val. La SELECT e':sql SELECT * from arplisti WHERE (rlis_azi = $1::character(6) AND rlis_tip_lis = $2::character(1) AND rlis_rif = to_number($3, 'SG99999')) ORDER BY rlis_azi ASCcon i parametri valorizzati darlis-azi = tm-cfg-cod-azienda,rlis-tip-lis = tls-tip,rlis-rif = tls-rif(routinesql-format-val-d-arplisti,sql-setp-rlis-azi/sql-setp-rlis-tip-lis/sql-setp-rlis-rif,sql-prepare-id-arplisti,sql-select,sql-set-statusfi). Per ogni riga selezionata (loopsub-cfg-rdnxt-arplistifino aw-fine-fileo rotturarlis-azi) impostarlis-val = "C",rlis-id-sincro = tm-id-sincro(incrementato a ogni riga) erlis-data-agg = datasis, quindi riscrive il record consub-cfg-rwr-arplisti. - Logga inizio/fine e ogni testata cancellata via
gesdebug-write.
Propagazione di tls-val sulle righe esportate¶
Nella costruzione del record prezzo da esportare (tm-dati-record), dopo aver impostato tm-rlis-val = lnml-fl-canc, SWN107 legge la testata COGTESLS della riga corrente (tls-tip = lnml-tip-lis, tls-rif = lnml-rif, rd-cogtesls): se tls-val = "C" forza tm-rlis-val = "C". In questo modo la cancellazione logica della testata si riflette anche sul campo rlis-val di tutte le righe di listino esportate, oltre alla DELETE massiva eseguita su "Esporta tutto".
Storico modifiche¶
| Data | Descrizione |
|---|---|
| 2026-06-24 | TASK-5358: cancellazione logica testate listini. Nuovo paragrafo b6-cancella-logica (solo su agprg-esporta-tutto = "S") che, per ogni testata COGTESLS con tls-val = "C", seleziona le righe ARPLISTI corrispondenti e ne imposta rlis_val = "C" (cancellazione logica, non DELETE fisica); propagazione di tls-val = "C" su tm-rlis-val/rlis-val in fase di costruzione del record prezzo. |
| 2026-06-30 | Correzione documentazione: b6-cancella-logica non esegue una DELETE fisica su ARPLISTI ma una SELECT delle righe seguita da aggiornamento logico (rlis_val = "C", rlis_id_sincro, rlis_data_agg via sub-cfg-rwr-arplisti). |
Estratto da documentazione interna ClickUp