SWN099 - Esportazione giacenze¶

Nome programma SWN099 Linkage section UTILAGPRG - Linkage comune Id processo: 99 Nome processo:GIACENZE Tabelle principali gestite

AREA	AREAGATE	Direzione
COGSLMAG	ARPARMAG	------>
COGSLKEY	ARPARMAGEXT	------>

Logica generale Sincronizzazione delle giacenze di magazzino. Per ora è prevista solo l'esportazione

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: ARPARMAG 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: non gestita In questa fase si dovrà tenere conto di * Limite record * Limite errori * "Esporta tutto" B.1 - Esportazione giacenze magazzini primari B.1.1 - Stato sincronizzazione Sulla tabella APSTATOSYN, leggere il record relativo alla tabella/oggetto da sincronizzare "ARPARMAG"; se il record non esiste, crearlo impostando

Dato	Contenuto
A_SYN_AZIENDA	Codice azienda
A_SYN_TABELLA	"ARPARMAG"
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.1.2 - Ricerca record da esportare * Sul record APCOGMAGAZ relativo al magazzino in esame, impostare * A-MAGZ-FL-TIP = "v" ("V" minuscola) * Eseguire B.2.1 - Esportazione giacenze * Eseguire B.2.2 - Esportazione ultimo trasferimento * Infine aggiornare nuovamente il record APCOGMAGAZ relativo al magazzino in esame, e impostare * A-MAGZ-FL-TIP = tipo magazzino originale B.1.2.1 - Esportazione giacenze Se la data odierna cade nello stesso mese della data contenuta in A_SYN_DA_GES_DATA, allora si esegue B.1.2.1.1; altrimenti si eseguira' l'esportazione mensile completa: B.1.2.1.2 B.1.2.1.1 - Esportazione giacenze aggiornate * Eseguire una query che azzeri A-ARMAG-QTA-ULTIMA-ENTRATA per tutti i record dove è > 0; contestualmente deve anche impostare A-ARMAG-ID-SINCRO = Id sincro attuale + 1 * Scansione di COGSLMAG per il magazzino in esame; considerare solo i record con * MSAL-FL-AGG = "S" oppure presenti nel file di transito T-INTERVENTI-PRECHIUSI (altrimenti quando si effettua la seconda parte dell'aggiornamento le qta pre-chiuse vengono continuamente tolte) * Per ciascun record valido: * Ricerca di un record su ARPARMAG impostando: * A-ARMAG-AZIENDA = azienda attiva * A-ARMAG-MAG = magazzino in elaborazione * A-ARMAG-MERCE = MSAL-MERCE * Se il record non esiste crearlo, poi aggiornare:

Nome campo	Note
A-ARMAG-QTA-GIACENZA	MSAL-QTA
A-ARMAG-ID-SINCRO	ID sincro attuale (ARPARMAG) + 1
A-ARMAG-QTA-IMPEGNATA	MSAL-QTA-IMPEGNATA
A-ARMAG-QTA-ORDINATA	MSAL-QTA-ORDINATA
A-ARMAG-QTA-PRENOTATA	MSAL-QTA-PRENOTATA

- - Infine variare il record giacenza per azzerare il flag "aggiornato" MSAL-FL-AGG = "N" B.1.2.1.2 - Esportazione completa mensile
Eseguire una query che azzeri A-ARMAG-QTA-ULTIMA-ENTRATA per tutti i record dove è > 0; contestualmente deve anche impostare A-ARMAG-ID-SINCRO = Id sincro attuale + 1
Eseguire una query che azzeri A-ARMAG-QTA-GIACENZA per tutti i record dove e' > 0; contestualmente deve anche impostare A-ARMAG-ID-SINCRO = Id sincro attuale + 1
Scansione di COGSLMAG per il magazzino in esame; considerare tutti i record presenti
- Per ciascun record valido:
  - Ricerca di un record su ARPARMAG impostando:
    - A-ARMAG-AZIENDA = azienda attiva
    - A-ARMAG-MAG = magazzino in elaborazione
    - A-ARMAG-MERCE = MSAL-MERCE
  - Se il record non esiste crearlo, poi aggiornare:

Nome campo	Note
A-ARMAG-QTA-GIACENZA	MSAL-QTA
A-ARMAG-ID-SINCRO	ID sincro attuale (ARPARMAG) + 1

Al termine aggiornare il record di APSTATOSYN relativo ad "ARPARMAG", aggiornando A_SYN_DA_GES_DATA con la data odierna B.1.2.2 - Esportazione ultimo trasferimento Come prima cosa, ricerca dell'ultimo trasferimento verso il magazzino viaggiante in esame: * Posizionarsi su COGTESBO impostando: * TES-MAG = magazzino in esame * TES-ANNO = 9999 * Scorrere all'indietro i record fino a trovare un documento con: * TES-TIPOB = "T" * Il primo movimento con MAG-ENTRUSC = "E" * Il documento che corrisponde sarà l'ultimo trasferimento di carico del magazzino viaggiante, quindi dovremo esportare le quantità sull'apposito campo di ARPARMAG: * Lettura di tutti i record di COGMOMAG del documento trovato; per ciascuno: * Leggere ARPARMAG: * A-ARMAG-AZIENDA = azienda attiva * A-ARMAG-MAG = magazzino in elaborazione * A-ARMAG-MERCE = MSAL-MERCE * Se il record non esiste crearlo, poi aggiornare:

Nome campo	Note
A-ARMAG-QTA-ULTIMA-ENTRATA	MAG-QTAMAGAZ
A-ARMAG-ID-SINCRO	ID sincro attuale (ARPARMAG) + 1

B.1.2.3 - Aggiornamento qta pre-chiuse Rileggere il file di transito T-INTERVENTI-PRE-CHIUSI, per tutti i record relativi al magazzino in elaborazione:

Nome campo	Note
T-IPC-CLASSE	"P"
T-IPC-TIPO	" "
T-IPC-MAG	Codice magazzino

Per ciascun record trovato con T-IPC-QTA <> 0: * Ricerca di un record su ARPARMAG impostando: * * * A-ARMAG-AZIENDA = azienda attiva * A-ARMAG-MAG = T-IPC-MAG * A-ARMAG-MERCE = T-IPC-MERCE * Se il record non esiste crearlo, poi aggiornare:

Nome campo	Note
A-ARMAG-QTA-GIACENZA	A-ARMAG-QTA-GIACENZA - T-IPC-QTA
A-ARMAG-ID-SINCRO	ID sincro attuale (ARPARMAG) + 1

B.1.9 - Aggiornamento id syncro Al termine dell'elaborazione, aggiornare il record APSTATOSYN:

Dato	Contenuto
A-SYN-AZIENDA	Codice azienda
A-SYN-TABELLA	"ARPARMAG"
A-SYN-DA-GES-DATA	Data/ora dell'ultimo record aggiornato (non necessario in questo programma)
A-SYN-DA-GES-ORA
A-SYN-DA-ID-SINCRO	Ultimo id sincro + 1
A-SYN-VERSIONE	2

B.2 - Esportazione giacenze magazzini primari B.2.1 - Stato sincronizzazione Sulla tabella APSTATOSYN, leggere il record relativo alla tabella/oggetto da sincronizzare "ARPARMAGEXT"; se il record non esiste, crearlo impostando

Dato	Contenuto
A_SYN_AZIENDA	Codice azienda
A_SYN_TABELLA	"ARPARMAGEXT"
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) Lo scopo di questa parte è di aggiornare la base dati esterna con le merci contenute nei magazzini secondari. B.2.2 - Ricerca record da esportare * Sul record APCOGMAGAZ relativo al magazzino in esame, impostare * A-MAGZ-FL-TIP = "v" ("V" minuscola) * Eseguire B.2.1 - Esportazione giacenze * Infine aggiornare nuovamente il record APCOGMAGAZ relativo al magazzino in esame, e impostare * A-MAGZ-FL-TIP = tipo magazzino originale B.2.2.1 - Esportazione giacenze Per ora in questo giro non effettuamo il giro mensile come viene invece fatto nel punto B B.2.2.1.1 - Esportazione giacenze aggiornate * Scansione di COGSLKEY per il magazzino in esame, usando la chiave SLK-CHIA2 e impostando

Nome campo	Note
SLK-TIP	"M"
SLK-KEY-TIP	MGP-TIP
SLK-KEY-COD	MGP-COD

Considerare solo i record aggiornati dopo la data/ora memorizzata su APSTATOSYN(ARPARMAGEXT) (qui per ora non c'è il flag di aggiornamento come COGSLMAG), oppure presenti nel file di transito T-INTERVENTI-PRECHIUSI (altrimenti quando si effettua la seconda parte dell'aggiornamento le qta pre-chiuse vengono continuamente tolte) Per ciascuna record valido effettuare la lettura del record corrispondente su ARPARMAGEXT:

Nome campo	Note
A-MGE-AZI	Azienda attiva
A-MGE-MAG-TIP	SLK-KEY-TIP
A-MGE-MAG-COD	SLK-KEY-COD
A-MGE-MERCE	SLK-MERCE

Se il record non esiste crearlo, poi aggiornare:

Nome campo	Note
A-ARMAG-QTA-GIACENZA	SLK-GIA
A-ARMAG-ID-SINCRO	ID sincro attuale (ARPARMAGext) + 1
A-ARMAG-QTA-IMPEGNATA	0
A-ARMAG-QTA-ORDINATA	0
A-ARMAG-QTA-PRENOTATA	0

B.2.3 - Aggiornamento qta pre-chiuse Rileggere il file di transito T-INTERVENTI-PRE-CHIUSI, per tutti i record relativi al magazzino in elaborazione:

Nome campo	Note
T-IPC-CLASSE	"S"
T-IPC-TIPO	MGP-TIP
T-IPC-MAG	MGP-COD

Per ciascun record trovato con T-IPC-QTA <> 0 effettuare la lettura del record corrispondente su ARPARMAGEXT:

Nome campo	Note
A-MGE-AZI	Azienda attiva
A-MGE-MAG-TIP	T-IPC-TIPO
A-MGE-MAG-COD	T-IPC-MAG
A-MGE-MERCE	T-IPC-MERCE

Se il record non esiste crearlo, poi aggiornare:

Nome campo	Note
A-ARMAG-QTA-GIACENZA	A-ARMAG-QTA-GIACENZA - T-IPC-QTA
A-ARMAG-ID-SINCRO	ID sincro attuale (ARPARMAGext) + 1

B.2.9 - Aggiornamento id syncro Al termine dell'elaborazione, aggiornare il record APSTATOSYN:

Dato	Contenuto
A-SYN-AZIENDA	Codice azienda
A-SYN-TABELLA	"ARPARMAGEXT"
A-SYN-DA-GES-DATA	Data/ora dell'ultimo record aggiornato (non necessario in questo programma)
A-SYN-DA-GES-ORA
A-SYN-DA-ID-SINCRO	Ultimo id sincro + 1
A-SYN-VERSIONE	2

Estratto da documentazione interna ClickUp