Questa azione è chiamata per ogni record di ogni tabella dichiarata nel 1° folder del modello. Questa azione interviene quando la classe [F] è stata alimentata con i campi dichiarati nei modelli. Contiene quindi, a questo livello, il record da importare. Servirà in seguito per la simulazione dell'inserimento; sarà quindi passata nella classe [M] per tutti i campi inseribili. La classe [M] sarà in seguito passata nella classe [F] definitiva.
Azione chiamata dal programma generato dall'import WWIxxxxxxx.
Semplice, Riquadro, Combinato
Questa azione viene anche chiamata durante un import per cui non ci sono oggetti.
Può servire, ad esempio:
a completare la classe [F] del record da importare
Alcune variabili utili in questa azione:
[L]TRTMSK: programma generato della videata
[L]IMPFIC : abbreviazione della tabella corrente
[L]SEPNUM: livello di nidificazione della tabella corrente ( da 1 a 8 )
Nell'import di listino di vendita o di acquisto, le videate di inserimento sono generate in funzione della parametrizzazione di ogni codice listino. E' per questo che in questa azione AP_IMPORT si chiude la videata aperta per aprire la videata corrispondente al codice listino. Si modifica il codice programma collegato alla videata.
$AP_IMPORT
If GNBIMP=0 | RUPT
If [L]TRTMSK <> "W0WB1"+num$([F]PLI)+"1"
[L]TRTMSK="W0WB1"+num$([F]PLI)+"1"
GFLTPLI=[F]PLI : GFLAG=[F]PLI
Close Mask [SPLW] : Local Mask ="WB1"+num$([F]PLI)+"1" [SPLW]
Read [F:SPC]SPC0=[F]PLI
Endif
Endif
Return
Nell'import di ordine di vendita, può succedere di importare un campo contenente il numero cliente seguito dal carattere "~" seguito da altri dati. Per caricare il numero cliente nella classe [F], si utilizza la seguente azione AP_IMPORT:
$AP_IMPORT
Local Integer I1
Case IMPFIC
When "SOH"
If G_GIMP6
I1=instr(1,GIMP(6),"~")
If I1 [F:SOH]BPCORD=left$(GIMP(6),I1-1) Else [F:SOH]BPCORD=GIMP(6) Endif
Endif
When Default
Endcase
Return