AP_IMPORT

Descrizione

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.

Import oggetto

Semplice, Riquadro, Combinato

Questa azione viene anche chiamata durante un import per cui non ci sono oggetti.

Utilizzo

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 )

Esempio

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