Nome programma
GRI001
Linkage section
Programma richiamabile solo dall'esterno, con i seguenti parametri:
❑Input
❑Chiave "GRPIMPOR"
❑Path di import
❑Output
❑Esito dell'operazione
❑"S": Operazione riuscita
❑"N": Operazione non riuscita
Logica generale del programma
Questo programma viene innescato da GRI000 e importa un'informazione relativa alla classe "001".
Elaborazione
Questo programma è di pura elaborazione; dovrà restituire al programma chiamante l'esito dell'elaborazione effettuata.
Recupero informazioni da aggiornare
Lettura del record GRPIMPOR la cui chiave è stata passata in input.
Lettura del record GRPAZIEN relativo a EXT-GRP-AZIENDA.
Con queste informazioni è possibile posizionarsi sul file di informazioni:
•Path: GRPAZIEN.AO-AZI-PATH-IMPORT
•nome: GRPIMPORT.AO-IMP-ID + "_" + GRPEXPOR.AO-IMP-CLASSE
•estensione: ".arc"
Il file deve esistere.
Aggiornamenti
Eseguire un loop sul file. Il tracciato record è definito in: Tipologie/pagine CRM
Il primo campo contiene l'operazione da eseguire, che potrebbe essere:
•"AGG"
•"CANC"
Operazione "AGG"
Aggiornamento CRMTIPCL
Usando il campo 2 "Codice tipologia" posizionarsi su CRMTIPCL. Se non esiste deve essere inserito.
Dopodichè, se i campi presenti nel file riferiti a CRMTIPCL sono diversi dal record letto, aggiornarli.
NB: non importare il campo CRMTIPCL.TCL-ID-START
Aggiornamento CRMSKPAG
Usando i campi:
•2 "Codice tipologia"
•10: "Codice pagina"
•posizionarsi su CRMSKPAG. Se non esiste deve essere inserito.
Dopodichè, se i campi presenti nel file riferiti a CRMSKPAG sono diversi dal record letto, aggiornarli.
Operazione "CANC"
Cancellazione CRMSKPAG
Usando i campi:
•2 "Codice tipologia"
•10: "Codice pagina"
•posizionarsi su CRMSKPAG. Se esiste deve essere cancellato.
Cancellazione CRMTIPCL
Verificare se esistono pagine (CRMSKPAG) collegate al record CRMTIPCL; se non esistono più pagine, rimuovere anche il record su CRMTIPCL.